Private Sub Button1_Click() Button2_Click End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionText2.SelStart = Len(Text2.Text) SendKeys "{ENTER}"
Private Sub Command3_click() txtIn = "" Text2 = "SST|4|" Text2.SetFocus Text2.SelStart = Len(Text2.Text) SendKeys "{ENTER}" End Sub ------------------------------------- Private Sub Command8_Click() Winsock1.SendData Text2.Text End Sub
Dim Valeur As Integer Valeur = Val(Mid(TextBox2.Text, 4, 1)) MsgBox Choose(Valeur-1, "Hors ligne", "En ligne")
Dim X As String Dim Valeur As Integer X$ = "" If Len(TextBox2.Text) >= 4 Then 'Controle la longueur de TextBox2 Valeur = Val(Mid(TextBox2.Text, 4, 1)) 'On en retient le 4ème caractère Select Case Valeur Case 2, 3 'On sélectionne uniquement les valeurs 2 et 3 X$ = Choose(Valeur - 1, "Hors ligne", "En ligne") End Select End If If X$ <> "" Then MsgBox X$ Else MsgBox "Invalide" End If