Bonjour à tous,
Je souhaite me mettre à VB6(je sais qu'il est dépassé, mais...). Bref, je n'arrive pas à ouvrir le port com.
Sil vous plait, aidez-moi. Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub OpenPort_Click()
Dim a As String
  Dim b As String
  Dim c As String
  Dim d As String
  Dim aa As String
  Dim e As Integer
  
Select Case Combo1.ListIndex = "1,2,3,4"  // Erreur d'exécution '13' : Type incompatible
     
        Case Combo1.ListIndex = "1"
        e = 1
        Case Combo1.ListIndex = "2"
        e = 2
        Case Combo1.ListIndex = "3"
        e = 3
         Case Combo1.ListIndex = "3"
        e = 4
End Select




Select Case Combo2.ListIndex = "1,2,3,4"
        
        
        Case Combo2.ListIndex = "1"
        a = 4800
        Case Combo2.ListIndex = "2"
        a = 9600
       Case Combo2.ListIndex = "3"
        a = 19200
        Case Combo2.ListIndex = "4"
       a = 38400
  End Select

  

  
Select Case Combo3.ListIndex = "1,2,3"
        Case Combo3.ListIndex = "1"
        b = "N"
        Case Combo3.ListIndex = "2"
        b = "o"
        Case Combo3.ListIndex = "3"
        b = "e"
   End Select