Bonjour à tous,
je cherche a déterminer la version de Visual Basic utilisée afin de modifier un programme existant, l'entreprise doit acheter une version de VB mais laquelle ? Je ne connais rien à rien en VB.
Est-ce que le fait de voir écrit "VERSION 5.00" est une indication sur la version de Visual Basic à utiliser ou bien la version du fichier ?
Je vous remercie.
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230 VERSION 5.00 Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX" Begin VB.Form DocListeProjet Caption = "Liste des projets" ClientHeight = 6675 ClientLeft = 60 ClientTop = 345 ClientWidth = 10470 LinkTopic = "Form1" ScaleHeight = 6675 ScaleWidth = 10470 StartUpPosition = 3 'Windows Default Begin VB.CommandButton annuler Caption = "Annuler" Height = 375 Left = 7200 TabIndex = 4 Top = 6120 Width = 1335 End Begin VB.CommandButton valider Caption = "Valider" Height = 375 Left = 8880 TabIndex = 3 Top = 6120 Width = 1335 End Begin VB.CommandButton rechercher Caption = "Rechercher" Height = 255 Left = 8880 TabIndex = 2 Top = 360 Width = 1335 End Begin VB.TextBox Text1 Height = 285 Left = 5640 TabIndex = 1 Top = 360 Width = 3135 End Begin MSDBGrid.DBGrid DBGrid1 Bindings = "DocListeProjet.frx":0000 Height = 5175 Left = 240 OleObjectBlob = "DocListeProjet.frx":0014 TabIndex = 0 Top = 720 Width = 9975 End Begin VB.Data Data1 Caption = "Data1" Connect = "Access" DatabaseName = "" DefaultCursorType= 0 'DefaultCursor DefaultType = 2 'UseODBC Exclusive = 0 'False Height = 300 Left = 240 Options = 0 ReadOnly = 0 'False RecordsetType = 1 'Dynaset RecordSource = "" Top = 6240 Visible = 0 'False Width = 1140 End Begin VB.Line Line1 Index = 3 X1 = 5400 X2 = 2280 Y1 = 6480 Y2 = 6480 End Begin VB.Line Line1 Index = 2 X1 = 5400 X2 = 2280 Y1 = 6000 Y2 = 6000 End Begin VB.Line Line1 Index = 1 X1 = 5400 X2 = 5400 Y1 = 6000 Y2 = 6480 End Begin VB.Line Line1 Index = 0 X1 = 2280 X2 = 2280 Y1 = 6000 Y2 = 6480 End Begin VB.Label Label3 BackStyle = 0 'Transparent Caption = "Sélectionnez un projet :" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 7 Top = 360 Width = 2295 End Begin VB.Label Label2 BackStyle = 0 'Transparent Caption = "_" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 3960 TabIndex = 6 Top = 6120 Width = 1695 End Begin VB.Label Label1 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Projet sélectionné :" Height = 255 Left = 2400 TabIndex = 5 Top = 6120 Width = 1455 End Begin VB.Image Image1 Height = 11520 Left = 0 Picture = "DocListeProjet.frx":0BAB Top = 0 Width = 15360 End End Attribute VB_Name = "DocListeProjet" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load() DocListeProjet.Top = AltoPantalla - (((AltoPantalla - DocListeProjet.Height) / 2) + DocListeProjet.Height) DocListeProjet.Left = AnchoPantalla - (((AnchoPantalla - DocListeProjet.Width) / 2) + DocListeProjet.Width) 'DBGrid1 DBGrid1.AllowUpdate = False Data1.DatabaseName = BaseDatos rechercher_Click End Sub Private Sub rechercher_Click() 'Moteur de recherche des projets Data1.RecordSource = "SELECT CodeProjet,Client,Description FROM Projets WHERE CodeProjet not like 'z_*' and (CodeProjet like ""*" & Text1.Text & "*"" or Client like ""*" & Text1.Text & "*"" or Description like ""*" & Text1.Text & "*"") order by CodeProjet asc" Data1.Refresh End Sub Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If DBGrid1.ApproxCount <> 0 Then Label2.Caption = Data1.Recordset("CodeProjet") Else Label2.Caption = "" End If End Sub Private Sub annuler_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then rechercher_Click End If End Sub Private Sub valider_Click() If Label2.Caption <> "" And Label2.Caption <> "_" Then Set WS = DBEngine.Workspaces(0) Set bd = WS.OpenDatabase(BaseDatos, False, False) 'Test si ce projet est déjà référencé deja_reference = False pregunta = "SELECT Document FROM Documents WHERE Document=""" & Label2.Caption & """" Set rs = bd.OpenRecordset(pregunta, dbOpenDynaset) If Not rs.EOF Then deja_reference = True End If 'Renvoyer les données vers le form DocAjouter encours If deja_reference = False Then pregunta = "SELECT Client,Description FROM Projets WHERE CodeProjet=""" & Label2.Caption & """" Set rs = bd.OpenRecordset(pregunta, dbOpenDynaset) DocAjouter.Text1.Text = Label2.Caption DocAjouter.Text2(0).Text = "" DocAjouter.Text2(2).Text = "" If rs.Fields(0) <> "" Then DocAjouter.Text2(0).Text = rs.Fields(0) If rs.Fields(1) <> "" Then DocAjouter.Text2(2).Text = rs.Fields(1) bd.Close Unload Me Else MsgBox "Ce projet a déjà été référencé dans la base de document.", vbInformation End If Else MsgBox "Aucun projet n'a été sélectionné.", vbInformation End If End Sub
Partager