• برعکس کردن حرفهای کوچیک و بزرگ!
    #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 مهمان