vb.net交流

用一个按钮,和一个文本框,将输入文本框的字符进行大小转换,如hkkFDSkkDS要变成HKKfdsKKds
急急,希望给出代码

答案：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 TextBox1.Text = ConvertCase(TextBox1.Text)
End Sub

Private Function ConvertCase(ByVal value As String) As String
 If value Is Nothing Then Return value

 Dim sb As New System.Text.StringBuilder()
 Dim c As Char
 For i As Integer = 0 To value.Length - 1
     c = value(i)
     If Char.IsLower(c) Then
         sb.Append(Char.ToUpper(c))
     ElseIf Char.IsUpper(c) Then
         sb.Append(Char.ToLower(c))
     Else
         sb.Append(c)
     End If
 Next
 Return sb.ToString()
End Function

上一个：XP下用VB.NET编程，如何使用VB6.0风格控件
下一个：VB.net 和C#.net 各有什么优缺点