-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathForm1.frm
313 lines (300 loc) · 8.51 KB
/
Form1.frm
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
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00FFFFFF&
Caption = "Form1"
ClientHeight = 8190
ClientLeft = 225
ClientTop = 570
ClientWidth = 11760
LinkTopic = "Form1"
ScaleHeight = 8190
ScaleWidth = 11760
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.CommandButton Command2
Height = 615
Left = 480
Picture = "Form1.frx":0000
Style = 1 'Graphical
TabIndex = 1
Top = 3000
Width = 2055
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "Calibri"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
ItemData = "Form1.frx":0C94
Left = 14400
List = "Form1.frx":0CA4
TabIndex = 0
Text = "Operating System"
Top = 720
Width = 4455
End
Begin VB.Image Image13
Height = 4095
Left = 2880
Picture = "Form1.frx":0CC6
Stretch = -1 'True
Top = 1200
Width = 16065
End
Begin VB.Image Image12
Height = 540
Left = 480
Picture = "Form1.frx":2EDC6
Stretch = -1 'True
Top = 1920
Width = 1995
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "iPhone 7 Plus"
BeginProperty Font
Name = "Calibri"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 16080
TabIndex = 7
Top = 10440
Width = 2655
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Moto X Play"
BeginProperty Font
Name = "Calibri"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6840
TabIndex = 6
Top = 10440
Width = 2655
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Lenovo ZUK Z2"
BeginProperty Font
Name = "Calibri"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 10560
TabIndex = 5
Top = 10440
Width = 2055
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Xiaomi Mi Mix"
BeginProperty Font
Name = "Calibri"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 13200
TabIndex = 4
Top = 10440
Width = 2655
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Google Pixel XL"
BeginProperty Font
Name = "Calibri"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3960
TabIndex = 3
Top = 10440
Width = 2655
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Samsung S7 Edge"
BeginProperty Font
Name = "Calibri"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 2
Top = 10440
Width = 2655
End
Begin VB.Image Image11
Height = 615
Left = 6840
Picture = "Form1.frx":30FE5
Stretch = -1 'True
Top = 5280
Width = 4815
End
Begin VB.Image Image6
Height = 4005
Left = 13440
Picture = "Form1.frx":32E86
Stretch = -1 'True
Top = 6240
Width = 2205
End
Begin VB.Image Image7
Height = 4335
Left = 15600
Picture = "Form1.frx":47F91
Stretch = -1 'True
Top = 6120
Width = 3255
End
Begin VB.Image Image3
Height = 5385
Left = 0
Picture = "Form1.frx":5AE30
Stretch = -1 'True
Top = 0
Width = 2865
End
Begin VB.Image Image2
Height = 3975
Left = 3600
Picture = "Form1.frx":5B5E7
Stretch = -1 'True
Top = 6240
Width = 2850
End
Begin VB.Image Image5
Height = 4275
Left = 9720
Picture = "Form1.frx":64BAC
Stretch = -1 'True
Top = 6120
Width = 3495
End
Begin VB.Image Image4
Height = 4200
Left = 6360
Picture = "Form1.frx":6947D
Stretch = -1 'True
Top = 6120
Width = 3840
End
Begin VB.Image Image1
Height = 4065
Left = 840
Picture = "Form1.frx":7C850
Stretch = -1 'True
Top = 6240
Width = 2160
End
Begin VB.Image Image9
Height = 885
Left = 5520
Picture = "Form1.frx":8728E
Stretch = -1 'True
Top = 120
Width = 6675
End
Begin VB.Image Image8
Height = 1200
Left = 120
Picture = "Form1.frx":89815
Stretch = -1 'True
Top = 0
Width = 19440
End
Begin VB.Image Image10
Height = 600
Left = 0
Picture = "Form1.frx":89FCC
Stretch = -1 'True
Top = 5280
Width = 23520
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
If (Combo1.Text = "ANDROID") Then
Form2.Show
ElseIf (Combo1.Text = "WINDOWS") Then
Form3.Show
ElseIf (Combo1.Text = "TIZEN") Then
Form4.Show
ElseIf (Combo1.Text = "iOS") Then
Form5.Show
End If
End Sub
Private Sub Command4_Click()
Form9.Show
End Sub
Private Sub Command2_Click()
Form49.Show
End Sub
Private Sub Image1_Click()
Form6.Show
End Sub
Private Sub Image12_Click()
Form21.Show
End Sub
Private Sub Image2_Click()
Form10.Show
End Sub
Private Sub Image4_Click()
Form33.Show
End Sub
Private Sub Image5_Click()
Form36.Show
End Sub
Private Sub Image6_Click()
Form54.Show
End Sub
Private Sub Image7_Click()
Form55.Show
End Sub