给VB程序加菜单图标：

 

在VB里面加图标比较麻烦,你需要用到API函数进行调用，参数不好理解：

给菜单添加图标的API函数：GetMenu、GetSubMenu、GetMenuItemID、SetMenuItemBitmaps。

写代码前你要把ImageList控件放到窗体上，如果工具栏中找不到它，通过“工程”菜单下的“部件”进行添加：

 

将ImageList控件添加到窗体后，右键属性弹出窗口，插入图片添加你需要用的小图像：

 

编写代码：

 

 

代码解释：

前面你要声明几个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属性设置为

 

 

3、在窗体上添加两个TextBox控件，对这两个控件的MaxLength属性进行设置，，密码框的PasswordChar属性设置为“*”：

 

 

 

4、在窗体上放置两个Label控件：

 

5、在窗体加载事件中编写代码：

 

6、运行程序，向用户名框内输入字符：

 

输入字符密码：

 

应用实例：

在学生管理系统中显示学号时，要求文本框中显示的学号要体现入学日期、班级信息和学生编号

实现步骤

1、创建一个新窗体默认名称Form1

2、在窗体上添加Frame控件，你可以在它里面放置其它控件，这样使得它们成为一个区域的整体，窗体设计中常常用到这个控件，通过它可以创建控件组：

 

3、修改Frame控件的Caption属性，并在Frame控件中添加四个Label控件和四个TextBox控件，并分别对四个Label控件的Caption属性进行相应修改：

 

 

 

4、在窗体上放置两个CommandButton控件，通过点击“确定”按钮，实现学号自动显示，单击“退出”按钮，实现结束程序：

 

5、添加程序代码

Private Sub Command1_Click()
    Dim a, b, c
    a = Text1.Text
    b = Text2.Text
    c = Text3.Text
    Text4.Text = Trim(a) & Trim(b) & Trim(c)
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
End Sub

6、运行程序，输入入学日期、编入班级和编号，自动生成学号

 

点击确定按钮

 

实现了学号的自动生成，实际上我们可以通过读取学生信息文件，将所有的学生学号进行自动生成并保存到文件中，可以保存成文本格式文件，也可以保存成表格文件，还可以保存成数据库格式文件。

应用实例：

在添加学生信息时，当添加到学生所在地时，不需要手动输入，可以直接从列表中进行选择

实现步骤

再添加一个Label控件、一个文本框控件和一个ComboBox控件，Label控件的内容为“学生所在省份”，ComboBox控件的下拉列表框将省份名称送给文本框控件：

 

代码：

Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
End Sub

Private Sub Combo1_Click()
    Text5.Text = Combo1.Text
End Sub

运行程序，输入学生信息，在下拉列表框中选择学生的住所：

 

应用实例4：

不允许用户在文本框中输入数字信息，如果用户在文本框中输入数字信息，则自动进行删除操作。

实现步骤：

在窗体中放置一个Label控件和一个TextBox控件，并将TextBox控件的MultiLine属性设置为True，ScrollBars属性设置为2-Vertical：

 

代码：

Private Sub Text1_Change()
    Dim j, c
    If Text1.Text = "" Then
        Text1.SetFocus
        Exit Sub
    Else
        j = Len(Text1.Text)
        Do While (j <> 0)
            c = Left(Right(Text1.Text, j), 1)
            If IsNumeric(c) Then
                Text1.Text = Left(Text1.Text, Len(Text1.Text) - j) + Right(Text1.Text, j - 1)
                Text1.SelStart = Len(Text1.Text)
            End If
            j = j - 1
        Loop
    End If
End Sub

这里面用到了几个函数：

Len(Text1.Text)：求取文本的长度

Left(Right(Text1.Text, j), 1)：从左边和右边截取字符

IsNumeric(c)：判断是否为数字

还用到了Do While…loop循环语句

运行程序，你输入数字，则文本框直接过滤掉，输不进去：

 

结语：如果想学更多，请关注转发收藏

本文链接：https://www.lezhuanwang.net/kepu/89970.html『转载请注明出处』