[es] - Povezivanje 2 text boxa

Milos Dedijer
Čačak-Beograd

Član broj: 25147
Poruke: 1039
*.dial.InfoSky.Net.

Profil

^{21.02.2005. u 21:52}

E ovako. Radim nekakav glupi txtEditor i sad mi treba zbog wordwrap-a da imam 2 text boxa, neka bude text1 i text3

Kako da ih linkujem tako da kada predjem sa onog koji ima scrollbars - 3 na onaj sa scrollbars - 2 vertical da prenesem text tako da bude isti. E to sam provalio donekle, ali meni treba da non-stop ono sto pisse u text1 pise i u text3.

E za sad ja sljakam na ovome:

Code:

Private Sub mnuWordwrap_clicked()
text1.text = text3.text
End Sub

Naravno ovo je samo deo ovog dela...

Znaci ne treba mi da kad svaki put clicknem na dugme ono prebaci tekst iz text1 u text3 vec da non-stop ono sto ukucam u text1 bude i u text3...

E sad ako je neko razumeo nek odgovori...

Za pocetak nek neko samo kaze da je to moguce... posle cu lako...

When you play Microsoft Windows CD backwards you`ll hear demons... That's nothing, when you play it normally it installs windows!

>>> Kvalitet domaceg novinarstva <<<

^{21.02.2005. u 21:52}

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com

Profil

Re: Povezivanje 2 text boxa

^{21.02.2005. u 23:12}

Ako sam te dobro razumeo, onda bi ubacivanje Text3.Text = Text1.Text u Change Event Text1 kontrole trebalo da odradi stvar (dakle svako slovo koje ukucaš u Text1 će automatski biti ukucano i u Text3).Ali i dalje ne razumem zašto ti treba 2 textbox-a.

-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

^{21.02.2005. u 23:12}

b3|2A

Član broj: 28083
Poruke: 84
*.max.sa-vo.bih.net.ba.

Profil

Re: Povezivanje 2 text boxa

^{22.02.2005. u 00:05}

Private Sub Text1_Change()
Text3.Text = Text1.Text
End Sub
Ako sam te razumeo tebi treba ovo

^{22.02.2005. u 00:05}

Milos Dedijer
Čačak-Beograd

Član broj: 25147
Poruke: 1039
*.dial.InfoSky.Net.

Profil

Re: Povezivanje 2 text boxa

^{22.02.2005. u 19:00}

Ja sam idijot...
Treba mi ono iznad...

Citat:

Marko_L: Ali i dalje ne razumem zašto ti treba 2 textbox-a.

Koliko ja znam ne mogu da menjam scrollbars iz coda... Da l` gresim... pa zar opet...

When you play Microsoft Windows CD backwards you`ll hear demons... That's nothing, when you play it normally it installs windows!

>>> Kvalitet domaceg novinarstva <<<

^{22.02.2005. u 19:00}

Re: Povezivanje 2 text boxa

^{22.02.2005. u 19:53}

Citat:

Koliko ja znam ne mogu da menjam scrollbars iz coda... Da l` gresim... pa zar opet...

Pa ne razumem zašto bi ih menjao iz koda.Staviš lepo property scrollbars na 3 - Both (oba) i podesiš property multiline na true i dobiješ klasičan text editor koji može da se skroluje i horizontano i vertikalno po potrebi.

^{22.02.2005. u 19:53}

Milos Dedijer
Čačak-Beograd

Član broj: 25147
Poruke: 1039
*.dial.InfoSky.Net.

Profil

Re: Predlog za novi podforum...

^{22.02.2005. u 20:51}

Ali covece kod wordwrapa ne treba da imam horizontalni scroll...

