【VB开源代码栏目提醒】:网学会员VB开源代码为您提供Dialog.frm参考,解决您在Dialog.frm学习中工作中的难题,参考学习。
VERSION 5.00
Begin VB.Form Dialog
BorderStyle = 3 'Fixed Dialog
Caption = "退出"
ClientHeight = 1425
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 3795
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1425
ScaleWidth = 3795
ShowInTaskbar = 0 'False
Begin VB.CommandButton CancelButton
Caption = "取消"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 1
Top = 840
Width = 1215
End
Begin VB.CommandButton OKButton
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 0
Top = 840
Width = 1215
End
Begin VB.Label Label1
Caption = "确定退出歌厅管理系统!"
BeginProperty Font
Name = "Verdana"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 2
Top = 240
Width = 3015
End
End
Attribute VB_Name = "Dialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CancelButton_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2 '垂直方向居中
Me.Left = (Screen.Width - Me.Height) / 2 '水平方向居中
End Sub
Private Sub OKButton_Click()
Dim i As Integer
For i = 0 To Forms.Count - 1
Unload Forms(0)
Next i
End Sub
上一篇:
device_query.frm
下一篇:
ASP小区停车管理系统(Access)(含录像)