-
Notifications
You must be signed in to change notification settings - Fork 9
/
frmConfEvents.frm
131 lines (126 loc) · 3.88 KB
/
frmConfEvents.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
VERSION 5.00
Begin VB.Form frmConfEvents
BorderStyle = 1 'Fixed Single
Caption = "Events Configurator"
ClientHeight = 3975
ClientLeft = 45
ClientTop = 330
ClientWidth = 7935
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 3975
ScaleWidth = 7935
Begin VB.Frame Frame2
Caption = "Modifying selected event"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3975
Left = 2280
TabIndex = 2
Top = 0
Width = 5655
Begin VB.ComboBox cmdEvents
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 720
TabIndex = 4
Text = "OnStart"
Top = 315
Width = 4815
End
Begin VB.Label Label1
Caption = "Event :"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 3
Top = 360
Width = 615
End
End
Begin VB.Frame Frame1
Caption = "Current events list"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3975
Left = 0
TabIndex = 0
Top = 0
Width = 2175
Begin VB.ListBox lstEvents
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3540
Left = 120
TabIndex = 1
Top = 360
Width = 1935
End
End
End
Attribute VB_Name = "frmConfEvents"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private frmLoaded As Boolean
Private Sub Form_Load()
frmLoaded = False
ListEvent
RefreshList
Me.Show
frmLoaded = True
End Sub
Sub ListEvent()
End Sub
Sub RefreshList()
End Sub