ListBox conversion
essenge11
Messages postés
14
Date d'inscription
lundi 4 mai 2009
Statut
Membre
Dernière intervention
11 février 2011
-
7 juin 2009 à 11:10
essenge11 Messages postés 14 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 11 février 2011 - 7 juin 2009 à 20:03
essenge11 Messages postés 14 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 11 février 2011 - 7 juin 2009 à 20:03
3 réponses
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
7 juin 2009 à 11:41
7 juin 2009 à 11:41
C'est du vb.net et pas du vb6
Premier point le post n'est pas trop lisible
Apres les () apres les textbox il faut les enlever
Private Sub Button1_Click
Dim d As Single '###
variable appliqué au TextBox2 #####################
If
TextBox2.Text < 0.002527 Then
ListBox1.Text = "1"""
End If
If
TextBox2.Text >= 0.002527 And TextBox2.Text < 0.00537 Then
ListBox1.GetItemText("1.25""" & " ou 1.5""")
End If
If
TextBox2.Text >= 0.10727 And TextBox2.Text < 0.15144 Then
ListBox1.GetItemText("5""" & " ou 6""")
End If
end sub
Il reste plus qu'a trouvé la fonction vb6 qui correspond à GetItemText
Premier point le post n'est pas trop lisible
Apres les () apres les textbox il faut les enlever
Private Sub Button1_Click
Dim d As Single '###
variable appliqué au TextBox2 #####################
If
TextBox2.Text < 0.002527 Then
ListBox1.Text = "1"""
End If
If
TextBox2.Text >= 0.002527 And TextBox2.Text < 0.00537 Then
ListBox1.GetItemText("1.25""" & " ou 1.5""")
End If
If
TextBox2.Text >= 0.10727 And TextBox2.Text < 0.15144 Then
ListBox1.GetItemText("5""" & " ou 6""")
End If
end sub
Il reste plus qu'a trouvé la fonction vb6 qui correspond à GetItemText
essenge11
Messages postés
14
Date d'inscription
lundi 4 mai 2009
Statut
Membre
Dernière intervention
11 février 2011
7 juin 2009 à 19:57
7 juin 2009 à 19:57
...
If TextBox2.Text < 0.002527 Then
With Me.ListBox1.Items
.Add("1""")
End With
End If
If TextBox2.Text >= 0.002527 And TextBox2.Text < 0.00537 Then
With Me.ListBox1.Items
.Add("1.25""" & " ou 1.5""")
End With
If TextBox2.Text >= 0.10727 And TextBox2.Text < 0.15144 Then
With Me.ListBox1.Items
.Add("5""" & " ou 6""")
End With
End If
End sub
Trouver sur VB Express
et merci.
If TextBox2.Text < 0.002527 Then
With Me.ListBox1.Items
.Add("1""")
End With
End If
If TextBox2.Text >= 0.002527 And TextBox2.Text < 0.00537 Then
With Me.ListBox1.Items
.Add("1.25""" & " ou 1.5""")
End With
If TextBox2.Text >= 0.10727 And TextBox2.Text < 0.15144 Then
With Me.ListBox1.Items
.Add("5""" & " ou 6""")
End With
End If
End sub
Trouver sur VB Express
et merci.
essenge11
Messages postés
14
Date d'inscription
lundi 4 mai 2009
Statut
Membre
Dernière intervention
11 février 2011
7 juin 2009 à 20:03
7 juin 2009 à 20:03
If TextBox2.Text < 0.002527 Then
With Me.ListBox1.Items
.Add("1""")
End With
End If
With Me.ListBox1.Items
.Add("1""")
End With
End If