' Splitting a menu here demonstrates that this can be done dynamically.
Dim mnuItemInfo As MENUITEMINFO, hMenu As Long, hSubMenu As Long
Dim BuffStr As String * 80 ' Define as largest possible menu text.
hMenu = GetMenu(Me.hwnd) ' retrieve menu handle.
BuffStr = Space(80)
With mnuItemInfo ' Initialize the UDT.
.cbSize = Len(mnuItemInfo) ' 44
.dwTypeData = BuffStr & Chr(0)
.fType = MF_STRING
.cch = Len(mnuItemInfo.dwTypeData) ' 80
.fState = MFS_DEFAULT
.fMask = MIIM_ID Or MIIM_DATA Or MIIM_TYPE Or MIIM_SUBMENU
End With
' Use item break point position for the '3' below (zero-based list).
hSubMenu = GetSubMenu(hMenu, 0)
If GetMenuItemInfo(hSubMenu, 2, True, mnuItemInfo) = 0 Then
MsgBox "GetMenuItemInfo failed. Error: " & Err.LastDllError, , _
"Error"
Else
mnuItemInfo.fType = mnuItemInfo.fType Or MF_MENUBARBREAK
If SetMenuItemInfo(hSubMenu, 2, True, mnuItemInfo) = 0 Then
MsgBox "SetMenuItemInfo failed. Error: " & Err.LastDllError, , _
"Error"
End If
End If
DrawMenuBar (Me.hwnd) ' Repaint top level Menu.
没有合适的资源?快使用搜索试试~ 我知道了~
基于VB6的程序架构模板
共153个文件
cls:43个
bas:20个
ico:15个
需积分: 0 3 下载量 38 浏览量
2024-01-12
17:06:26
上传
评论
收藏 847KB RAR 举报
温馨提示
VB程序架构模板 https://www.cnblogs.com/lzhdim/p/3536610.html
资源推荐
资源详情
资源评论
收起资源包目录
基于VB6的程序架构模板 (153个子文件)
aero_busy_xl.ani 76KB
APICoordinator.bas 151KB
APIEnumerations.bas 149KB
Miscellaneous.bas 59KB
APIWin32Types.bas 41KB
DLLRegister.bas 6KB
AppWin32API.bas 5KB
Helpers.bas 3KB
StartMain.bas 2KB
APIConstants.bas 2KB
AppTypesDeclare.bas 2KB
AppConstants.bas 2KB
AppWindowProcess.bas 1KB
APIEnumerations.bas 1KB
APIEnumerations.bas 1KB
APIEnumerations.bas 1KB
APICoordinator.bas 1KB
APICoordinator.bas 1KB
APICoordinator.bas 1KB
AppSystemMenu.bas 530B
AppThreadFunction.bas 495B
OwnerDrawnMenu.cls 129KB
Menu.cls 104KB
Window.cls 25KB
Registry.cls 18KB
ToolTip.cls 12KB
User.cls 8KB
AppFunction.cls 7KB
System.cls 7KB
Computer.cls 6KB
MainAPI.cls 6KB
Global.cls 6KB
OS.cls 6KB
AppHelpers.cls 6KB
SQLServer.cls 5KB
Thread.cls 5KB
Tray.cls 5KB
GUID.cls 5KB
ToolTips.cls 5KB
Trays.cls 5KB
Resourse.cls 4KB
AppMsgProcess.cls 4KB
Project.cls 4KB
RWIniFile.cls 3KB
CDDrive.cls 3KB
File.cls 3KB
MainAPI.cls 3KB
Form.cls 2KB
MainAPI.cls 2KB
DLLInfo.cls 2KB
DLLInfo.cls 2KB
DLLInfo.cls 2KB
DLLInfo.cls 2KB
KeyBoard.cls 2KB
MCI.cls 2KB
Net.cls 2KB
AppVariables.cls 1KB
Global.cls 1KB
Access.cls 1KB
Oracle.cls 1KB
MYSQL.cls 1KB
Global.cls 1KB
Exception.cls 839B
Global.cls 820B
VB程序架构模板.csi 3KB
VBProgramArthTemp.csi 3KB
LogHelper.csi 1KB
SystemHelper.csi 799B
AppHelper.csi 695B
DataBaseHelper.csi 443B
jcButton.ctl 228KB
ucXPStatusBar.ctl 74KB
ucXPStatusBar.ctx 851B
jcButton.ctx 786B
SystemHelper.dll 464KB
SystemHelper.dll 252KB
AppHelper.dll 68KB
LogHelper.dll 44KB
DataBaseHelper.dll 44KB
VBProgramArth.exe 64KB
SystemHelper.exp 1KB
DataBaseHelper.exp 1013B
SystemHelper.exp 1005B
LogHelper.exp 992B
AppHelper.exp 992B
frmSplash.frm 5KB
frmAbout.frm 4KB
GradForm.frm 4KB
frmAbout.frm 4KB
frmAbout.frm 4KB
frmAbout.frm 4KB
frmMain.frm 805B
GradForm.frx 6KB
frmAbout.frx 2KB
frmAbout.frx 2KB
frmAbout.frx 2KB
frmAbout.frx 2KB
frmSplash.frx 12B
Main.ico 2KB
DLLIcon.ico 2KB
共 153 条
- 1
- 2
资源评论
lzhdim
- 粉丝: 927
- 资源: 1108
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 农村信用社联合社计算机信息系统投产与变更管理办.docx
- 农村信用社联合社计算机信息系统数据管理办法.docx
- 利用SPSS作临床效度分析线上计算网站介绍-医学研究部统计谘.(医学PPT课件).ppt
- 利用Zabbix监控mysqldump定时备份数据库状态.docx
- 利用计算机解决问题的基本过程.doc
- 化工铁路通信工程总结.doc
- 北京大学网络教育软件工程作业.docx
- 医药公司(连锁店)计算机操作规程未新系统的自行按照旧制修改-新系统过制的编号加修模版.doc
- 医药公司(连锁店)计算机系统操作规程模版.doc
- 医药连锁门店计算机系统的操作和管理程序未新系统的自行按照旧制修改-新系统过制的编号加修模版.docx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功