Private Sub txtTerm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Test As String Select Case Button Case 2 'Click droit Test = Clipboard.GetText Call Coller(Test) End Select End Sub Private Function Coller(Trou As String) Dim Tableau() As String Dim i As Integer Tableau = Split(Trou, vbCrLf) For i = 0 To UBound(Tableau) Conf.MSComm1.Output = Tableau(i) & vbCrLf Sleep (50) Next i End Function
' L'événement OnComm est utilisé pour récupérer des événements et des erreurs de communication. Private Static Sub MSComm1_OnComm() ' Sélectionne en fonction de la propriété CommEvent. Select Case MSComm1.CommEvent ' Messages d'événement. Case comEvReceive Buffer = MSComm1.Input 'Debug.Print "Réception - " & StrConv(Buffer, vbUnicode) ShowData txtTerm, Buffer Case comEvSend Case comEvCTS End Select End Sub
Private Sub txtTerm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Exit Sub End Sub
Private Sub txtTerm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Conf.Cacher End If End Sub
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long Private Sub txtTerm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then ReleaseCapture PopupMenu Conf.Cacher End If End Sub
Private Sub txtTerm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then txtTerm.Enabled = False txtTerm.Enabled = True PopupMenu Conf.Cacher End If End Sub
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.