VB中的MDIForm的問題

劍痞憶秋年 · 2006-01-10, 12:07 AM

<<Form3>>

VERSION 5.00
Begin VB.Form Form3
Caption = "Form3"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 3195
ScaleWidth = 4680
WindowState = 2 '最大化
Begin VB.Menu mnu_Delete
Caption = "刪除"
Visible = 0 'False
Begin VB.Menu mnu_Delete_1
Caption = "刪除單筆"
End
Begin VB.Menu mnu_Delete_All
Caption = "刪除全部"
End
End
End
Attribute VB_Name = "Form3"
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

2006-01-10, 12:07 AM	#8 (permalink)
劍痞憶秋年長老會員榮譽勳章勳章總數4 UID - 15 在線等級: 註冊日期: 2002-12-06 住址: 步雲崖文章: 280 精華: 0 現金: 15847 金幣資產: 20867 金幣	<<Form3>> VERSION 5.00 Begin VB.Form Form3 Caption = "Form3" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form2" MDIChild = -1 'True ScaleHeight = 3195 ScaleWidth = 4680 WindowState = 2 '最大化 Begin VB.Menu mnu_Delete Caption = "刪除" Visible = 0 'False Begin VB.Menu mnu_Delete_1 Caption = "刪除單筆" End Begin VB.Menu mnu_Delete_All Caption = "刪除全部" End End End Attribute VB_Name = "Form3" 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

	送花文章: 150, 收花文章: 33 篇, 收花: 130 次

Google 提供的廣告