module1.bas

来自「这是一个用C语言编写的程序」· BAS 代码 · 共 53 行

Attribute VB_Name = "Module1"
Option Explicit

  Public Type MENUITEMINFO
      cbSize As Long
      fMask As Long
      fType As Long
      fState As Long
      wID As Long
      hSubMenu As Long
      hbmpChecked As Long
      hbmpUnchecked As Long
      dwItemData As Long
      dwTypeData As String
      cch As Long
  End Type

  Public Declare Function GetMenu Lib "user32" _
     (ByVal hwnd As Long) As Long

  Public Declare Function GetMenuItemCount Lib "user32" _
     (ByVal hMenu As Long) As Long

  Public Declare Function GetSubMenu Lib "user32" _
     (ByVal hMenu As Long, ByVal nPos As Long) As Long

  Public Declare Function GetMenuItemInfo Lib "user32" _
      Alias "GetMenuItemInfoA" _
     (ByVal hMenu As Long, ByVal un As Long, _
      ByVal b As Boolean, lpmii As MENUITEMINFO) As Long

  Public Declare Function SetMenuItemInfo Lib "user32" _
      Alias "SetMenuItemInfoA" _
     (ByVal hMenu As Long, ByVal uItem As Long, _
     ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long

  Public Const MIIM_STATE = &H1
  Public Const MIIM_ID = &H2
  Public Const MIIM_SUBMENU = &H4
  Public Const MIIM_CHECKMARKS = &H8
  Public Const MIIM_TYPE = &H10
  Public Const MIIM_DATA = &H20

  Public Const MFT_RADIOCHECK = &H200&
  Public Const MFT_STRING = &H0&

  Public Const RGB_STARTNEWCOLUMNWITHVERTBAR = &H20&
  Public Const RGB_STARTNEWCOLUMN = &H40&
  Public Const RGB_EMPTY = &H100&
  Public Const RGB_VERTICALBARBREAK = &H160&
  Public Const RGB_SEPARATOR = &H800&