Menu Bar และ Popup Menu
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 288   1
URL.หัวข้อ / URL
Menu Bar และ Popup Menu

จะสร้าง Menu Bar และ Popup Menu ด้วย Module ใน MS Access 97 ได้อย้างไร

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R00092
อันดับแรกต้องอ้างอิง References ไปยัง Microsoft Office X.X Object Library แล้วลองนำโค้ดต่อไปนี้ไปลองปรับใช้ดู Sub CreateNew() Dim cbar1 As CommandBar Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating) cbar1.Visible = True End Sub Sub SpecifyCommandBarAndButton() CreateCustomButton "Custom1", "My custom button" End Sub Function CreateCustomButton(strBarName As String, strName As String) As Integer Dim cmdBar As CommandBar, cmdBarCustomButton As CommandBarButton Set cmdBar = CommandBars(strBarName) ' Show command bar if it's not already visible. If cmdBar.Visible = False Then cmdBar.Visible = True On Error Resume Next Set cmdBarCustomButton = cmdBar.Controls(strName) If Err <> 0 Then ' Custom button doesn't already exist, so create it. msoControlPopup msoControlButton Set cmdBarCustomButton = cmdBar.Controls.Add(msoControlButton, , , , True) Set cmdBarCustomButton = cmdBar.Controls.Add End If With cmdBarCustomButton .Caption = strName .BeginGroup = True .OnAction = "=msgbox(""Hello World"")" ' Run your macro or custom function here. .Style = msoButtonCaption End With End Function Sub AddItemOne() Dim newCombo As CommandBarComboBox Set newCombo = CommandBars("Custom1").Controls _ .Add(Type:=msoControlComboBox) With newCombo .AddItem "Q1" .AddItem "Q2" .AddItem "Q3" .AddItem "Q4" .Style = msoComboNormal .OnAction = "ScrollToQuarter" End With End Sub ศึกษาเพิ่มเติมใน Help โดยใช้คำค้นว่า Menu Bar ดูครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0827s