DP Tool Club 24/CD_ASCQ_24_0995.iso/vrac/regform.zip/REG-VB3.FRM

Text File | 1995-07-20 | 15KB | 455 lines

VERSION 2.00
Begin Form reg
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Disk And Desk Inc. Registration Form"
   ClientHeight    =   4290
   ClientLeft      =   3300
   ClientTop       =   3705
   ClientWidth     =   7230
   Height          =   4695
   Icon            =   REG-VB3.FRX:0000
   Left            =   3240
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4290
   ScaleWidth      =   7230
   Top             =   3360
   Width           =   7350
   Begin CommandButton Command3
      Caption         =   "&Save As Text"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   345
      Left            =   5310
      TabIndex        =   22
      Top             =   510
      Width           =   1815
   End
   Begin CommandButton Command2
      Cancel          =   -1  'True
      Caption         =   "&Close"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   345
      Left            =   6240
      TabIndex        =   17
      Top             =   120
      Width           =   900
   End
   Begin CommandButton Command1
      Caption         =   "&Print"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   345
      Left            =   5310
      TabIndex        =   16
      Top             =   120
      Width           =   900
   End
   Begin TextBox Text1
      Enabled         =   0   'False
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   285
      Index           =   7
      Left            =   1830
      TabIndex        =   15
      Top             =   3870
      Width           =   3345
   End
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1515
      Index           =   6
      Left            =   1830
      MultiLine       =   -1  'True
      TabIndex        =   13
      Top             =   2130
      Width           =   3345
   End
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   285
      Index           =   5
      Left            =   1830
      TabIndex        =   11
      Top             =   1800
      Width           =   3345
   End
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   285
      Index           =   4
      Left            =   1830
      TabIndex        =   9
      Top             =   1470
      Width           =   3345
   End
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   285
      Index           =   3
      Left            =   1830
      TabIndex        =   7
      Top             =   1140
      Width           =   3345
   End
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   285
      Index           =   2
      Left            =   1830
      TabIndex        =   5
      Top             =   810
      Width           =   3345
   End
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   285
      Index           =   1
      Left            =   1830
      TabIndex        =   3
      Top             =   480
      Width           =   3345
   End
   Begin TextBox Text1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   285
      Index           =   0
      Left            =   1830
      TabIndex        =   1
      Top             =   150
      Width           =   3345
   End
   Begin Image Image1
      Height          =   480
      Left            =   210
      Top             =   210
      Width           =   480
   End
   Begin Label Label3
      BackStyle       =   0  'Transparent
      Caption         =   "Richard Ratayczak  2553A South Howell Ave. Milwaukee, WI 53207  USA"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   855
      Index           =   1
      Left            =   5220
      TabIndex        =   21
      Top             =   1890
      Width           =   1845
      WordWrap        =   -1  'True
   End
   Begin Label Label2
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Mail To:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   -1  'True
      Height          =   195
      Left            =   5340
      TabIndex        =   20
      Top             =   1650
      Width           =   570
   End
   Begin Label Label3
      BackStyle       =   0  'Transparent
      Caption         =   "Continental US Residents the price is stated above. For International Customers, please add $10 for shipping..."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1455
      Index           =   0
      Left            =   5250
      TabIndex        =   19
      Top             =   2790
      Width           =   1755
      WordWrap        =   -1  'True
   End
   Begin Label Price
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Price: $"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   195
      Left            =   5340
      TabIndex        =   18
      Top             =   1020
      Width           =   540
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Name Of Program You Are Registering:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   195
      Index           =   7
      Left            =   570
      TabIndex        =   14
      Top             =   3660
      Width           =   2775
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Comments:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   6
      Left            =   1020
      TabIndex        =   12
      Top             =   2130
      Width           =   795
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "E-mail Address 2:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   5
      Left            =   570
      TabIndex        =   10
      Top             =   1800
      Width           =   1215
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "E-mail Address 1:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   4
      Left            =   570
      TabIndex        =   8
      Top             =   1470
      Width           =   1215
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Home Phone:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   3
      Left            =   810
      TabIndex        =   6
      Top             =   1140
      Width           =   975
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "City, State, Zip:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   2
      Left            =   720
      TabIndex        =   4
      Top             =   810
      Width           =   1095
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Address:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   1
      Left            =   1170
      TabIndex        =   2
      Top             =   480
      Width           =   615
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Name:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   0
      Left            =   1320
      TabIndex        =   0
      Top             =   150
      Width           =   465
   End
End

Sub Command1_Click ()
On Error Resume Next
Me.BackColor = &HFFFFFF
Me.PrintForm
Me.BackColor = &HC0C0C0
End Sub

Sub Command2_Click ()
Unload reg
End Sub

Sub Command3_Click ()
Dim Answer As String, x  As Integer, D As String
Answer = InputBox("Enter the name of the filename to save this to:" + Chr$(10) + Chr$(10) + "(Leave blank to cancel)", "Save Registration As Text")
If Answer = "" Then Exit Sub
On Error GoTo FileErr
D = Chr$(13) + Chr$(10)
x = FreeFile
Open Answer For Output As x
Print #x, App.Title + " - Registration Form" + D
For A = 0 To 7
    Print #x, Text1(A).Tag + " " + Text1(A).Text
Next A
Print #x, D + Price.Caption
Print #x, D + Label2.Caption
Print #x, D + Label3(1).Caption
Print #x, D + Label3(0).Caption
Close #x
MsgBox "File saved as: " + Answer, 0, App.Title
Exit Sub
FileErr:
MsgBox "Invalid Filename Or Disk Full.", 16, App.Title
Exit Sub
Resume Next
Exit Sub
End Sub

Sub Form_Load ()
Dim D As String
left = screen.Width / 2 - Me.Width / 2
top = screen.Height / 2 - Me.Height / 2
Caption = App.Title + " - Registration Form"
Text1(7).Text = App.Title
Image1.Picture = Me.Icon
Price.Caption = "Price: $" + AppPrice
For A = 0 To 7
    Text1(A).Tag = Label1(A).Caption
Next A
D = Chr$(13) + Chr$(10)
Label3(1).Caption = "Richard Ratayczak" + D + "2553A South Howell Ave." + D + "Milwaukee, WI 53207  USA"
Label3(0).Caption = "Continental US Residents the price" + D + "is stated above. " + D + "For International Customers, " + D + "please add $10 for shipping..."
End Sub