home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / PWA_AWAR.ZIP / SAMPVB.Z / ABOUT.BAS next >
Encoding:
BASIC Source File  |  1994-07-05  |  9.2 KB  |  259 lines
  1. VERSION 2.00
  2. Begin Form about 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "FarPoint Technologies Aware/VBX 1.0 "
  6.    ClientHeight    =   6390
  7.    ClientLeft      =   255
  8.    ClientTop       =   435
  9.    ClientWidth     =   9030
  10.    ControlBox      =   0   'False
  11.    Height          =   6795
  12.    Left            =   195
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   6390
  15.    ScaleWidth      =   9030
  16.    Top             =   90
  17.    Width           =   9150
  18.    Begin AwareBinary fpBinary2 
  19.       BackColor       =   &H00C0C0C0&
  20.       BorderStyle     =   0  'No Border
  21.       FontBold        =   -1  'True
  22.       FontItalic      =   0   'False
  23.       FontName        =   "System"
  24.       FontSize        =   9.75
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   6390
  28.       Left            =   0
  29.       TabIndex        =   0
  30.       ThreeDFrameWidth=   5
  31.       ThreeDInsideHighlightColor=   &H00FFFFFF&
  32.       ThreeDInsideShadowColor=   &H00808080&
  33.       ThreeDInsideStyle=   2  'Raised
  34.       ThreeDInsideWidth=   2
  35.       ThreeDOutsideHighlightColor=   &H00FFFFFF&
  36.       ThreeDOutsideShadowColor=   &H00808080&
  37.       ThreeDOutsideStyle=   2  'Raised
  38.       Top             =   0
  39.       Width           =   9015
  40.       Begin AwareBinary fpBinary1 
  41.          FontBold        =   -1  'True
  42.          FontItalic      =   0   'False
  43.          FontName        =   "System"
  44.          FontSize        =   9.75
  45.          FontStrikethru  =   0   'False
  46.          FontUnderline   =   0   'False
  47.          Height          =   2490
  48.          Left            =   5175
  49.          TabIndex        =   7
  50.          Top             =   2325
  51.          Width           =   2340
  52.       End
  53.       Begin AwareText fpText2 
  54.          BackColor       =   &H00C0C0C0&
  55.          BorderStyle     =   0  'No Border
  56.          ControlType     =   2  'Static
  57.          FontBold        =   -1  'True
  58.          FontItalic      =   0   'False
  59.          FontName        =   "Times New Roman"
  60.          FontSize        =   13.5
  61.          FontStrikethru  =   0   'False
  62.          FontUnderline   =   0   'False
  63.          ForeColor       =   &H000000FF&
  64.          Height          =   1065
  65.          Index           =   0
  66.          Left            =   4425
  67.          MultiLine       =   -1  'True
  68.          TabIndex        =   6
  69.          TabStop         =   0   'False
  70.          Text            =   " Phone : 804-378-0432                           800-645-5913                FAX : 804-378-1015"
  71.          ThreeDOutsideStyle=   1  'Lowered
  72.          ThreeDText      =   2  'Embossed w/ shading
  73.          ThreeDTextHighlightColor=   &H00FFFFFF&
  74.          ThreeDTextShadowColor=   &H00808080&
  75.          Top             =   4950
  76.          Width           =   3495
  77.       End
  78.       Begin AwareText fpText2 
  79.          BackColor       =   &H00C0C0C0&
  80.          BorderStyle     =   0  'No Border
  81.          ControlType     =   2  'Static
  82.          FontBold        =   -1  'True
  83.          FontItalic      =   0   'False
  84.          FontName        =   "Times New Roman"
  85.          FontSize        =   13.5
  86.          FontStrikethru  =   0   'False
  87.          FontUnderline   =   0   'False
  88.          ForeColor       =   &H000000FF&
  89.          Height          =   1065
  90.          Index           =   1
  91.          Left            =   825
  92.          MultiLine       =   -1  'True
  93.          TabIndex        =   5
  94.          TabStop         =   0   'False
  95.          Text            =   " FarPoint Technologies            569 Southlake Blvd.                Richmond, VA  23236"
  96.          ThreeDInsideWidth=   0
  97.          ThreeDOutsideStyle=   1  'Lowered
  98.          ThreeDText      =   2  'Embossed w/ shading
  99.          ThreeDTextHighlightColor=   &H00FFFFFF&
  100.          ThreeDTextShadowColor=   &H00808080&
  101.          Top             =   4950
  102.          Width           =   3495
  103.       End
  104.       Begin AwareBoolean fpBoolean1 
  105.          AlignTextH      =   1  'Center
  106.          BackColor       =   &H00C0C0C0&
  107.          BooleanMode     =   2  'Button-Like
  108.          BooleanPicture  =   4  'User Defined
  109.          BorderStyle     =   2  'Rounded
  110.          BorderWidth     =   1
  111.          FontBold        =   -1  'True
  112.          FontItalic      =   0   'False
  113.          FontName        =   "Times New Roman"
  114.          FontSize        =   13.5
  115.          FontStrikethru  =   0   'False
  116.          FontUnderline   =   0   'False
  117.          ForeColor       =   &H00FF0000&
  118.          Height          =   500
  119.          Left            =   2550
  120.          TabIndex        =   4
  121.          TextFalse       =   "No"
  122.          ThreeDOutsideStyle=   2  'Raised
  123.          ThreeDOutsideWidth=   2
  124.          Top             =   3825
  125.          Width           =   1450
  126.       End
  127.       Begin AwareText fpText3 
  128.          AlignTextH      =   1  'Center
  129.          AlignTextV      =   1  'Center
  130.          BackColor       =   &H00C0C0C0&
  131.          BorderStyle     =   0  'No Border
  132.          ControlType     =   2  'Static
  133.          FontBold        =   -1  'True
  134.          FontItalic      =   0   'False
  135.          FontName        =   "MS Sans Serif"
  136.          FontSize        =   13.5
  137.          FontStrikethru  =   0   'False
  138.          FontUnderline   =   0   'False
  139.          ForeColor       =   &H00FF0000&
  140.          Height          =   915
  141.          Left            =   600
  142.          MultiLine       =   -1  'True
  143.          TabIndex        =   3
  144.          TabStop         =   0   'False
  145.          Text            =   "Is this your first time using this program?"
  146.          ThreeDOutsideStyle=   2  'Raised
  147.          ThreeDText      =   2  'Embossed w/ shading
  148.          ThreeDTextHighlightColor=   &H00FFFFFF&
  149.          ThreeDTextShadowColor=   &H00000010&
  150.          Top             =   2775
  151.          Width           =   3465
  152.       End
  153.       Begin AwareBoolean fpBoolean3 
  154.          AlignTextH      =   1  'Center
  155.          BackColor       =   &H00C0C0C0&
  156.          BooleanMode     =   2  'Button-Like
  157.          BooleanPicture  =   4  'User Defined
  158.          BorderStyle     =   2  'Rounded
  159.          BorderWidth     =   1
  160.          FontBold        =   -1  'True
  161.          FontItalic      =   0   'False
  162.          FontName        =   "Times New Roman"
  163.          FontSize        =   13.5
  164.          FontStrikethru  =   0   'False
  165.          FontUnderline   =   0   'False
  166.          ForeColor       =   &H00FF0000&
  167.          Height          =   500
  168.          Left            =   675
  169.          TabIndex        =   2
  170.          TextFalse       =   "Yes"
  171.          ThreeDOutsideStyle=   2  'Raised
  172.          ThreeDOutsideWidth=   2
  173.          Top             =   3825
  174.          Width           =   1450
  175.       End
  176.       Begin AwareMemo fpMemo1 
  177.          BackColor       =   &H00C0C0C0&
  178.          BorderStyle     =   0  'No Border
  179.          ControlType     =   2  'Static
  180.          FontBold        =   -1  'True
  181.          FontItalic      =   0   'False
  182.          FontName        =   "MS Sans Serif"
  183.          FontSize        =   9.75
  184.          FontStrikethru  =   0   'False
  185.          FontUnderline   =   0   'False
  186.          ForeColor       =   &H00FF0000&
  187.          Height          =   2115
  188.          Left            =   150
  189.          LineLimit       =   2147483647
  190.          OnFocusPosition =   3  'Caret
  191.          TabIndex        =   1
  192.          TabStop         =   0   'False
  193.          ThreeDOutsideStyle=   2  'Raised
  194.          Top             =   100
  195.          Width           =   8490
  196.          WordWrap        =   -1  'True
  197.       End
  198.    End
  199. End
  200.  
  201. Sub Form_Load ()
  202.         
  203.     helpmenu = False
  204.     centerform Me
  205.  
  206.     'Load forms in memory and display wait message
  207.     fpBoolean1.Enabled = False
  208.     fpboolean3.Enabled = False
  209.  
  210.     fpBinary1.Picture = LoadPicture(app.Path + "\aware.bmp")
  211.     
  212.     Me.Show
  213.     
  214.     fpmemo1.Text = "Aware/VBX 1.0 from FarPoint Technologies is a powerful set of 13 custom controls designed specifically for databse applications with each control being fully data aware.  And even if you're not using a database, you can still take full advantage of the many included features."
  215.     fpmemo1.Text = fpmemo1.Text + Chr$(13) + Chr$(10)
  216.     fpmemo1.Text = fpmemo1.Text + "This sample scheduling application lets you see how flexible and powerful these controls are."
  217.     fpmemo1.Text = fpmemo1.Text + Chr$(13) + Chr$(10)
  218.     fpmemo1.Text = fpmemo1.Text + "(And YES, you are welcome to place this demo on your network for everyone to use!)"
  219.     
  220.     fpText3.Text = "Is this your first time using this program?"
  221.  
  222.     Refresh
  223.  
  224.     screen.MousePointer = 11  'Hourglass
  225.     Load Schedule
  226.     Load intro
  227.     
  228.     fpBoolean1.Text = "No"
  229.     fpBoolean1.Enabled = True
  230.     fpboolean3.Enabled = True
  231.  
  232.     screen.MousePointer = 0   'Default
  233. End Sub
  234.  
  235. Sub fpBoolean1_Click (Button As Integer)
  236.     person.OKbt.Visible = True
  237.     person.cancelbt.Visible = True
  238.     person.addbt.Visible = False
  239.     person.deletebt.Visible = False
  240.  
  241.     person.descbox.Visible = False
  242.     person.namebox.Visible = False
  243.     person.fpText3(0).Visible = False
  244.     person.fpText3(1).Visible = False
  245.     person.fpText3(2).Visible = False
  246.     person.password.Visible = False
  247.  
  248.     person.fpComboBox1.Visible = True
  249.     
  250.     person.Show
  251.     Me.Hide
  252. End Sub
  253.  
  254. Sub fpBoolean3_Change ()
  255.     firsthlp.Show
  256.     Me.Hide
  257. End Sub
  258.  
  259.