Contrôles "Rey" et port de VB6 à VB.Net

Version imprimable

25/06/2017, 19h15
aminou914

1 pièce(s) jointe(s)

Contrôles "Rey" et port de VB6 à VB.Net

Bonjour tout le monde,

J'ai une question peu bizarre et c'est la première fois que je retrouve ce phénomène de "Rey" ^^'

Je retrouve "Reycommand", "Reytextbox" et autres ; et le type du contrôle est PictureBox, alors durant son exécution, il agit comme un textbox normal.

Pièce jointe 288928

Merci d'avance.
25/06/2017, 20h12
ProgElecT

Salut

Au départ, le code source est de toi ?
Si oui, la modification est apparut lors de l'ouverture de ton projet ?
25/06/2017, 20h53
aminou914

Merci pour votre réponse.

Non, ce n'est pas moi qui implémenter le code.

Au fait mon but est de refaire l'application, qui est en VB6, sur Visual Studio en VB.net, et je ne sais pas par quoi commencer avec tous ces "Rey".
25/06/2017, 22h42
ProgElecT

Re

Citation:

mon but est de refaire l'application, qui est en VB6, sur Visual Studio en VB.net

Je ne saurai t'aider pour la transformation de VB6 en VB.net, par contre il semblerait que les noms de chaque composant soit les noms par défaut, qui indique le type de composant, donc tu pourrais reconstruire sous VB.net facilement car le type de composant porte le même nom que sous VB6.

Par curiosité, pourrais tu mettre un peu du code comme tu l'as actuellement sous VB6.

3 pièce(s) jointe(s)

Ok, je vais m'en servir des noms des contrôles.

Pour le code, oui, sauf que le code intègre même le component "Com" (Un autre contrôle servant de communication extérieure avec un automate).

Pièce jointe 288983 Pièce jointe 288988

L'équivalent de ce contrôle, j'imagine c'est le "SerialPort" en visual studio :Pièce jointe 288989

Code:

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
Set appExcel = CreateObject("Excel.Application")
Set WbExcel = appExcel.Workbooks.Open("C:\essai5.xls")
Set WsExcel = WbExcel.Worksheets(1)
i = 1
 
While WsExcel.Cells(i, 1).Value <> Empty
i = i + 1
Wend
ReyProgressBar1.Visible = False
'---------------------------------------------   PLC  ----------------------------------
With CPUComm
 
        .CommPort = 3
 
        .Handshaking = 0
 
        .RThreshold = 5
 
        .RTSEnable = True
 
        .Settings = "9600,e,7,2"
 
        .SThreshold = 5
 
    If .PortOpen = True Then
    .PortOpen = False
    .PortOpen = True
    End If
End With
 
If CPUComm.PortOpen = False Then
CPUComm.PortOpen = True
End If
Private Sub ReyCommand1_Click()
 
If CPUComm.PortOpen = False Then
CPUComm.PortOpen = True
End If
If CPUComm.PortOpen = True Then
ReyCommand1.BackColor = "&H0000FF00"
ReyCommand1.Caption = "Port ouvert"
ReyCommand2.BackColor = "&H00C0C0C0"
ReyCommand2.Caption = "Fermer la communication"
End If
Text1.SetFocus
Text1.SelStart = 0
End Sub