Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
02.09.2003. Snimanje iz TextBox u .txt
08.03.2004. TextBox kontrola u Windows formi
26.07.2004. Numericka vrednost u TextBox-u ?
01.08.2004. multiline textbox vb.net (applications)
10.09.2004. php i igra pogadjanja rijeci
24.11.2004. DataGrid i TextBoxovi
10.01.2007. kakaoke nema rijeci ??
20.11.2005. Ispisivanje u C#
24.02.2006. Kopiranje iz forme u formu

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

kod za naopako ispisivanje rijeci u textbox

[es] :: Visual Basic 6 :: kod za naopako ispisivanje rijeci u textbox

[ Pregleda: 3238 | Odgovora: 6 ] > FB > Twit

Autor

andre

Član broj: 41549
Poruke: 7
*.dialin.iskon.hr.

Profil

kod za naopako ispisivanje rijeci u textbox

^{30.03.2005. u 19:55 - pre 232 meseci}

molim vas taj kod,nista mi ne pada na pamet

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: kod za naopako ispisivanje rijeci u textbox

^{30.03.2005. u 21:06 - pre 232 meseci}

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.

-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

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: kod za naopako ispisivanje rijeci u textbox

^{30.03.2005. u 22:10 - pre 232 meseci}

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

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.BVCOM.NET.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: kod za naopako ispisivanje rijeci u textbox

^{31.03.2005. u 09:48 - pre 232 meseci}

Code:

Private Sub Command1_Click()
Text2.Text = StrReverse(Text1.Text)
End Sub

Blue Man Group

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: kod za naopako ispisivanje rijeci u textbox

^{31.03.2005. u 12:24 - pre 232 meseci}

:D to mi ni na pamet nije palo!

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12850

+4784 Profil

Re: kod za naopako ispisivanje rijeci u textbox

^{31.03.2005. u 15:07 - pre 232 meseci}

Mozda coveku treba naopako u smislu kao slika u ogledalu... ?

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: kod za naopako ispisivanje rijeci u textbox

^{31.03.2005. u 16:59 - pre 232 meseci}

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 :)

Odgovor na temu

[es] :: Visual Basic 6 :: kod za naopako ispisivanje rijeci u textbox

[ Pregleda: 3238 | Odgovora: 6 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
02.09.2003. Snimanje iz TextBox u .txt
08.03.2004. TextBox kontrola u Windows formi
26.07.2004. Numericka vrednost u TextBox-u ?
01.08.2004. multiline textbox vb.net (applications)
10.09.2004. php i igra pogadjanja rijeci
24.11.2004. DataGrid i TextBoxovi
10.01.2007. kakaoke nema rijeci ??
20.11.2005. Ispisivanje u C#
24.02.2006. Kopiranje iz forme u formu

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.