[es] - Povezivanje 2 text boxa

Milos Dedijer
SQA Engineer
Čačak/Beograd

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

+10 Profil

^{21.02.2005. u 21:52 - pre 246 meseci}

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...

Make me a sandwich!
What? Make it yourself.
sudo Make me a sandwich!
Okay!

[url=http://blog.b92.net/user_stuff/uplo
ad/600/luter.1600.jpg] Martin Luter?
[/url]

Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Povezivanje 2 text boxa

^{21.02.2005. u 23:12 - pre 246 meseci}

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

Odgovor na temu

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 - pre 246 meseci}

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

Odgovor na temu

Milos Dedijer
SQA Engineer
Čačak/Beograd

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

+10 Profil

Re: Povezivanje 2 text boxa

^{22.02.2005. u 19:00 - pre 246 meseci}

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...

Make me a sandwich!
What? Make it yourself.
sudo Make me a sandwich!
Okay!

[url=http://blog.b92.net/user_stuff/uplo
ad/600/luter.1600.jpg] Martin Luter?
[/url]

Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Povezivanje 2 text boxa

^{22.02.2005. u 19:53 - pre 246 meseci}

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.

Odgovor na temu

Milos Dedijer
SQA Engineer
Čačak/Beograd

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

+10 Profil

Re: Predlog za novi podforum...

^{22.02.2005. u 20:51 - pre 246 meseci}

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

Make me a sandwich!
What? Make it yourself.
sudo Make me a sandwich!
Okay!

[url=http://blog.b92.net/user_stuff/uplo
ad/600/luter.1600.jpg] Martin Luter?
[/url]

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: Povezivanje 2 text boxa

^{23.02.2005. u 10:46 - pre 246 meseci}

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

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Milos Dedijer
SQA Engineer
Čačak/Beograd

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

+10 Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 11:44 - pre 246 meseci}

Pa znas da to i koristim krcko bwe...

Ma uradio sam to...

Make me a sandwich!
What? Make it yourself.
sudo Make me a sandwich!
Okay!

[url=http://blog.b92.net/user_stuff/uplo
ad/600/luter.1600.jpg] Martin Luter?
[/url]

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12882

+4827 Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 12:28 - pre 246 meseci}

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

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Odgovor na temu

Milos Dedijer
SQA Engineer
Čačak/Beograd

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

+10 Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 19:22 - pre 246 meseci}

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...

Make me a sandwich!
What? Make it yourself.
sudo Make me a sandwich!
Okay!

[url=http://blog.b92.net/user_stuff/uplo
ad/600/luter.1600.jpg] Martin Luter?
[/url]

Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Povezivanje 2 text boxa

^{23.02.2005. u 19:54 - pre 246 meseci}

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

Odgovor na temu