Dupli klik na listbox !

Dupli klik na listbox ! 05.02.2008. u 14:48 · pre 228 meseci #1

Kako da na dupli klik sa listbox-a ubacim selektovani naziv u GridKontrolu i da mi automatski dodaje novi artikal u gridkontrolu koji budem dvaputa klikao sa listbox-a !

Probaosam sa ovim cod-om

Me.gridOprema.Columns(0) = Val(lstOprema.Text)

Ali ovo mi samo ubaci jedan i to u prvu kolonu

Meni treba Šifru artikla u prvu kolonu gridkontrole a Naziv u drugu kolonu !

Evo slika !

Re: Dupli klik na listbox ! 05.02.2008. u 15:22 · pre 228 meseci #2

Code:
grid.TextMatrix(i, 1) = "NAZIV"
grid.TextMatrix(i, 2) = "CIJENA"
grid.TextMatrix(i, 3) = "KOLICINA"
grid.TextMatrix(i, 4) = "VRIJEDNOST"

gdje ti je i varijabla broj reda

Re: Dupli klik na listbox ! 06.02.2008. u 12:46 · pre 228 meseci #3

Evo sad cu da probam !

uffff vo nece,sta ti je ovo "i"

Nekontam kako ce ovo sa listbox-a ubaciti

da netreba ubaciti vo dim i as long

1.jpg9.85k

Re: Dupli klik na listbox ! 06.02.2008. u 13:49 · pre 228 meseci #4

rece ti covek da ti je i varijabla broja reda....

Re: Dupli klik na listbox ! 06.02.2008. u 20:30 · pre 228 meseci #5

Ali jednostavno nekuzim kako bih ovaj cod glasio prema mojoj slici.

Dali to ide ovako

Dim i as string

a ovdje nevidim nigdje da se spominje naziv list box/a

Re: Dupli klik na listbox ! 07.02.2008. u 09:04 · pre 228 meseci #6

Ako imas listbox napunjen necim i flex grid onda ti je ovo code :

Code:
Dim i As Integer

Private Sub Form_Load()
i = 1
End Sub

Private Sub List1_Click()

MSFlexGrid1.TextMatrix(i, 1) = List1.Text
i = i + 1
MSFlexGrid1.Rows = i + 1
End Sub

Re: Dupli klik na listbox ! 12.02.2008. u 15:15 · pre 227 meseci #7

Uhhhhhhhh ovo radi samo sto mi ubacuje kompletan naziv sa list boksa u grid prve kolone, a trebalobi sifru sa listbox-a da ubacuje u prvu kolonu grid-a a naziv iz listbox-a u drugu kolonu grida !

Re: Dupli klik na listbox ! 13.02.2008. u 09:27 · pre 227 meseci #8

Onda samo treba josh da dodash ovo parche koda:

Code:

MSFlexGrid1.TextMatrix(i, 2) = List1.ListItem(List1.ListIndex)

ListItem property je broj, i zgodan je bash za chuvanje sifri proizvoda i slichnih brojeva. Ili, ako ne chuvash shifru tu, onda mozhesh iz List property-a da izvucheshm sledetjim kodom:

Code:

MSFlexGrid1.TextMatrix(i, 2) = Left(List1.List(List1.ListIndex),1,InStr(List1.List(List1.ListIndex),Chr(32)))

Ovo List1.List(List1.ListIndex) mozhesh da zamenish sa List1.Text, meni je navika da pristupam elementima ListBoxa preko List property-a, i ListIndex-a...

Potpis

- SKRati link - JaZaKraljevo.rs -

"I have never let my schooling interfere with my education." - Mark Twain

Forum kao aplikacija na telefonu

Srodne teme