When you play Microsoft Windows CD backwards you`ll hear demons... That's nothing, when you play it normally it installs windows!

>>> Kvalitet domaceg novinarstva <<<

^{22.02.2005. u 20:51}

Aleksandar Ružičić
Aleksandar Ružičić
Junior Developer, Spoonlabs d.o.o
20°27'46'' - 44°48'8''

SuperModerator
Član broj: 26939
Poruke: 2355
*.yu1.net.

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

Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 10:46}

pa onda koristi nesto nalik na ovo:

Code:

Dim WordWrap As Boolean 'deklaracija na vrhu forme
Sub mnuWordWrap_Click()
  WordWrap = Not WordWrap
  mnuWordWrap.Checked = WordWrap

   Text1.Visible = WordWrap'Text1 ima samo Horisontal slider
   Text2.Visible = Not WordWrap 'Text2 ima Both
End Sub

Vivvo CMS

_{jQuery addict!}

^{23.02.2005. u 10:46}

Milos Dedijer
Čačak-Beograd

Član broj: 25147
Poruke: 1039
*.blueisp.co.yu.

Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 11:44}

Pa znas da to i koristim krcko bwe...

Ma uradio sam to...

When you play Microsoft Windows CD backwards you`ll hear demons... That's nothing, when you play it normally it installs windows!

>>> Kvalitet domaceg novinarstva <<<

^{23.02.2005. u 11:44}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 9015
*.etf.bg.ac.yu.

Sajt: www.diskusije.net

Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 12:28}

A zasto ne bi premestao sadrzaja pri ukljucivanju i iskljucivanju WordWrap-a? Bice optimizovanije jer se kopiranje sadrzaja vrsi samo povrmeno umesto pri svakoj promeni (korisnik ionako ne vidi oba TextBox-a pa nije potrebna realtime sinhronizacija).

^{23.02.2005. u 12:28}

Milos Dedijer
Čačak-Beograd

Član broj: 25147
Poruke: 1039
*.blueisp.co.yu.

Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 19:22}

Znam, znam... To sam prvo pokusao ali nije radilo pa sam presao na ovo... Al to sad nije bitno...

Sada mi ne radi saveas, save, open... uopste ne otvara common dijaloge... :D

Ufff... al smaram... al evo

Code:

Private Sub mnuFileOpen_Click()
    CommonDialog1.CancelError = True
On Error GoTo ErrHandler 'Prilikom greske prelazi na ErrHandler: deo koda...
    CommonDialog1.Filter = "All Files (*.*)|*.*|" & _
    "Text Files (*.txt)|*.txt|" & _
    "Batch Files (*.bat)|*.bat|" & _
    "Web Page (*.htm)|*.htm|" & _
    "Rich Text Format (*.rtf)|*.rtf"
    CommonDialog1.FilterIndex = 1 'Filter odlucuje koji ce file moci da bude otvoren, neki tipovi filea ne mogu da rade bez pozivanja .dll fajlova i slicnog
    CommonDialog1.ShowOpen
    strFileName = CommonDialog1.FileName
    Open strFileName For Input As #1
    Text3.Text = Input(LOF(1), 1)
    Close #1
Exit Sub
ErrHandler:
End Sub

Private Sub mnuFileSave_Click()
    If strFileName <> "" Then   'proverava da li je fajl vec sniman
        Open strFileName For Output As #1
        Print #1, Text3.Text   'izbacuje sadrzaj text1 tekst boxa u fajl
        Close #1
    Else
        Call mnuFileSaveAs_Click 'Ukoliko fajl vec nije snimljen poziva se Save As funkcija i preko nje se snima, naravno ukoliko nemate Save As ni ovaj deo koda nece raditi.
    End If
End Sub

Private Sub mnuFileSaveAs_Click()
    CommonDialog1.CancelError = True
On Error GoTo ErrHandler
    CommonDialog1.Filter = "Text Files (*.txt)|*.txt|" & _
    "Batch Files (*.bat)|*.bat|" & _
    "Web Page (*.htm*)|*.htm*|" & _
    "Rich Text Format (*.rtf)|" & _
    CommonDialog1.FilterIndex = 1 'Filteri koji su iznad odlucuju tip fajla koji snimamo
    CommonDialog1.ShowSave
    strFileName = CommonDialog1.FileName
    Open strFileName For Output As #1
    Print #1, Text3.Text
    Close #1
Exit Sub
ErrHandler:
End Sub

ja ne mogu da nadjem gresku... pomagajte...

When you play Microsoft Windows CD backwards you`ll hear demons... That's nothing, when you play it normally it installs windows!

>>> Kvalitet domaceg novinarstva <<<

^{23.02.2005. u 19:22}

Re: Povezivanje 2 text boxa

^{23.02.2005. u 19:54}

Pa izbaci one error hendlere, pa vidi koju ti grešku izbacuje i gde.

^{23.02.2005. u 19:54}