[ andre @ 30.03.2005. 19:55 ] @
molim vas taj kod,nista mi ne pada na pamet
[ Marko_L @ 30.03.2005. 21:06 ] @
Probaj sa matricom, nešto ovako.Stavi dva textbox-a i jedan commandbutton.U text1 upiši reč, a u text2 će se pojaviti napisana naopako.
Code:
Private Sub Command1_Click()
Dim a(100) As String
Dim b As Integer
Dim c As Integer
Text2.Text = ""
For b = 1 To Len(Text1.Text)
a(b) = Mid(Text1.Text, b, 1)
Next b
For c = UBound(a) To 1 Step -1
Text2.Text = Text2.Text & a(c)
Next c
End Sub

Ne pada mi ništa bolje na pamet trenutno.
[ Aleksandar Ružičić @ 30.03.2005. 22:10 ] @
iste kontrole, ali malo kraci kod (zasto bi komplikovao sa matricama?)
Code:

Private Sub Command1_Click()
    Dim i As Long, s As String
    s = vbNullString
    For i = 0 To Len(Text1.Text) - 1
        s = s & Mid$(Text1.Text, Len(Text1.Text) - i, 1)
    Next
    Text2.Text = s
End Sub
[ mladenovicz @ 31.03.2005. 09:48 ] @
Code:

Private Sub Command1_Click()
    Text2.Text = StrReverse(Text1.Text)
End Sub
[ Aleksandar Ružičić @ 31.03.2005. 12:24 ] @
:D to mi ni na pamet nije palo!
[ Shadowed @ 31.03.2005. 15:07 ] @
Mozda coveku treba naopako u smislu kao slika u ogledalu... ?
[ Marko_L @ 31.03.2005. 16:59 ] @
Vidiš, pojma nisam imao da ta funkcija postoji uopšte, verovatno zato što sam se sa manipulacijom stringovima više zezao dok sam radio u VB5, gde te funkcije i nema.Dakle, ako koristite VB5, morate napraviti funkciju:
Code:
Public Function StrReverse(s As String)
Dim i As Long
For i = 0 To Len(s) - 1
StrReverse = StrReverse & Mid$(Text1.Text, Len(s) - i, 1)
Next i
End Function

Pre nego što neko pita kako :)