Büyük harfleri küçük , küçük harfleri büyük harfe çevir Vb.Net

Büyük harfleri küçük , küçük harfleri büyük harfe çevir Vb.Net 

 

 

[code lang=”vb”] 

Public Class Form1 

Public Shared Function cevir(ByVal m As String, ByVal uz As Integer) As String 

Dim al As String, al2 As String, s As String = "" 

al = m.ToLower() 

al2 = m.ToUpper() 

For i As Integer = 0 To uz – 1 

If m(i) = al(i) Then 

s = s & al2(i) 

ElseIf m(i) = al2(i) Then 

s = s & al(i) 

End If 

Next 

Return s 

End Function 

Private Sub btnCevir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCevir.Click 

Dim ad As String 

Dim uz As Integer 

ad = textBox1.Text 

uz = ad.Length 

label3.Text = (cevir(ad, uz)) 

End Sub 

End Class 

[/code]

 

Dosyayı İNDİR