Keskustelu: Ohjelmointikysymykset: VB6: laatikko

aika norbuu mut miten sellasee avattavaa veto laatikkoo saa valinta vaihtoehtoja??

Tarkoitat ComboBoxia vai? No siellä on sellainen List-ominaisuus. Sinne lisäät.

Tai ajon aikana AddItem -metodilla.

Ite käytän tota AddItem metodia, koska ei jaksa alkaa kirjottamaan siihen list ominaisuuteen ja koodista on helpompi hallita niitä.

Muista ettei tossa oo = merkkiä (list1.additem "joku)

Private Sub Combo1_Change()
list1.AddItem "servu 2"
list2.AddItem "servu 6"
list3.AddItem "servu9"
list4.AddItem "servu12"
list5.AddItem "servu 16"
list6.AddItem "servu 18"

End Sub

mitä tälle pitäs tehä ku tää ei toimi

laita

Private Sub Form_Load() 'eli kun formi latautuu
List1.AddItem "servu 2" 'lisätään hommat
List1.AddItem "servu 6"
List1.AddItem "servu9"
List1.AddItem "servu12"
List1.AddItem "servu 16"
List1.AddItem "servu 18"
End sub

äsken lisäsit moneen comboon, ja silloin, kun niitä vaihdetaan

tai tälleen

combo1.AddItem "servu1"
combo1.AddItem "servu2"
combo1.AddItem "servu3"
combo1.AddItem "servu4"
combo1.AddItem "servu5"

Private Sub Combo1_Change()
Private Sub Form_Load() 'eli kun formi latautuu
List1.AddItem "servu 2" 'lisätään hommat
List1.AddItem "servu 6"
List1.AddItem "servu9"
List1.AddItem "servu12"
List1.AddItem "servu 16"
List1.AddItem "servu 18"
End Sub

ei toimi vielläkää
eikä tätä saa siihen boxii se menee aina formii ja koko homma menee paskak

elkku kirjoitti:

Private Sub Combo1_Change()
Private Sub Form_Load() 'eli kun formi latautuu

Pelkästään Private sub Form_Load() ei mitään Combo1_Change()

Private Sub Form_Load() 'eli kun formi latautuu
Combo1.AddItem "servu 2" 'lisätään hommat
Combo1.AddItem "servu 6"
Combo1.AddItem "servu9"
Combo1.AddItem "servu12"
Combo1.AddItem "servu 16"
Combo1.AddItem "servu 18"
End Sub

Tommonen koodiin!

Tohon vielä List1:n tilalle Combo1, jos ComboBoxia tarkoitit
edit jahas, se korjattiinkin jo

viel yks juttu miten sen saa sillle että valitsee esim servu 6 ja se menee sinne sivuille
tähän tyylii
https://www.ohjelmointiputka.net/keskustelu/3900-visual

Jotain tämmöstä:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Combo1_click()
Dim osote As String
If Combo1.Text = "servu 2" Then
osote = kaksi
Else
End If
If Combo1.Text = "servu 6" Then
osote = kuusi
Else
End If
If Combo1.Text = "servu 9" Then
osote = yheksän
Else
End If
If Combo1.Text = "servu 12" Then
osote = kaksitoista
Else
End If
If Combo1.Text = "servu 16" Then
osote = kuusitoista
Else
End If
If Combo1.Text = "servu 18" Then
osote = kaheksantoista
Else
End If
ShellExecute 0&, vbNullString, osote, vbNullString, vbNullString, vbNormalFocus
End Sub

Private Sub Form_Load()
Dim kaksi As String
Dim kuusi As String
Dim yheksän As String
Dim kaksitoista As String
Dim kuusitoista As String
Dim kahdeksantoista As String
kaksi = "http://servu2.com"
kuusi = "http://servu6.com"
yheksän = "http://servu9.com"
kaksitoista = "http://servu12.com"
kuusitoista = "http://servu16.com"
kahdeksantoista = "http://servu18.com"
Combo1.AddItem "servu 2" 'lisätään hommat
Combo1.AddItem "servu 6"
Combo1.AddItem "servu 9"
Combo1.AddItem "servu 12"
Combo1.AddItem "servu 16"
Combo1.AddItem "servu 18"
End Sub

Ja tuon kaiken olisi voinut tehdä selectillä.. Toi on nimittäin todella sotkusen näköstä bill ;)

Nojoo, en oo vielä opetellu Comboa..