<<Form2>>
VERSION 5.00
Begin VB.Form Form2
Caption = "Form2"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 3195
ScaleWidth = 4680
WindowState = 2 '最大化
Begin VB.Menu mnu_PopUp
Caption = "快選功能表"
Visible = 0 'False
Begin VB.Menu mnu_Delete
Caption = "刪除"
Begin VB.Menu mnu_Delete_1
Caption = "刪除單筆"
End
Begin VB.Menu mnu_Delete_All
Caption = "刪除全部"
End
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PopupMenu mnu_Delete
End Sub
|