home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / desaware / apitools / frmopt2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-13  |  3.8 KB  |  125 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Options"
  5.    ClientHeight    =   2130
  6.    ClientLeft      =   2820
  7.    ClientTop       =   2940
  8.    ClientWidth     =   4875
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   2130
  14.    ScaleWidth      =   4875
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.Frame Frame1 
  17.       Caption         =   "When Copying, Copy:"
  18.       Height          =   1095
  19.       Left            =   0
  20.       TabIndex        =   4
  21.       Top             =   0
  22.       Width           =   2535
  23.       Begin VB.OptionButton optWin 
  24.          Caption         =   "Both Definitions "
  25.          Height          =   195
  26.          Index           =   2
  27.          Left            =   240
  28.          TabIndex        =   7
  29.          Top             =   720
  30.          Value           =   -1  'True
  31.          Width           =   1695
  32.       End
  33.       Begin VB.OptionButton optWin 
  34.          Caption         =   "The 32-Bit Definition"
  35.          Height          =   195
  36.          Index           =   1
  37.          Left            =   240
  38.          TabIndex        =   6
  39.          Top             =   480
  40.          Width           =   2055
  41.       End
  42.       Begin VB.OptionButton optWin 
  43.          Caption         =   "The 16-Bit Definition"
  44.          Height          =   195
  45.          Index           =   0
  46.          Left            =   240
  47.          TabIndex        =   5
  48.          Top             =   240
  49.          Width           =   2055
  50.       End
  51.    End
  52.    Begin VB.CheckBox chkComments 
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   "Add Comments to Definitions"
  55.       ForeColor       =   &H00004040&
  56.       Height          =   255
  57.       Left            =   120
  58.       TabIndex        =   3
  59.       Top             =   1320
  60.       Value           =   1  'Checked
  61.       Width           =   2415
  62.    End
  63.    Begin VB.CheckBox chkGlobal 
  64.       BackColor       =   &H00C0C0C0&
  65.       Caption         =   "Add the ""Public"" Keyword to constants"
  66.       ForeColor       =   &H00004040&
  67.       Height          =   255
  68.       Left            =   120
  69.       TabIndex        =   2
  70.       Top             =   1680
  71.       Width           =   3100
  72.    End
  73.    Begin VB.CommandButton cmdCancel 
  74.       Cancel          =   -1  'True
  75.       Caption         =   "&Cancel"
  76.       Height          =   495
  77.       Left            =   3480
  78.       TabIndex        =   1
  79.       Top             =   780
  80.       Width           =   1215
  81.    End
  82.    Begin VB.CommandButton cmdOK 
  83.       Caption         =   "&OK"
  84.       Default         =   -1  'True
  85.       Height          =   495
  86.       Left            =   3480
  87.       TabIndex        =   0
  88.       Top             =   240
  89.       Width           =   1215
  90.    End
  91. Attribute VB_Name = "frmOptions"
  92. Attribute VB_GlobalNameSpace = False
  93. Attribute VB_Creatable = False
  94. Attribute VB_PredeclaredId = True
  95. Attribute VB_Exposed = False
  96. ' Copyright 
  97.  1996 by Desaware Inc.
  98. ' Part of the Desaware API Toolkit
  99. ' All Rights Reserved
  100. Option Explicit
  101. Const OPT_WIN16 = 0
  102. Const OPT_WIN32 = 1
  103. Const OPT_BOTH = 2
  104. Public Sub cmdCancel_Click()
  105.     Me.Hide
  106. End Sub
  107. Public Sub cmdOK_Click()
  108.     If optWin(OPT_WIN16).Value = True Then
  109.         options% = OPT_WIN16
  110.     ElseIf optWin(OPT_WIN32).Value = True Then
  111.         options% = OPT_WIN32
  112.     ElseIf optWin(OPT_BOTH).Value = True Then
  113.         options% = OPT_BOTH
  114.     End If
  115.     Comments% = chkComments.Value
  116.     Glbl% = chkGlobal.Value
  117. '    frmAPI.Initialize
  118.     Me.Hide
  119. End Sub
  120. Public Sub Form_Load()
  121.     optWin(options%).Value = True
  122.     chkComments.Value = Abs(Comments%)
  123.     chkGlobal.Value = Abs(Glbl%)
  124. End Sub
  125.