[ IvanZD @ 14.08.2004. 00:18 ] @
Pozdrav forumu! Imam jedan problem.. zapeo sam evo vec 2 dana na tome i nema nekog napretka.. a stvar je sigurno trivijalna, samo sto ja ne vidim u cemu je stos. Je, priznajem, totalni sam newbie, u tome je stos.. al ako bi mogli pomoci, bio bih jako zahvalan! Pojednostavniti cu koliko god mogu da olaksam i sebi i vama (nadam se da ce netko imati zivaca da pomogne). Rijec je o VB.NET. Recimo da imam jednu formu sa 3 textboxa jednim iznad drugog. Nisu u arrayu. Redom, TextBox1, TextBox2 i TextBox3. Neka sam na formu postavio ContextMenu1 i pridodao mu dvije naredbe, "odvuci gore" i "odvuci dolje"; tj. MenuItem1 i MenuItem2. Neka sam na sve tekstboxove nakacio ContextMenu1. Sto sad trebam dobit? Zelim da mi naredbe iz desnog klika misom po textboxovima sortiraju tekst koji je u njima upisan, i ovako: Kad right-kliknem recimo na TextBox2 i odaberem "odvuci gore", tekst koji je bio u njemu se mora pojaviti u textboxu 1, a onaj iz textboxa 1 treba otic u textbox2. Slicno kad kliknem "odvuci dolje"... onda se trebaju zamijeniti sadrzaji dvojke i trice - dvojka ide dolje, trica u sredinu. Kakav kod mi treba? Evo dva dana razmisljam i nista.. problem je u tome sto recimo... (kod samo za klikat na dvojku, radi pojednostavljenja) : Private Sub TextBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseDown TextBox2.Focus() End Sub ' zasto ovo iznad? zato da kad napravim right-click na textbox2 da ' on dobije focus.. ne znam kako drugo da kazem programu ' da izvrsi naredbu nad BAS ONIM textboxom nad kojim sam ' kliknuo - u tome lezi osnova problema! No, evo nastavka ideje: Private Sub MenuItem1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem1.Click Dim spremnik As String If TextBox2.Focus = True spremnik = TextBox2.Text ' spremam sadrzaj dvojke u varijablu TextBox2.Text = TextBox1.Text ' kopiram sadrzaj jedinice u dvojku TextBox1.Text = spremnik ' izbacujem sadrzaj varijable u textbox1 end if End Sub Ovom operacijom zamijenjeni su sadrzaji textboxova i to sljaka OK. Medjutim, ono sto ne sljaka, koliko sam uspio zakljuciti iz izvodjenja step-by-step, je to sto provjera "If TextBox2.Focus = True" uvijek prolazi, bez obzira da li textbox2 ima focus ili ne. Jos bi tu dosle iste takve private sub za textbox1 i textbox3 sa provjerom posjedovanja focusa. Nadam se da ste shvatiti problem i da mi mozete pomoci. Vjerojatno to treba rijesiti nekako drugacije umjesto ove zafrkancije oko focusa... Puno hvala unaprijed! |