home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
design
/
3ddemo
/
form1.frm
< prev
next >
Wrap
Text File
|
1995-02-26
|
4KB
|
151 lines
VERSION 2.00
Begin Form Form1
BorderStyle = 3 'Fixed Double
Caption = "CTL3D Dialog Example"
ClientHeight = 3768
ClientLeft = 72
ClientTop = 384
ClientWidth = 6168
Height = 4188
Left = 24
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3768
ScaleWidth = 6168
Top = 12
Width = 6264
Begin DirListBox Dir1
Height = 888
Left = 2664
TabIndex = 9
Top = 1584
Width = 1956
End
Begin FileListBox File1
Height = 1176
Left = 4752
TabIndex = 8
Top = 1584
Width = 1164
End
Begin DriveListBox Drive1
Height = 288
Left = 2664
TabIndex = 7
Top = 2592
Width = 1956
End
Begin ListBox List1
Height = 1368
Left = 288
TabIndex = 6
Top = 1584
Width = 2172
End
Begin OptionButton Option1
Caption = "Option1"
Height = 300
Left = 2880
TabIndex = 5
Top = 936
Value = -1 'True
Visible = 0 'False
Width = 1452
End
Begin CheckBox Check1
Caption = "Check1"
Height = 228
Left = 2880
TabIndex = 4
Top = 648
Visible = 0 'False
Width = 1164
End
Begin ComboBox Combo1
Height = 288
Left = 648
TabIndex = 3
Text = "Combo1"
Top = 648
Width = 1524
End
Begin TextBox Text1
Height = 288
Left = 648
TabIndex = 0
Text = "Text1"
Top = 144
Width = 5124
End
Begin CommandButton Command2
Caption = "Exit"
Height = 372
Left = 2232
TabIndex = 1
Top = 3240
Width = 1668
End
Begin Label Label1
Caption = "Label1"
Height = 228
Left = 648
TabIndex = 2
Top = 1080
Width = 1884
End
End
Option Explicit
Sub Command2_Click ()
Unload Me
End Sub
Sub Form_Activate ()
Check1.Visible = True
Option1.Visible = True
End Sub
Sub Form_Load ()
Dim cnt%
Text1 = "CTL3D Version: " + LTrim$(RTrim$(Str$(gCTL3DMajorVersion))) + "." + Right$("00" + LTrim$(RTrim$(Str$(gCTL3DMinorVersion))), 2)
If gSubClassCtls Then
Text1.Text = Text1.Text + " - Controls are subclassed."
Else
Text1.Text = Text1.Text + " - Controls are not subclassed."
End If
For cnt% = 1 To 25
List1.AddItem "Line Number" + Str$(cnt%)
Next
CenterForm Me
Make3DDlg Me
End Sub
Sub Form_Paint ()
If Not gSubClassCtls Then FormIn3D Me, 1
End Sub
Sub Form_Unload (Cancel As Integer)
Undo3DCtrls Me
End Sub