一文学会VB编程,简单实用不费力
yund56 2025-05-22 15:38 36 浏览
应用实例:
给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 Sub6、运行程序,输入入学日期、编入班级和编号,自动生成学号
点击确定按钮
实现了学号的自动生成,实际上我们可以通过读取学生信息文件,将所有的学生学号进行自动生成并保存到文件中,可以保存成文本格式文件,也可以保存成表格文件,还可以保存成数据库格式文件。
应用实例:
在添加学生信息时,当添加到学生所在地时,不需要手动输入,可以直接从列表中进行选择
实现步骤
再添加一个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循环语句
运行程序,你输入数字,则文本框直接过滤掉,输不进去:
结语:如果想学更多,请关注转发收藏
相关推荐
- SM小分队Girls on Top,女神战队少了f(x)?
-
这次由SM娱乐公司在冬季即将开演的smtown里,将公司的所有女团成员集结成了一个小分队project。第一位这是全面ACE的大姐成员权宝儿(BoA),出道二十年,在日本单人销量过千万,韩国国内200...
- 韩国女团 aespa 首场 VR 演唱会或暗示 Quest 3 将于 10 月推出
-
AmazeVR宣布将在十月份举办一场现场VR音乐会,观众将佩戴MetaQuest3进行体验。韩国女团aespa于2020年11月出道,此后在日本推出了三张金唱片,在韩国推出了...
- 韩网热议!女团aespa成员Giselle在长腿爱豆中真的是legend
-
身高163的Giselle,长腿傲人,身材比例绝了...
- 假唱而被骂爆的女团:IVE、NewJeans、aespa上榜
-
在韩国,其实K-pop偶像并不被认为是真正的歌手,因为偶像们必须兼备舞蹈能力、也经常透过对嘴来完成舞台。由于科技的日渐发达,也有许多网友会利用消音软体来验证K-pop偶像到底有没有开麦唱歌,导致假唱这...
- 新女团Aespa登时尚大片 四个少女四种style
-
来源:环球网
- 韩国女团aespa新歌MV曝光 画面梦幻造型超美
-
12月20日,韩国女团aespa翻唱曲《DreamsComeTrue》MV公开,视频中,她们的造型超美!WINTER背后长出一双梦幻般的翅膀。柳智敏笑容甜美。宁艺卓皮肤白皙。GISELLE五官精致...
- 女网友向拳头维权,自称是萨勒芬妮的原型?某韩国女团抄袭KDA
-
女英雄萨勒芬妮(Seraphine)是拳头在2020年推出的第五位新英雄,在还没有正式上线时就备受lsp玩家的关注,因为她实在是太可爱了。和其他新英雄不同的是,萨勒芬妮在没上线时就被拳头当成虚拟偶像来...
- 人气TOP女团是?INS粉丝数见分晓;TWICE成员为何在演唱会落泪?
-
现在的人气TOP女团是?INS粉丝数见分晓!现在爱豆和粉丝之间的交流方法变得多种多样,但是Instagram依然是主要的交流手段。很多粉丝根据粉丝数评价偶像的人气,拥有数百、数千万粉丝的组合作为全球偶...
- 韩国女团MVaespa Drama MV_韩国女团穿超短裙子跳舞
-
WelcometoDrama.Pleasefollow4ruleswhilewatchingtheDrama.·1)Lookbackimmediatelywhenyoufe...
- aespa师妹团今年将出道! SM职员亲口曝「新女团风格、人数」
-
记者刘宛欣/综合报导南韩造星工厂SM娱乐曾打造出东方神起、SUPERJUNIOR、少女时代、SHINee、EXO等传奇团体,近年推出的aespa、RIIZE更是双双成为新生代一线团体,深受大众与粉丝...
- 南韩最活跃的女团aespa,新专辑《Girls》即将发布,盘点昔日经典
-
女团aespa歌曲盘点,新专辑《Girls》即将发布,期待大火。明天也就是2022年的7月8号,aespa新专辑《Girls》即将发行。这是继首张专辑《Savage》之后,时隔19个月的第二张专辑,这...
- 章泽天女团aespa出席戛纳晚宴 宋康昊携新片亮相
-
搜狐娱乐讯(山今/文玄反影/图科明/视频)法国时间5月23日晚,女团aespa、宋康昊、章泽天等明星亮相戛纳晚宴。章泽天身姿优越。章泽天肩颈线优越。章泽天双臂纤细。章泽天仪态端正。女团aespa亮...
- Aespa舞台暴露身高比例,宁艺卓脸大,柳智敏有“TOP”相
-
作为SM公司最新女团aespa,初舞台《BlackMamba》公开,在初舞台里,看得出来SM公司是下了大功夫的,虽然之前SM公司新出的女团都有很长的先导片,但是aespa显然是有“特殊待遇”。运用了...
- AESPA女团成员柳智敏karina大美女
-
真队内速度最快最火达成队内首个且唯一两百万点赞五代男女团中输断层第一(图转自微博)...
- 对来学校演出的女团成员语言性骚扰?韩国这所男高的学生恶心透了
-
哕了……本月4日,景福男子高中相关人士称已经找到了在SNS中上传对aespa成员进行性骚扰文章的学生,并开始着手调查。2日,SM娱乐创始人李秀满的母校——景福高中迎来了建校101周年庆典活动。当天,S...
- 一周热门
- 最近发表
-
- SM小分队Girls on Top,女神战队少了f(x)?
- 韩国女团 aespa 首场 VR 演唱会或暗示 Quest 3 将于 10 月推出
- 韩网热议!女团aespa成员Giselle在长腿爱豆中真的是legend
- 假唱而被骂爆的女团:IVE、NewJeans、aespa上榜
- 新女团Aespa登时尚大片 四个少女四种style
- 韩国女团aespa新歌MV曝光 画面梦幻造型超美
- 女网友向拳头维权,自称是萨勒芬妮的原型?某韩国女团抄袭KDA
- 人气TOP女团是?INS粉丝数见分晓;TWICE成员为何在演唱会落泪?
- 韩国女团MVaespa Drama MV_韩国女团穿超短裙子跳舞
- aespa师妹团今年将出道! SM职员亲口曝「新女团风格、人数」
- 标签列表
-
- filter函数js (37)
- filter函数excel用不了 (73)
- 商城开发 (40)
- 影视网站免费源码最新版 (57)
- 影视资源api接口 (46)
- 网站留言板代码大全 (56)
- java版软件下载 (52)
- java教材电子课本下载 (48)
- 0基础编程从什么开始学 (50)
- java是用来干嘛的 (51)
- it入门应该学什么 (55)
- java线上课程 (55)
- 学java的软件叫什么软件 (38)
- 程序开发软件有哪些 (53)
- 软件培训 (59)
- 机器人编程代码大全 (50)
- 少儿编程教程免费 (45)
- 新代系统编程教学 (61)
- 共创世界编程网站 (38)
- 亲测源码 (36)
- 三角函数积分公式表 (35)
- 函数的表示方法 (34)
- 表格乘法的公式怎么设置 (34)
- sumif函数的例子 (34)
- 图片素材 (36)
