home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
On Hand
/
On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso
/
00202
/
s
/
disk8
/
form3.fr_
/
form3.bin
Wrap
Text File
|
1993-04-28
|
3KB
|
113 lines
VERSION 2.00
Begin Form Form3
Caption = "Print To File Settings"
ClientHeight = 2880
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 8070
Height = 3285
Left = 1035
LinkTopic = "Form3"
ScaleHeight = 2880
ScaleWidth = 8070
Top = 1140
Width = 8190
Begin CommandButton Command2
Caption = "Modify Settings"
Height = 375
Left = 4080
TabIndex = 5
Top = 2040
Width = 3255
End
Begin CommandButton Command1
Caption = "Accept Settings"
Height = 375
Left = 480
TabIndex = 4
Top = 2040
Width = 2895
End
Begin ComboBox OutputFileType
Height = 300
Left = 4200
TabIndex = 3
Text = " "
Top = 240
Width = 3735
End
Begin TextBox OutputFileName
Height = 285
Left = 4200
TabIndex = 1
Text = "c:\crw\OutFile.txt"
Top = 1080
Width = 3735
End
Begin Label Label2
Caption = "Select the output type :"
Height = 255
Left = 120
TabIndex = 2
Top = 240
Width = 3855
End
Begin Label Label1
Caption = "Enter output file name ( including path ) :"
Height = 255
Left = 120
TabIndex = 0
Top = 1080
Width = 3855
End
End
Sub Command1_Click ()
Output_File_Name = OutputFileName.Text
Rem - Set PrinterFileType property
If OutputFiletype = "Record Format" Then
Output_File_Type = 0
Else
If OutputFiletype = "Tab Seperated" Then
Output_File_Type = 1
Else
If OutputFiletype = "Text Format" Then
Output_File_Type = 2
Else
If OutputFiletype = "DIF Format" Then
Output_File_Type = 3
Else
If OutputFiletype = "Comma Seperated Value" Then
Output_File_Type = 4
Else
If OutputFiletype = "Tab Seperated Text" Then
Output_File_Type = 6
End If
End If
End If
End If
End If
End If
Rem Close form
Form3.Hide
End Sub
Sub Command2_Click ()
OutputFiletype.SetFocus
End Sub
Sub Form_Load ()
OutputFiletype.AddItem "Comma Seperated"
OutputFiletype.AddItem "Tab Seperated"
OutputFiletype.AddItem "Record Format"
OutputFiletype.AddItem "Text Format"
OutputFiletype.AddItem "DIF Format"
OutputFiletype.AddItem "Tab Seperated Text"
OutputFiletype.SelText = "Comma Seperated"
End Sub