miten saan tietylle listbox:in itemille vaikka tiettyjä tietoja ?
listbox.iin menevän asian nimi on kypärä
ja sit voisin laittaa sille painon sekä suojauksen texbox:illa
Niin miten saan juuri tälle itemille noi tiedot jotenkin talteen ? vaikka itemi nousis listalla ylöspäin niin ne pysyis vielä tallella ?
Joku on joskus puhunu mulle jostain type ja dim jutuista mut en tiä.
ja sit lisäisin sen listbox:iin.
eli ku valitsen listbox:ista nyt tämän kypärän niin
label1.caption = 21
label2.caption = 6
(label1 = kypärän paino)
(label2 = kypärän suojaus)
olis kiva jos saisin esimerkki koodin pätkiä... neuvvoja ym.
listbox.iin menevän asian nimi on kypärä
ja sit voisin laittaa sille painon sekä suojauksen texbox:illa
Niin miten saan juuri tälle itemille noi tiedot jotenkin talteen ? vaikka itemi nousis listalla ylöspäin niin ne pysyis vielä tallella ?
Joku on joskus puhunu mulle jostain type ja dim jutuista mut en tiä.
ja sit lisäisin sen listbox:iin.
eli ku valitsen listbox:ista nyt tämän kypärän niin
label1.caption = 21
label2.caption = 6
(label1 = kypärän paino)
(label2 = kypärän suojaus)
olis kiva jos saisin esimerkki koodin pätkiä... neuvvoja ym.
Vastaukset 1
Vanhimmat
ei välttämättä paras, mutta toimii
Private Type HelmetInfo
lIndex As Long
lShiled As Long
lWeight As Long
sName As String * 30
End Type
Dim THelmet(2) As HelmetInfo
Private Sub Form_Load()
Dim l As Long
With THelmet(0)
.lIndex = 1
.lShiled = 21
.lWeight = 6
.sName = "#1-BASIC"
End With
With THelmet(1)
.lIndex = 8
.lShiled = 31
.lWeight = 3
.sName = "#2-SUPER"
End With
With THelmet(2)
.lIndex = 4
.lShiled = 22
.lWeight = 7
.sName = "#3-TURBO"
End With
For l = 0 To UBound(THelmet)
List1.AddItem THelmet(l).sName
Next l
End Sub
Private Sub List1_Click()
Label1.Caption = THelmet(List1.ListIndex).lShiled
Label2.Caption = THelmet(List1.ListIndex).lWeight
End Sub