Oon teheny form1:seen combo1:sen jossa on lueteltu Moottorit, kannet, putkistot, ym. ym. Kun klikkaa esim. Moottorit textiä ladataan tekstitiedostosta list2:seen erilaisia moottoreita.
Command1:sestä painettaessa list2:sesta valittu osa siirtyy "varastoon" eli list3:seen. Ja nyt pitäisi lisätä list3:sesta valitun osan teho(hv) label1:seen kun painaa "Asennuspainiketta"(command2). Pitääs jokaisella osalla olla oma teho jonka vois varmaan ladata tekxtitiedostosta mutta kuinka???????
Ajattelit sitten, että uusi ketju ja seittemän kysymysmerkkiä antais parempia vastauksia?
Tuosta aiemmasta ketjusta tulkitsen, että osaat jo lukea tiedoston sisällön ListBoxiin.
Minä varmaankin tallentaisin nuo osien tehot samaan paikkaan (tiedostoon) niiden nimien kanssa, esimerkiksi seuraavaan tapaan:
V6, 100hv V8, 150hv V10, 200hv rivi-6, 120hv
Noista on sitten kätevä katsoa kunkin moottorin teho etsimällä pilkku ja lukemalla siitä eteenpäin.
'lstMoottorit on lista, johon on ladattu tiedostosta moottorien tiedot Private Sub lstMoottorit_Click() Dim Rivi As String Dim Pilkku As Integer Dim Teho As Integer 'Otetaan selville, mitä sillä rivillä lukee, jota käyttäjä on klikannut Rivi = lstMoottorit.List(lstMoottorit.ListIndex) 'Haetaan pilkun paikka rivillä Pilkku = InStr(Rivi, ",") 'Luetaan pilkusta eteenpäin lblTeho.Caption = Right$(Rivi, Len(Rivi) - Pilkku - 1) End Sub
Ja anna noille sun kontrolleille paremmat nimet. Noissa List45:ssa kukaan pysy perässä.
Joo kiitoksia vain!!
Onko tuo vb.netiin vai vb6:n?
VB6. .NETissä labelilla ei ole Captionia, vaan text, eikä ole rightia(vaan Microsoft.VisualBasic.Right :).
Aihe on jo aika vanha, joten et voi enää vastata siihen.