home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhanim / foptions.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-10-27  |  2.3 KB  |  74 lines
  1. VERSION 4.00
  2. Begin VB.Form fOptions 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3825
  5.    ClientLeft      =   1110
  6.    ClientTop       =   1590
  7.    ClientWidth     =   6225
  8.    ControlBox      =   0   'False
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   4230
  20.    Left            =   1050
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   3825
  25.    ScaleWidth      =   6225
  26.    Top             =   1245
  27.    Width           =   6345
  28.    Begin VB.CommandButton cmdClose 
  29.       Caption         =   "CLOSE"
  30.       Height          =   495
  31.       Left            =   4920
  32.       TabIndex        =   0
  33.       Top             =   3240
  34.       Width           =   1215
  35.    End
  36.    Begin VB.OptionButton optOption 
  37.       Height          =   255
  38.       Index           =   0
  39.       Left            =   120
  40.       TabIndex        =   1
  41.       Top             =   120
  42.       Width           =   4695
  43.    End
  44. Attribute VB_Name = "fOptions"
  45. Attribute VB_Creatable = False
  46. Attribute VB_Exposed = False
  47. Option Explicit
  48. Private Sub cmdClose_Click()
  49.     igOptionSW = 1
  50. End Sub
  51. Private Sub Form_Load()
  52.     Dim i As Integer
  53.     For i = LBound(sgOptionArray) To UBound(sgOptionArray)
  54.         If i > 0 Then
  55.             Load optOption(i)
  56.             optOption(i).Left = optOption(i - 1).Left
  57.             optOption(i).Top = optOption(i - 1).Top + optOption(i - 1).Height
  58.         End If
  59.         optOption(i).Caption = sgOptionArray(i)
  60.         optOption(i).Visible = True
  61.     Next i
  62.     fOptions.Height = optOption(UBound(sgOptionArray)).Top + (optOption(UBound(sgOptionArray)).Height * 3)
  63.     cmdClose.Top = fOptions.Height - cmdClose.Height - 240
  64.     optOption(Abs(igOptionState)).Value = True
  65.     ReDim sgOptionArray(0)
  66.     sgOptionArray(0) = ""
  67.     fOptions.Top = (Screen.Height - fOptions.Height) / 2
  68.     fOptions.Left = (Screen.Width - fOptions.Width) / 2
  69. End Sub
  70.        
  71. Private Sub optOption_Click(index As Integer)
  72.     igOptionChosen = index
  73. End Sub
  74.