-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfrmToolBox.frm
157 lines (147 loc) · 4.88 KB
/
frmToolBox.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
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.5#0"; "comctl32.ocx"
Begin VB.Form ToolBox
AutoRedraw = -1 'True
BorderStyle = 5 'Sizable ToolWindow
Caption = "Toolbox"
ClientHeight = 3780
ClientLeft = 2625
ClientTop = 3675
ClientWidth = 1155
ClipControls = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 252
ScaleMode = 3 'Pixel
ScaleWidth = 77
ShowInTaskbar = 0 'False
Begin ComctlLib.Toolbar toolBar
Align = 1 'Align Top
Height = 1110
Left = 0
TabIndex = 0
Top = 0
Width = 1155
_ExtentX = 2037
_ExtentY = 1958
ButtonWidth = 926
ButtonHeight = 900
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 5
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
ImageIndex = 1
Style = 2
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
ImageIndex = 2
Style = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
ImageIndex = 3
Style = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
ImageIndex = 4
Style = 2
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
ImageIndex = 5
Style = 2
EndProperty
EndProperty
End
Begin VB.Timer Timer2
Interval = 100
Left = 0
Top = 1800
End
Begin VB.Timer Timer1
Interval = 1
Left = 120
Top = 2280
End
Begin ComctlLib.ImageList ImageList1
Left = 480
Top = 1680
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 28
ImageHeight = 28
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 5
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmToolBox.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmToolBox.frx":0982
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmToolBox.frx":1304
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmToolBox.frx":1C86
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmToolBox.frx":2608
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "ToolBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Initialize()
Dim lol As Integer
lol = Me.width
Me.width = 1000
Me.width = lol
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Me.Tag = "" Then Cancel = 1
End Sub
Private Sub Form_Resize()
toolBar.Move toolBar.Left, toolBar.Top, Me.ScaleWidth - 4, Me.ScaleHeight - 6
'toolBar.Move 0, 0, Me.width, Me.width
End Sub
Private Sub Timer1_Timer()
Dim lol As Integer
lol = Me.width
Me.width = 100000
Me.width = lol
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
Me.Refresh
toolBar.Refresh
End Sub
Private Sub toolBar_ButtonClick(ByVal Button As ComctlLib.Button)
Dim x As Form
For Each x In Forms
If x.Name = "dialogTemplate" Then
If Button.Index > 1 Then
x.MousePointer = 2
Else
x.MousePointer = 0
End If
End If
Next x
End Sub