home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  5.2 KB  |  161 lines
  1. VERSION 4.00
  2. Begin VB.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 VB.CommandButton Command2 
  16.       Caption         =   "Modify Settings"
  17.       BeginProperty Font 
  18.          name            =   "MS Sans Serif"
  19.          charset         =   1
  20.          weight          =   700
  21.          size            =   8.25
  22.          underline       =   0   'False
  23.          italic          =   0   'False
  24.          strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   375
  27.       Left            =   4080
  28.       TabIndex        =   5
  29.       Top             =   2040
  30.       Width           =   3255
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Accept Settings"
  34.       BeginProperty Font 
  35.          name            =   "MS Sans Serif"
  36.          charset         =   1
  37.          weight          =   700
  38.          size            =   8.25
  39.          underline       =   0   'False
  40.          italic          =   0   'False
  41.          strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   375
  44.       Left            =   480
  45.       TabIndex        =   4
  46.       Top             =   2040
  47.       Width           =   2895
  48.    End
  49.    Begin VB.ComboBox OutputFileType 
  50.       BeginProperty Font 
  51.          name            =   "MS Sans Serif"
  52.          charset         =   1
  53.          weight          =   700
  54.          size            =   8.25
  55.          underline       =   0   'False
  56.          italic          =   0   'False
  57.          strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   300
  60.       Left            =   4200
  61.       TabIndex        =   3
  62.       Text            =   "  "
  63.       Top             =   240
  64.       Width           =   3735
  65.    End
  66.    Begin VB.TextBox OutputFileName 
  67.       BeginProperty Font 
  68.          name            =   "MS Sans Serif"
  69.          charset         =   1
  70.          weight          =   700
  71.          size            =   8.25
  72.          underline       =   0   'False
  73.          italic          =   0   'False
  74.          strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   285
  77.       Left            =   4200
  78.       TabIndex        =   1
  79.       Text            =   "c:\crw\OutFile.txt"
  80.       Top             =   1080
  81.       Width           =   3735
  82.    End
  83.    Begin VB.Label Label2 
  84.       Caption         =   "Select the output type :"
  85.       BeginProperty Font 
  86.          name            =   "MS Sans Serif"
  87.          charset         =   1
  88.          weight          =   700
  89.          size            =   8.25
  90.          underline       =   0   'False
  91.          italic          =   0   'False
  92.          strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   255
  95.       Left            =   120
  96.       TabIndex        =   2
  97.       Top             =   240
  98.       Width           =   3855
  99.    End
  100.    Begin VB.Label Label1 
  101.       Caption         =   "Enter output file name  ( including path ) :"
  102.       BeginProperty Font 
  103.          name            =   "MS Sans Serif"
  104.          charset         =   1
  105.          weight          =   700
  106.          size            =   8.25
  107.          underline       =   0   'False
  108.          italic          =   0   'False
  109.          strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   255
  112.       Left            =   120
  113.       TabIndex        =   0
  114.       Top             =   1080
  115.       Width           =   3855
  116.    End
  117. Attribute VB_Name = "Form3"
  118. Attribute VB_Creatable = False
  119. Attribute VB_Exposed = False
  120. Private Sub Command1_Click()
  121.    Output_File_Name = OutputFileName.Text
  122.    Rem - Set PrinterFileType property
  123.     If OutputFiletype = "Record Format" Then
  124.         Output_File_Type = 0
  125.     Else
  126.         If OutputFiletype = "Tab Separated" Then
  127.             Output_File_Type = 1
  128.         Else
  129.             If OutputFiletype = "Text Format" Then
  130.                 Output_File_Type = 2
  131.             Else
  132.                 If OutputFiletype = "DIF Format" Then
  133.                     Output_File_Type = 3
  134.                 Else
  135.                     If OutputFiletype = "Comma Separated Value" Then
  136.                         Output_File_Type = 4
  137.                     Else
  138.                         If OutputFiletype = "Tab Separated Text" Then
  139.                             Output_File_Type = 6
  140.                         End If
  141.                     End If
  142.                 End If
  143.             End If
  144.         End If
  145.     End If
  146. Rem Close form
  147.     Form3.Hide
  148. End Sub
  149. Private Sub Command2_Click()
  150.     OutputFiletype.SetFocus
  151. End Sub
  152. Private Sub Form_Load()
  153.     OutputFiletype.AddItem "Comma Separated"
  154.     OutputFiletype.AddItem "Tab Separated"
  155.     OutputFiletype.AddItem "Record Format"
  156.     OutputFiletype.AddItem "Text Format"
  157.     OutputFiletype.AddItem "DIF Format"
  158.     OutputFiletype.AddItem "Tab Separated Text"
  159.     OutputFiletype.SelText = "Comma Separated"
  160. End Sub
  161.