home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / message / msgboxmw / exoption.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-04-03  |  2.3 KB  |  85 lines
  1. VERSION 2.00
  2. Begin Form ExOption 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Export"
  6.    ClientHeight    =   1635
  7.    ClientLeft      =   2310
  8.    ClientTop       =   2610
  9.    ClientWidth     =   5160
  10.    ClipControls    =   0   'False
  11.    Height          =   2040
  12.    Left            =   2250
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1635
  17.    ScaleWidth      =   5160
  18.    Top             =   2265
  19.    Width           =   5280
  20.    Begin CommandButton btnCancel 
  21.       Cancel          =   -1  'True
  22.       Caption         =   "&Cancel"
  23.       Height          =   465
  24.       Left            =   3600
  25.       TabIndex        =   2
  26.       Top             =   990
  27.       Width           =   1365
  28.    End
  29.    Begin CommandButton btnStatement 
  30.       Caption         =   "&Statement"
  31.       Default         =   -1  'True
  32.       Height          =   465
  33.       Left            =   1890
  34.       TabIndex        =   0
  35.       Top             =   990
  36.       Width           =   1365
  37.    End
  38.    Begin CommandButton btnFunction 
  39.       Caption         =   "&Function"
  40.       Height          =   465
  41.       Left            =   180
  42.       TabIndex        =   1
  43.       Top             =   990
  44.       Width           =   1365
  45.    End
  46.    Begin Image Icon 
  47.       Height          =   540
  48.       Left            =   180
  49.       Picture         =   EXOPTION.FRX:0000
  50.       Top             =   270
  51.       Width           =   540
  52.    End
  53.    Begin Label MessageText 
  54.       BackColor       =   &H00C0C0C0&
  55.       Caption         =   "Export Code To Visual Basic Code Window As A VB Function Or Statement?"
  56.       Height          =   375
  57.       Left            =   900
  58.       TabIndex        =   3
  59.       Top             =   360
  60.       Width           =   4065
  61.    End
  62. Option Explicit
  63. Sub btnCancel_Click ()
  64. 'signal Cancel button selected
  65. MBD_BtnReturned = IDCANCEL
  66. 'remove form
  67. Me.Hide
  68. End Sub
  69. Sub btnFunction_Click ()
  70. 'signal Function button selected
  71. MBD_BtnReturned = IDYES
  72. 'remove form
  73. Me.Hide
  74. End Sub
  75. Sub btnStatement_Click ()
  76. 'signal Statement button selected
  77. MBD_BtnReturned = IDNO
  78. 'remove form
  79. Me.Hide
  80. End Sub
  81. Sub Form_Load ()
  82. 'centre form on screen
  83. Center_Form Me
  84. End Sub
  85.