Bonjour,
Je bute sur une conversion d'un code en VB vers Windev.
Voici la fonction entière. aValue = "0,0,RADIO 1 "
Je n'arrive pas à convertir plus précisément ceci :
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 Private Function SendRT(ByVal aValue As String, ByVal aAppend As Boolean) As Boolean Dim Msg As String Dim Flags As Byte Dim ParamList() As String Msg = ChrB(&HA) & ChrB(CurDSN) & ChrB(CurPSN) ' Empty RT If aValue = "" Then Msg = Msg & ChrB(0) Else ' Not empty, so ParamList = Split(aValue, ",", 3) If UBound(ParamList) <> 2 Then ErrorMsg = "RT need 3 params: Nb Repeat [0-F], Flag A/B [0-1], Message !" Exit Function End If If aAppend Then Flags = Flags Or &H40 Flags = Flags Or ((ParamList(0) And &HF) * 2) If ParamList(1) <> 0 Then Flags = Flags Or 1 If Len(ParamList(2)) > 64 Then ParamList(2) = Left(ParamList(2), 64) Msg = Msg & ChrB(Len(ParamList(2)) + 1) & ChrB(Flags) & StrConv(ParamList(2), vbFromUnicode) End If SendRT = SendMsg(Msg) End Function
Je n'ai pas trouvé dans les docs VB6 de if then or...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 If aAppend Then Flags = Flags Or &H40 Flags = Flags Or ((ParamList(0) And &HF) * 2) If ParamList(1) <> 0 Then Flags = Flags Or 1
Je ne vois pas bien comment convertir Dim Flags As Byte, j'ai mis pour l'instant nMED est entier sans signe sur 1 ?!
Vous avez une idée svp ?
Merci à tous
Partager