home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 8.ddi / FORM3.FR_ / FORM3.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  3.2 KB  |  104 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    Caption         =   "Print To File Settings"
  4.    ClientHeight    =   2880
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   8070
  8.    Height          =   3285
  9.    Left            =   1035
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   2880
  12.    ScaleWidth      =   8070
  13.    Top             =   1140
  14.    Width           =   8190
  15.    Begin CommandButton Command2 
  16.       Caption         =   "Modify Settings"
  17.       Height          =   375
  18.       Left            =   4080
  19.       TabIndex        =   5
  20.       Top             =   2040
  21.       Width           =   3255
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Accept Settings"
  25.       Height          =   375
  26.       Left            =   480
  27.       TabIndex        =   4
  28.       Top             =   2040
  29.       Width           =   2895
  30.    End
  31.    Begin ComboBox OutputFileType 
  32.       Height          =   300
  33.       Left            =   4200
  34.       TabIndex        =   3
  35.       Text            =   "  "
  36.       Top             =   240
  37.       Width           =   3735
  38.    End
  39.    Begin TextBox OutputFileName 
  40.       Height          =   285
  41.       Left            =   4200
  42.       TabIndex        =   1
  43.       Text            =   "c:\crw\OutFile.txt"
  44.       Top             =   1080
  45.       Width           =   3735
  46.    End
  47.    Begin Label Label2 
  48.       Caption         =   "Select the output type :"
  49.       Height          =   255
  50.       Left            =   120
  51.       TabIndex        =   2
  52.       Top             =   240
  53.       Width           =   3855
  54.    End
  55.    Begin Label Label1 
  56.       Caption         =   "Enter output file name  ( including path ) :"
  57.       Height          =   255
  58.       Left            =   120
  59.       TabIndex        =   0
  60.       Top             =   1080
  61.       Width           =   3855
  62.    End
  63. Sub Command1_Click ()
  64.    Output_File_Name = OutputFileName.Text
  65.    Rem - Set PrinterFileType property
  66.     If OutputFiletype = "Record Format" Then
  67.         Output_File_Type = 0
  68.     Else
  69.         If OutputFiletype = "Tab Seperated" Then
  70.             Output_File_Type = 1
  71.         Else
  72.             If OutputFiletype = "Text Format" Then
  73.                 Output_File_Type = 2
  74.             Else
  75.                 If OutputFiletype = "DIF Format" Then
  76.                     Output_File_Type = 3
  77.                 Else
  78.                     If OutputFiletype = "Comma Seperated Value" Then
  79.                         Output_File_Type = 4
  80.                     Else
  81.                         If OutputFiletype = "Tab Seperated Text" Then
  82.                             Output_File_Type = 6
  83.                         End If
  84.                     End If
  85.                 End If
  86.             End If
  87.         End If
  88.     End If
  89. Rem Close form
  90.     Form3.Hide
  91. End Sub
  92. Sub Command2_Click ()
  93.     OutputFiletype.SetFocus
  94. End Sub
  95. Sub Form_Load ()
  96.     OutputFiletype.AddItem "Comma Seperated"
  97.     OutputFiletype.AddItem "Tab Seperated"
  98.     OutputFiletype.AddItem "Record Format"
  99.     OutputFiletype.AddItem "Text Format"
  100.     OutputFiletype.AddItem "DIF Format"
  101.     OutputFiletype.AddItem "Tab Seperated Text"
  102.     OutputFiletype.SelText = "Comma Seperated"
  103. End Sub
  104.