home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
vbresize.zip
/
FORM1.FRM
< prev
next >
Wrap
Text File
|
1995-05-21
|
11KB
|
347 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
Caption = "ReSize Sample Application"
ClientHeight = 4452
ClientLeft = 1140
ClientTop = 1584
ClientWidth = 6408
Height = 4872
Icon = FORM1.FRX:0000
Left = 1092
LinkTopic = "Form1"
ScaleHeight = 4452
ScaleWidth = 6408
Top = 1212
Width = 6504
Begin CommandButton Command5
Caption = "Line Demo"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 372
Left = 2280
TabIndex = 18
Top = 3840
Width = 1812
End
Begin CommandButton Command4
Caption = "Move things around"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 372
Left = 4320
TabIndex = 17
Top = 3840
Width = 1812
End
Begin CommandButton Command3
Caption = "Change Fonts"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 372
Left = 240
TabIndex = 16
Top = 3840
Width = 1812
End
Begin CommandButton Command2
Caption = "Help"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 372
Left = 4800
TabIndex = 15
Top = 720
Width = 1332
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Misc. Info"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 972
Left = 960
TabIndex = 14
Top = 2280
Width = 4452
Begin CheckBox Check1
BackColor = &H00C0C0C0&
Caption = "Current Client?"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 240
TabIndex = 5
Top = 360
Width = 1572
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "Male"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 2520
TabIndex = 6
Top = 360
Width = 1212
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Female"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 2520
TabIndex = 7
Top = 600
Width = 1332
End
End
Begin ReSize ReSize1
Left = 120
Top = 2760
End
Begin CommandButton Command1
Caption = "Exit"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 372
Left = 4800
TabIndex = 8
Top = 240
Width = 1332
End
Begin TextBox Text5
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 288
Left = 5040
TabIndex = 4
Top = 1440
Width = 732
End
Begin TextBox Text4
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 288
Left = 3960
TabIndex = 3
Top = 1440
Width = 372
End
Begin TextBox Text3
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 288
Left = 1320
TabIndex = 2
Top = 1440
Width = 1812
End
Begin TextBox Text2
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 288
Left = 1320
TabIndex = 1
Top = 960
Width = 2772
End
Begin TextBox Text1
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 288
Left = 1320
TabIndex = 0
Top = 480
Width = 2772
End
Begin Line Line1
BorderWidth = 4
X1 = 360
X2 = 6000
Y1 = 3600
Y2 = 3600
End
Begin Label Label5
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Zip:"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 4320
TabIndex = 9
Top = 1440
Width = 612
End
Begin Label Label4
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "State:"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 3120
TabIndex = 10
Top = 1440
Width = 732
End
Begin Label Label3
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "City:"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 480
TabIndex = 11
Top = 1440
Width = 732
End
Begin Label Label2
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Address:"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 360
TabIndex = 12
Top = 960
Width = 852
End
Begin Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Name:"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 252
Left = 600
TabIndex = 13
Top = 480
Width = 612
End
End
Option Explicit
Sub Command1_Click ()
End
End Sub
Sub Command2_Click ()
Form2.Show 1
End Sub
Sub Command3_Click ()
If Label1.FontName = "Arial" Then
Label1.FontName = "Times New Roman"
Label2.FontName = "Times New Roman"
Label3.FontName = "Times New Roman"
Label4.FontName = "Times New Roman"
Label5.FontName = "Times New Roman"
Else
Label1.FontName = "Arial"
Label2.FontName = "Arial"
Label3.FontName = "Arial"
Label4.FontName = "Arial"
Label5.FontName = "Arial"
End If
End Sub
Sub Command4_Click ()
Dim Temp As Integer
Option2.Left = Check1.Left
Temp = Check1.Left
Check1.Left = Option1.Left
Option1.Left = Temp
End Sub
Sub Command5_Click ()
Form3.Show 1
End Sub
