برعکس کردن حرفهای کوچیک و بزرگ!
#1
Note 
سلام
ببخشید یه کد میخوام که یه رشته بگیره حرفای کوچیک رو بزرگ کنه و حرفای بزرگ رو کوچیک
مثلا MuTu رو به mUtU تبدیل کنه

پاسخ
#2
Note 
درود
کد:
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

التماس دعا Heart

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

کاربرانِ درحال بازدید از این موضوع:   1 مهمان