Discussion :

[aminou914]

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.



Merci d'avance.

[ProgElecT]

Salut

Au départ, le code source est de toi ?
Si oui, la modification est apparut lors de l'ouverture de ton projet ?

[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".

[ProgElecT]

Re

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.

[aminou914]

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).



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

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
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