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 / vbpg32 / samples4 / ch08 / anprompt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-16  |  1.6 KB  |  59 lines
  1. VERSION 4.00
  2. Begin VB.Form frmPrompt 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClientHeight    =   705
  5.    ClientLeft      =   1095
  6.    ClientTop       =   5100
  7.    ClientWidth     =   5145
  8.    ControlBox      =   0   'False
  9.    Height          =   1110
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   705
  15.    ScaleWidth      =   5145
  16.    Top             =   4755
  17.    Width           =   5265
  18.    Begin VB.CommandButton cmdNo 
  19.       Caption         =   "Discard"
  20.       Height          =   435
  21.       Left            =   4140
  22.       TabIndex        =   1
  23.       Top             =   120
  24.       Width           =   855
  25.    End
  26.    Begin VB.CommandButton cmdYes 
  27.       Caption         =   "Include"
  28.       Height          =   435
  29.       Left            =   3060
  30.       TabIndex        =   0
  31.       Top             =   120
  32.       Width           =   915
  33.    End
  34.    Begin VB.Label lblFunc 
  35.       Caption         =   "Label1"
  36.       Height          =   255
  37.       Left            =   120
  38.       TabIndex        =   2
  39.       Top             =   180
  40.       Width           =   2775
  41.    End
  42. Attribute VB_Name = "frmPrompt"
  43. Attribute VB_Creatable = False
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46. ' Copyright 
  47.  1997 by Desaware Inc. All Rights Reserved
  48. Private Sub cmdNo_Click()
  49.     frmAnalyze.IncludeRecord = False
  50.     Me.Hide
  51. End Sub
  52. Private Sub cmdYes_Click()
  53.     frmAnalyze.IncludeRecord = True
  54.     Me.Hide
  55. End Sub
  56. Private Sub Form_Load()
  57.     Me.Move frmAnalyze.Left, frmAnalyze.Top + frmAnalyze.Height, frmAnalyze.Width
  58. End Sub
  59.