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!