代码解释:
前面你要声明几个API函数
GetMenu:获得弹出菜单的句柄,判断窗体上到底有没有菜单控件,否则返回Null值,hwnd参数用来指定有菜单的窗口。
GetSubMenu:获得弹出菜单的句柄,hmenu参数用来指定父菜单,npos菜单用来指定弹出菜单在主菜单中的位置。
SetMenuItemBitmaps:把位图搞过来,wflags参数决定npos参数指定的是ID还是顺序编号,hBitmapUnchecked和hBitmapChecked指定菜单项的位图。
如果知道这几个函数的功能和参数的作用就不难理解窗体程序中加载的代码了:
menu1 = GetMenu(Me.hwnd):判断有没有菜单
menuid = GetMenuItemID(GetSubMenu(menu1, 0), i - 1):获取菜单的ID数值
SetMenuItemBitmaps menu1, menuid, bitmap, ImageList1.ListImages(i).Picture, ImageList1.ListImages(i).Picture:将图像通过FOR循环依次赋值给这个菜单
运行:
控件用法:
在Visual Basic环境下,TextBox控件主要的作用是接收用户输入、编辑和修改的内容,显示程序输出的信息,体现了程序与用户的交互性。
实现:
登录系统需要输入用户名和密码,使用TextBox控件限制用户输入用户名和密码的字符数量,限制密码框中输入的字符数量不超过6位,当用户输入的数量超限时,则弹出消息框加以提示。
实现步骤:
1、创建一个新窗体默认名称Form1
2、添加PictureBox控件,Picture属性设置为