Visual Basic 4 Power Pack/Visual_Basic4_Power_Pack.bin/vb4files/3dfxplus/altwdw.frm

Visual Basic Form | 1996-11-20 | 5.5 KB | 192 lines

VERSION 2.00
Begin Form AltWdw
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Another Window"
   ClientHeight    =   5160
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   7365
   Height          =   5565
   Left            =   1035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5160
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin CommonDialog CMDialog1
      Left            =   6000
      Top             =   4680
   End
   Begin CommandButton Command1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Dialog:  Open"
      Height          =   375
      Left            =   360
      TabIndex        =   15
      Top             =   4560
      Width           =   2655
   End
   Begin ComboBox Combo2
      Height          =   300
      Left            =   360
      Style           =   1  'Simple Combo
      TabIndex        =   14
      Text            =   "Combo2"
      Top             =   4080
      Width           =   2655
   End
   Begin ComboBox Combo1
      Height          =   300
      Left            =   360
      Style           =   2  'Dropdown List
      TabIndex        =   13
      Top             =   3600
      Width           =   2655
   End
   Begin PictureBox Picture1
      Height          =   615
      Left            =   360
      Picture         =   ALTWDW.FRX:0000
      ScaleHeight     =   585
      ScaleWidth      =   2625
      TabIndex        =   12
      Top             =   1440
      Width           =   2655
   End
   Begin FileListBox File1
      Height          =   810
      Left            =   4080
      TabIndex        =   11
      Top             =   3960
      Width           =   3135
   End
   Begin DirListBox Dir1
      Height          =   930
      Left            =   4080
      TabIndex        =   10
      Top             =   2880
      Width           =   3135
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   4080
      TabIndex        =   9
      Top             =   2400
      Width           =   3135
   End
   Begin VScrollBar VScroll1
      Height          =   2655
      LargeChange     =   10
      Left            =   3480
      Max             =   100
      TabIndex        =   8
      Top             =   2280
      Width           =   375
   End
   Begin HScrollBar HScroll1
      Height          =   375
      LargeChange     =   10
      Left            =   3480
      Max             =   100
      TabIndex        =   7
      Top             =   1800
      Width           =   2295
   End
   Begin ListBox List1
      Height          =   810
      Left            =   3480
      TabIndex        =   6
      Top             =   720
      Width           =   2295
   End
   Begin CheckBox Check1
      Caption         =   "Check1"
      Height          =   255
      Left            =   3480
      TabIndex        =   3
      Top             =   240
      Width           =   2175
   End
   Begin Frame Frame1
      Caption         =   "Frame1"
      Height          =   1335
      Left            =   360
      TabIndex        =   2
      Top             =   2160
      Width           =   2655
      Begin OptionButton Option2
         Caption         =   "Option2"
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   840
         Width           =   2175
      End
      Begin OptionButton Option1
         Caption         =   "Option1"
         Height          =   255
         Left            =   240
         TabIndex        =   4
         Top             =   360
         Width           =   2175
      End
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   360
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   840
      Width           =   2655
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   2655
   End
Sub Command1_Click ()
    SetBackDropStyle "SlickFillLight"
    SetStaticBorder "sunken"
    Cmdialog1.Action = 1
    'reset configuration to previous values
    SetStaticBorder "none"
    SetBackDropStyle "DiamondsLight"
End Sub
Sub Form_Load ()
    ScreenCenterWindow Me.hWnd
    SetBackDropStyle "DiamondsLight"
    SetFrameBorderStyle "none"
    SetFrameBorder "sunken"
    SetCheckBoxBorder "sunken"
    Window3Dfx Me.hWnd
    For x = 1 To 9
        list1.AddItem "list test " & x
        Next x
    For x = 1 To 9
        combo1.AddItem "combo test " & x
        Next x
    Screen.MousePointer = 0
End Sub
Sub Form_Paint ()
    Draw3DWindowBox Me.hWnd, 3, "SunkenDouble"
End Sub
Sub Form_Unload (Cancel As Integer)
    'reset configuration to previous values
    SetBackDropStyle "solid"
    SetFrameBorderStyle "RaisedDouble"
    SetFrameBorder "none"
    SetCheckBoxBorder "none"
End Sub