VB6 Tutorial 1 (Text Generator)I will teach you how to make a text generator in VB6. The Code for the Command Button is: Private Sub Command1_Click() Dim key As Integer key = Int(Rnd() * 6) Select Case key Case 1 text1.Text = "1" Case 2 text1.Text = "2" Case 3 text1.Text = "3" Case 4 text1.Text = "4" Case 5 text1.Text = "5" End Select End Sub code pour embarquer la vidéo : >>> http://www.youtube.com/embed/0Ymz0sYSjWI <<< |