home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / aboutfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  5.5 KB  |  160 lines
  1. VERSION 2.00
  2. Begin Form AboutFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "InfoSoft WGlib 1.01"
  6.    ClientHeight    =   5415
  7.    ClientLeft      =   1230
  8.    ClientTop       =   1440
  9.    ClientWidth     =   7260
  10.    ControlBox      =   0   'False
  11.    FontBold        =   -1  'True
  12.    FontItalic      =   -1  'True
  13.    FontName        =   "MS Sans Serif"
  14.    FontSize        =   8.25
  15.    FontStrikethru  =   0   'False
  16.    FontUnderline   =   0   'False
  17.    Height          =   5820
  18.    Left            =   1170
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   5415
  24.    ScaleWidth      =   7260
  25.    Top             =   1095
  26.    Width           =   7380
  27.    Begin CommandButton OKCmd 
  28.       Caption         =   "OK"
  29.       Height          =   420
  30.       Left            =   5145
  31.       TabIndex        =   0
  32.       Top             =   4335
  33.       Width           =   735
  34.    End
  35.    Begin TextBox Text4 
  36.       BackColor       =   &H00C0C0C0&
  37.       BorderStyle     =   0  'None
  38.       FontBold        =   -1  'True
  39.       FontItalic      =   0   'False
  40.       FontName        =   "MS Sans Serif"
  41.       FontSize        =   9.75
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       ForeColor       =   &H00FF0000&
  45.       Height          =   855
  46.       Left            =   1185
  47.       MultiLine       =   -1  'True
  48.       TabIndex        =   4
  49.       Text            =   "Text4"
  50.       Top             =   4140
  51.       Width           =   2730
  52.    End
  53.    Begin TextBox Text3 
  54.       BackColor       =   &H00C0C0C0&
  55.       BorderStyle     =   0  'None
  56.       Height          =   1005
  57.       Left            =   315
  58.       MultiLine       =   -1  'True
  59.       TabIndex        =   3
  60.       Text            =   "Text3"
  61.       Top             =   2835
  62.       Width           =   6585
  63.    End
  64.    Begin TextBox Text2 
  65.       BackColor       =   &H00C0C0C0&
  66.       BorderStyle     =   0  'None
  67.       Height          =   975
  68.       Left            =   315
  69.       MultiLine       =   -1  'True
  70.       TabIndex        =   2
  71.       Text            =   "Text2"
  72.       Top             =   1740
  73.       Width           =   6615
  74.    End
  75.    Begin TextBox Text1 
  76.       BackColor       =   &H00C0C0C0&
  77.       BorderStyle     =   0  'None
  78.       FontBold        =   -1  'True
  79.       FontItalic      =   0   'False
  80.       FontName        =   "MS Sans Serif"
  81.       FontSize        =   9.75
  82.       FontStrikethru  =   0   'False
  83.       FontUnderline   =   0   'False
  84.       Height          =   540
  85.       Left            =   330
  86.       MultiLine       =   -1  'True
  87.       TabIndex        =   1
  88.       Text            =   "Text1"
  89.       Top             =   1095
  90.       Width           =   6495
  91.    End
  92.    Begin PictureBox Picture1 
  93.       AutoSize        =   -1  'True
  94.       Height          =   510
  95.       Left            =   6045
  96.       Picture         =   ABOUTFRM.FRX:0000
  97.       ScaleHeight     =   480
  98.       ScaleWidth      =   480
  99.       TabIndex        =   5
  100.       Top             =   270
  101.       Width           =   510
  102.    End
  103.    Begin PictureBox Picture2 
  104.       AutoSize        =   -1  'True
  105.       BorderStyle     =   0  'None
  106.       Height          =   480
  107.       Left            =   495
  108.       Picture         =   ABOUTFRM.FRX:0302
  109.       ScaleHeight     =   480
  110.       ScaleWidth      =   480
  111.       TabIndex        =   6
  112.       Top             =   255
  113.       Width           =   480
  114.    End
  115. DefInt A-Z
  116. Sub Form_Load ()
  117.      AboutFrm.Width = 7380
  118.      AboutFrm.Height = 5820
  119. End Sub
  120. Sub Form_Paint ()
  121.     ConvexFrm AboutFrm, 6
  122.     'ConcaveCtl Text4, 6
  123.     EmpressFrm AboutFrm, 4130, 1140, 4140 + 855, 2895 + 1150, 1
  124.     'ConcaveCtl OKCmd, 4
  125.     AboutFrm.CurrentX = 2350
  126.     AboutFrm.CurrentY = 350
  127.     AboutFrm.Forecolor = QBColor(9)
  128.     FontSize = 24
  129.     Print "InfoSoft"
  130.     AboutFrm.FontSize = 10
  131.     'aboutfrm.FontName = "Arial"
  132.     Text1.text = "InfoSoft has been designing, developing and publishing fine add ons for the family of BASIC languages since 1987."
  133.     Text2.text = "With over nine months in the making, WGLib is only our latest effort.  Our Libraries for QB 4.5 and BASIC PDS "
  134.     Text2.text = Text2.text + "are in use by several Fortune 500 companies, contract programmers - even Government Agencies!"
  135.     Text2.text = Text2.text + "  At InfoSoft, we don't believe you need to pay an arm and a leg for fast and powerful toolboxes - you just need to know where to buy."
  136.     Text3.text = ""' "At InfoSoft, we don't believe you need to pay an arm and a leg for fast, powerful toolboxes - you just need to know where to buy."
  137.     Text3.text = Text3.text + "Beyond general libraries (GLib), we also offer libraries specific to EMS and TCOMM programming, BASIC programming utilities, even a package of high level tools "
  138.     Text3.text = Text3.text + "which includes .ZIP file access, calendars, file viewing, input control and Much More (most have free demoes available, too!).  There is even MORE devlopment!"
  139.     Text4.text = "                InfoSoft                          P O Box 782057           Wichita, KS  67278-2057"
  140. End Sub
  141. Sub Form_Resize ()
  142.      'AboutFrm.Width = 7380
  143.      'AboutFrm.Height = 5820
  144. End Sub
  145. Sub OKCmd_Click ()
  146.     Unload AboutFrm
  147. End Sub
  148. Sub Text1_GotFocus ()
  149.     OKCmd.SetFocus
  150. End Sub
  151. Sub Text2_GotFocus ()
  152.     OKCmd.SetFocus
  153. End Sub
  154. Sub Text3_GotFocus ()
  155.     OKCmd.SetFocus
  156. End Sub
  157. Sub Text4_GotFocus ()
  158.     OKCmd.SetFocus
  159. End Sub
  160.