?? deldialog.frm
字號:
VERSION 5.00
Begin VB.Form DelDialog
BorderStyle = 3 'Fixed Dialog
Caption = "請選擇刪除類型"
ClientHeight = 1665
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 4545
Icon = "DelDialog.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1665
ScaleWidth = 4545
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.OptionButton optSelectItem
Caption = " 刪除整張單據"
ForeColor = &H000000FF&
Height = 270
Index = 1
Left = 555
TabIndex = 6
Top = 930
Width = 1710
End
Begin VB.OptionButton optSelectItem
Caption = " 刪除選定的行"
Height = 270
Index = 0
Left = 555
TabIndex = 5
Top = 555
Value = -1 'True
Width = 1710
End
Begin VB.CommandButton CancelButton
Cancel = -1 'True
Caption = "取消"
Height = 375
Left = 3135
TabIndex = 1
Top = 660
Width = 1215
End
Begin VB.CommandButton OKButton
Caption = "確定"
Default = -1 'True
Height = 375
Left = 3135
TabIndex = 0
Top = 180
Width = 1215
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Height = 1305
Left = 165
TabIndex = 4
Top = 180
Width = 2730
End
End
Attribute VB_Name = "DelDialog"
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 OKButton_Click()
If optSelectItem(0).Value = True Then
bDelSelect = 1
Else
bDelSelect = 2
End If
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -