home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / charsep.frm < prev    next >
Text File  |  1994-12-14  |  3KB  |  87 lines
  1. VERSION 2.00
  2. Begin Form CHARSEP 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Character-separated values"
  5.    ClientHeight    =   1770
  6.    ClientLeft      =   2310
  7.    ClientTop       =   4260
  8.    ClientWidth     =   5235
  9.    Height          =   2175
  10.    Left            =   2250
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1770
  13.    ScaleWidth      =   5235
  14.    Top             =   3915
  15.    Width           =   5355
  16.    Begin SSFrame Frame3D1 
  17.       Font3D          =   0  'None
  18.       ForeColor       =   &H00000000&
  19.       Height          =   1410
  20.       Left            =   270
  21.       TabIndex        =   4
  22.       Top             =   180
  23.       Width           =   4665
  24.       Begin CommandButton CharSepCancel 
  25.          Caption         =   "Cancel"
  26.          Height          =   375
  27.          Left            =   3090
  28.          TabIndex        =   3
  29.          Top             =   810
  30.          Width           =   1035
  31.       End
  32.       Begin CommandButton CharSepOk 
  33.          Caption         =   "Ok"
  34.          Height          =   375
  35.          Left            =   3090
  36.          TabIndex        =   2
  37.          Top             =   315
  38.          Width           =   1035
  39.       End
  40.       Begin TextBox CharQuoteText 
  41.          Height          =   330
  42.          Left            =   1140
  43.          TabIndex        =   1
  44.          Text            =   """"
  45.          Top             =   855
  46.          Width           =   825
  47.       End
  48.       Begin TextBox CharSepText 
  49.          Height          =   330
  50.          Left            =   1140
  51.          TabIndex        =   0
  52.          Text            =   ","
  53.          Top             =   360
  54.          Width           =   1485
  55.       End
  56.       Begin Label Label2 
  57.          BackColor       =   &H00C0C0C0&
  58.          Caption         =   "Quote:"
  59.          Height          =   240
  60.          Left            =   180
  61.          TabIndex        =   6
  62.          Top             =   900
  63.          Width           =   765
  64.       End
  65.       Begin Label Label1 
  66.          BackColor       =   &H00C0C0C0&
  67.          Caption         =   "Separator:"
  68.          Height          =   240
  69.          Left            =   180
  70.          TabIndex        =   5
  71.          Top             =   405
  72.          Width           =   1065
  73.       End
  74.    End
  75. End
  76. Sub CharSepCancel_Click ()
  77.  Unload Me
  78.  CancelCheck = 1
  79. End Sub
  80.  
  81. Sub CharSepOk_Click ()
  82.   Main.Report1.PrintFileCharSepSeparator = CharSepText.Text
  83.   Main.Report1.PrintFileCharSepQuote = CharQuoteText.Text
  84.   Unload Me
  85. End Sub
  86.  
  87.