سلام
ببخشید یه کد میخوام که یه رشته بگیره حرفای کوچیک رو بزرگ کنه و حرفای بزرگ رو کوچیک
مثلا MuTu رو به mUtU تبدیل کنه
0
درود
Private Sub Command1_Click()
Dim i As Integer
Dim STR1, STR2
STR1 = Text1.Text
For i = 1 To Len(STR1)
STR1 = Mid(Text1, i, 1)
If Asc(STR1) < 64 Or Asc(STR1) > 91 Then 'if character between a to z
STR1 = UCase(STR1)
Else ' if character between A to Z
STR1 = LCase(STR1)
End If
STR2 = STR2 & STR1
Next i
Text2 = STR2
End Sub
التماس دعا
سوال برنامه نویسی دارید؟
ندونستن عیب نیست، نپرسیدن چرا!