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 ?
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
Je vous remercie.