home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / 3dfxplus / demomain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  8.2 KB  |  257 lines
  1. VERSION 2.00
  2. Begin Form DemoMain 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "3DfxPlus Demo"
  6.    ClientHeight    =   4395
  7.    ClientLeft      =   810
  8.    ClientTop       =   1980
  9.    ClientWidth     =   8280
  10.    ClipControls    =   0   'False
  11.    FillStyle       =   0  'Solid
  12.    FontBold        =   -1  'True
  13.    FontItalic      =   0   'False
  14.    FontName        =   "Mercurius Script MT Bold"
  15.    FontSize        =   8.25
  16.    FontStrikethru  =   0   'False
  17.    FontUnderline   =   0   'False
  18.    ForeColor       =   &H00000000&
  19.    Height          =   5085
  20.    Icon            =   DEMOMAIN.FRX:0000
  21.    Left            =   750
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    ScaleHeight     =   4395
  25.    ScaleWidth      =   8280
  26.    Top             =   1350
  27.    Width           =   8400
  28.    Begin CommonDialog CMDialog1 
  29.       Left            =   120
  30.       Top             =   3840
  31.    End
  32.    Begin OptionButton Option3 
  33.       Caption         =   "3DfxPlus is EASY"
  34.       Height          =   375
  35.       Left            =   5760
  36.       TabIndex        =   10
  37.       Top             =   2880
  38.       Value           =   -1  'True
  39.       Width           =   2295
  40.    End
  41.    Begin CommandButton Command3 
  42.       BackColor       =   &H00C0C0C0&
  43.       Caption         =   "Dialog:  Save As"
  44.       Height          =   375
  45.       Left            =   5640
  46.       TabIndex        =   2
  47.       Top             =   1200
  48.       Width           =   2295
  49.    End
  50.    Begin OptionButton Option4 
  51.       Caption         =   "3DfxPlus is FUN"
  52.       Height          =   375
  53.       Left            =   5760
  54.       TabIndex        =   9
  55.       Top             =   3240
  56.       Width           =   2295
  57.    End
  58.    Begin CheckBox Check2 
  59.       Caption         =   "Check2"
  60.       Height          =   375
  61.       Left            =   3360
  62.       TabIndex        =   8
  63.       Top             =   3240
  64.       Width           =   1815
  65.    End
  66.    Begin CommandButton Command2 
  67.       BackColor       =   &H00C0C0C0&
  68.       Caption         =   "Dialog:  Open"
  69.       Height          =   375
  70.       Left            =   5640
  71.       TabIndex        =   1
  72.       Top             =   720
  73.       Width           =   2295
  74.    End
  75.    Begin CommandButton Command1 
  76.       BackColor       =   &H00C0C0C0&
  77.       Caption         =   "Message Box"
  78.       Height          =   375
  79.       Left            =   5640
  80.       TabIndex        =   0
  81.       Top             =   240
  82.       Width           =   2295
  83.    End
  84.    Begin CheckBox Check1 
  85.       Caption         =   "Check1"
  86.       Height          =   375
  87.       Left            =   3360
  88.       TabIndex        =   7
  89.       Top             =   2880
  90.       Value           =   1  'Checked
  91.       Width           =   1815
  92.    End
  93.    Begin Frame Frame1 
  94.       BackColor       =   &H00FFFFFF&
  95.       Caption         =   "Frame Test"
  96.       ForeColor       =   &H00000000&
  97.       Height          =   1215
  98.       Left            =   240
  99.       TabIndex        =   4
  100.       Top             =   2640
  101.       Width           =   2895
  102.       Begin OptionButton Option2 
  103.          Alignment       =   1  'Right Justify
  104.          Caption         =   "O&ption2"
  105.          Height          =   375
  106.          Left            =   120
  107.          TabIndex        =   6
  108.          Top             =   720
  109.          Value           =   -1  'True
  110.          Width           =   2655
  111.       End
  112.       Begin OptionButton Option1 
  113.          Alignment       =   1  'Right Justify
  114.          Caption         =   "&Option1"
  115.          Height          =   375
  116.          Left            =   120
  117.          TabIndex        =   5
  118.          Top             =   360
  119.          Width           =   2655
  120.       End
  121.    End
  122.    Begin Label Label1 
  123.       Alignment       =   2  'Center
  124.       BackColor       =   &H00C0C0C0&
  125.       Caption         =   "Label1"
  126.       Height          =   2055
  127.       Left            =   240
  128.       TabIndex        =   3
  129.       Top             =   240
  130.       Width           =   4935
  131.    End
  132.    Begin Menu mnuInfo 
  133.       Caption         =   "&Demos"
  134.       Begin Menu mnuDemoAnother 
  135.          Caption         =   "&Another Window..."
  136.       End
  137.       Begin Menu mnuDemoTextOut 
  138.          Caption         =   "&SuperTextOut Demo..."
  139.       End
  140.       Begin Menu mnuDemoTextJust 
  141.          Caption         =   "Text &Justification"
  142.       End
  143.       Begin Menu mnuInfoSep1 
  144.          Caption         =   "-"
  145.       End
  146.       Begin Menu mnuExit 
  147.          Caption         =   "E&xit"
  148.       End
  149.    End
  150.    Begin Menu mnuHelp 
  151.       Caption         =   "&Help"
  152.       Begin Menu mnuHelpContents 
  153.          Caption         =   "DLL Help &Contents..."
  154.       End
  155.       Begin Menu mnuHelpSearch 
  156.          Caption         =   "DLL Help &Search..."
  157.       End
  158.    End
  159. Sub Command1_Click ()
  160.     MsgBox "This is a sample message box.", 48, "MsgBox Test"
  161. End Sub
  162. Sub Command2_Click ()
  163.     Cmdialog1.Action = 1
  164. End Sub
  165. Sub Command3_Click ()
  166.     Cmdialog1.Action = 2
  167. End Sub
  168. Sub Form_Load ()
  169.     x% = Get3DfxPlusVersion()
  170.     ScreenCenterWindow Me.hWnd
  171.     'CHANGE THESE VALUES TO EXPERIMENT WITH CUSTOM CONFIGURAIONS
  172.     '(REFER TO 3DFXPLUS.BAS OR 3DFXPLUS.HLP FOR THE VARIOUS OPTIONS AVAILABLE)
  173.     'SetFrameCaptionAlignment "center"
  174.     'SetFrameCaptionStyle "raised"
  175.     'SetFrameBorderStyle "RaisedDouble"
  176.     'SetFrameFontSpecs "Arial", "bold", 14, QBColor(1)
  177.     'SetCheckBoxStyle "SunkenCheck"
  178.     'SetCheckBoxCaptionStyle "raised"
  179.     'SetCheckBoxGraphicAlignment "right"
  180.     'SetCheckBoxTextAlignment "left"
  181.     'SetCheckBoxFontSpecs "Arial", "bold", 10, QBColor(4)
  182.     'SetOptBtnStyle "SunkenCircle"
  183.     'SetOptBtnCaptionStyle "plain"
  184.     'SetOptBtnGraphicAlignment "left"
  185.     'SetOptBtnTextAlignment "right"
  186.     'SetOptBtnFontSpecs "Times New Roman", "italic", 12, QBColor(1)
  187.     'SetPictureBoxBorder "raised"
  188.     'SetVBComboBoxBorder "raised"
  189.     'SetDriveBoxBorder "raised"
  190.     'SetDirBoxBorder "raised"
  191.     'SetFileBoxBorder "raised"
  192.     'SetVBListBoxBorder "raised"
  193.     'SetVBHScrollBarBorder "raised"
  194.     'SetVBVScrollBarBorder "raised"
  195.     'SetVBTextBoxBorder "raised"
  196.     'SetFrameBorder "raised"
  197.     'SetOptBtnBorder "raised"
  198.     'SetCheckBoxBorder "raised"
  199.     'SetListBoxBorder "raised"
  200.     'SetEditBoxBorder "raised"
  201.     'SetScrollBarBorder "raised"
  202.     'SetStaticBorder "raised"
  203.     'AbortIfWin4Used False
  204.     'SetBackDropStyle "SlickFillLight"
  205.     Window3Dfx Me.hWnd
  206.     nl = Chr$(13) + Chr$(10)
  207.     mnuHelp.Caption = Chr$(8) + "&Help"     'right justifies menu item
  208.     msg$ = nl + "This small application demonstrates some" + nl
  209.     msg$ = msg$ + "of the functions of 3DfxPlus.DLL and a few" + nl
  210.     msg$ = msg$ + "VB tricks too.  Print and study the program" + nl
  211.     msg$ = msg$ + "to fully understand how it all works" + nl
  212.     msg$ = msg$ + "together.  Also, read the online Help file" + nl
  213.     msg$ = msg$ + "3DfxPlus.HLP to learn about the functions in" + nl
  214.     msg$ = msg$ + " this version of 3DfxPlus ... and about how to" + nl
  215.     msg$ = msg$ + " register this shareware utility."
  216.     Label1.Caption = msg$
  217. End Sub
  218. Sub Form_Paint ()
  219.     Draw3DWindowBox Me.hWnd, 3, "SunkenDouble"
  220.     DoControl3D Label1, raised, 4
  221.     Draw3Dbox Me.hWnd, 215, 185, 140, 60, "RaisedDouble"
  222. End Sub
  223. Sub mnuDemoAnother_Click ()
  224.     Screen.MousePointer = 11
  225.     AltWdw.Show 1
  226.     Me.SetFocus
  227. End Sub
  228. Sub mnuDemoTextJust_Click ()
  229.     Screen.MousePointer = 11
  230.     TextJust.Show 1
  231.     Me.SetFocus
  232. End Sub
  233. Sub mnuDemoTextOut_Click ()
  234.     Screen.MousePointer = 11
  235.     TextOut.Show 1
  236.     Me.SetFocus
  237. End Sub
  238. Sub mnuExit_Click ()
  239.     Unload Me
  240. End Sub
  241. Sub mnuHelpContents_Click ()
  242.     On Error Resume Next
  243.     MyHelpFile$ = App.Path
  244.     MyHelpFile$ = AddSeparator(MyHelpFile$) + "3DFXPLUS.HLP"
  245.     Screen.MousePointer = 11
  246.     ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_CONTENTS, 0&)
  247.     Screen.MousePointer = 0
  248. End Sub
  249. Sub mnuHelpSearch_Click ()
  250.     On Error Resume Next
  251.     MyHelpFile$ = App.Path
  252.     MyHelpFile$ = AddSeparator(MyHelpFile$) + "3DFXPLUS.HLP"
  253.     Screen.MousePointer = 11
  254.     ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_PARTIALKEY, "")
  255.     Screen.MousePointer = 0
  256. End Sub
  257.