molim vas taj kod,nista mi ne pada na pamet
kod za naopako ispisivanje rijeci u textbox
Zaključano
Zakačeno
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.
Ne pada mi ništa bolje na pamet trenutno.
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
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.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
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
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
Code:
Private Sub Command1_Click()
Text2.Text = StrReverse(Text1.Text)
End Sub
Private Sub Command1_Click()
Text2.Text = StrReverse(Text1.Text)
End Sub
Potpis
:D to mi ni na pamet nije palo!
Mozda coveku treba naopako u smislu kao slika u ogledalu... ?
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:
Pre nego što neko pita kako :)
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
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 :)
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti