home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / WIZARDS / TEMPLATE / CONFIRM.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1996-10-24  |  2.8 KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.Form frmConfirm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2595
  6.    ClientLeft      =   3540
  7.    ClientTop       =   5310
  8.    ClientWidth     =   5325
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Confirm.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   2595
  25.    ScaleWidth      =   5325
  26.    StartUpPosition =   2  'CenterScreen
  27.    Tag             =   "10000"
  28.    Begin VB.CheckBox chkDontShowAgain 
  29.       Caption         =   "chkDontShowAgain"
  30.       Height          =   270
  31.       Left            =   420
  32.       MaskColor       =   &H00000000&
  33.       TabIndex        =   1
  34.       Tag             =   "10002"
  35.       Top             =   1380
  36.       Width           =   4590
  37.    End
  38.    Begin VB.CommandButton cmdOK 
  39.       Caption         =   "cmdOK"
  40.       Default         =   -1  'True
  41.       Height          =   495
  42.       Left            =   1680
  43.       MaskColor       =   &H00000000&
  44.       TabIndex        =   0
  45.       Tag             =   "10003"
  46.       Top             =   1935
  47.       Width           =   1875
  48.    End
  49.    Begin VB.Image Image1 
  50.       Height          =   930
  51.       Left            =   195
  52.       Picture         =   "Confirm.frx":000C
  53.       Stretch         =   -1  'True
  54.       Top             =   210
  55.       Width           =   975
  56.    End
  57.    Begin VB.Label lblConfirm 
  58.       Caption         =   "lblConfirm"
  59.       Height          =   990
  60.       Left            =   1560
  61.       TabIndex        =   2
  62.       Tag             =   "10001"
  63.       Top             =   165
  64.       Width           =   3480
  65.       WordWrap        =   -1  'True
  66.    End
  67. Attribute VB_Name = "frmConfirm"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Option Explicit
  73. Const RES_CONFIRM_DLG = 2000
  74. Dim msForm As String
  75. Public Sub SetFormName(sData As String)
  76.     msForm = sData
  77. End Sub
  78. Private Sub chkDontShowAgain_Click()
  79.     On Error Resume Next
  80.     If chkDontShowAgain.Value = vbChecked Then
  81.         SaveSetting APP_CATEGORY, WIZARD_NAME, CONFIRM_KEY, DONTSHOW_CONFIRM
  82.     Else
  83.         SaveSetting APP_CATEGORY, WIZARD_NAME, CONFIRM_KEY, vbNullString
  84.     End If
  85. End Sub
  86. Private Sub cmdOK_Click()
  87.     Unload Me
  88. End Sub
  89. Private Sub Form_Load()
  90.     LoadResStrings Me
  91.     lblConfirm.Caption = ReplaceTopicTokens(LoadResString(RES_CONFIRM_DLG + 1), msForm, vbNullString)
  92. End Sub
  93.