在vb中怎么图片框中放入图片(代码属性导入添加图片方法)

应用实例:

给VB程序加菜单图标:

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 2

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

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

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 4

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 6

编写代码:

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 8

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 10

代码解释:

前面你要声明几个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循环依次赋值给这个菜单

运行:

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 12

应用实例

控件用法:

在Visual Basic环境下,TextBox控件主要的作用是接收用户输入、编辑和修改的内容,显示程序输出的信息,体现了程序与用户的交互性。

实现:

登录系统需要输入用户名和密码,使用TextBox控件限制用户输入用户名和密码的字符数量,限制密码框中输入的字符数量不超过6位,当用户输入的数量超限时,则弹出消息框加以提示。

实现步骤:

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 14

2、添加PictureBox控件,Picture属性设置为

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 16

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 18

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 20

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 22

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 24

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 26

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 28

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 30

输入字符密码:

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 32

应用实例:

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

实现步骤

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

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 34

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 36

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 38

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 40

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 42

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) EndSub PrivateSub Command2_Click() EndEndSub PrivateSub Form_Load() Text1.Text = “”Text2.Text = “”Text3.Text = “”Text4.Text = “”Text5.Text = “”EndSub

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 44

点击确定按钮

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 46

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

应用实例:

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

实现步骤

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 48

代码:

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

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 50

应用实例4:

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

实现步骤:

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 52

代码:

PrivateSub Text1_Change()Dimj, cIfText1.Text = “” ThenText1.SetFocusExitSubElsej= Len(Text1.Text)DoWhile (j <> 0)c= Left(Right(Text1.Text, j), 1)IfIsNumeric(c) ThenText1.Text= Left(Text1.Text, Len(Text1.Text) – j) + Right(Text1.Text, j – 1)Text1.SelStart= Len(Text1.Text)EndIfj= j – 1LoopEndIfEndSub

这里面用到了几个函数:

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

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

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

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

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

在vb中怎么图片框中放入图片(代码属性导入添加图片方法) 54

结语:如果想学更多,请关注转发收藏

本文内容由互联网用户自发贡献,该文观点仅代表作者本人。商机网仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 1586210958@qq.com 举报,一经查实,本站将立刻删除。 本文链接:https://www.315965.com/n/50850.html

(0)

相关推荐

  • 婚姻情感挽回公司可靠吗(情感挽回机构哪个靠谱排名)

    当婚姻出现问题时,如果没有用对方法去解决,那么这段关系就很容易解散。譬如,婚姻中很多夫妻相处时都不懂得回应对方,导致对方在这段关系中越来越缺乏信心。如果想要解决婚姻中的危机,那么就必须要了解到对方到底想要什么,了解对方的需求感,用对方法挽回她,下面幸福有方跟大家分享汪先生(化名)的故事。 汪先生是一名插画师,其老婆是一名语文老师,他们是通过朋友介绍认识的,认…

    2022年11月6日
    0
  • 蔬菜冷库建设多少钱一平方(大小型地下冷库市场行情价目一览表)

    果蔬冷库是目前比较常见的冷库,我们称之为保鲜冷库,这种冷库可以控制库内温度,也可以增添加湿器,控制库内湿度,此类冷库的造价成本一般在800-1200/平方米左右,100平方米12万左右的造价,500平方米40万左右的造价,建造规模越大,每平方米成本就更低。 冷库 按照目前的市场行情来看; 10平方米果蔬冷库造价2-3万左右; 100平方米果蔬冷库造价12-1…

    2022年11月21日
    0
  • 南瓜饼怎么做又酥又脆又好吃(简单家常油炸芝麻空心南瓜饼做法教程)

    妈妈一直热衷于制作脆脆的南瓜饼,今天就制作了一顿,制作非常简单易上手,外酥里嫰,香糯甜,我和弟弟都很喜欢吃 By 我是一个柠檬精 用料 糯米粉 适量 白糖 适量 食用油 适量 南瓜 500克 面包糠 适量 做法步骤 1、一个南瓜的三分之一份,削皮去核切块 2、放适量水在锅中盖蒸20分钟左右,先大火煮开水再小火蒸 3、蒸到南瓜软了就可以出锅了 4、放入适量的白…

    2022年11月21日
    0
  • 腰围尺码表对应的身高体重对照图(男女生衣服裤子正常体重腰围标准对照表)

    才智服装技术,威,975851096 尺寸、裤长测量方法: 1、腰围 裤子腰围:两边腰围接缝处围量一周; 净腰围:在单裤外沿腰间最细处围量一周,按需要加放尺寸; 2、臀围 裤子臀围:由腰口往下,裤子最宽处横向围量一周; 净臀围:沿臀部最丰满处平衡围量一周,按需要加放松度; 3、裤长 由腰口往下到裤子最底边的距离; 休闲裤、牛仔裤裤长不含脚口贴边,脚口贴边另预…

    2022年11月15日
    0
  • 最新10万左右性价比高的车排行榜(省油口碑好最好的家用车推荐)

    我知道,手握10万预算买丰田卡罗拉的那些人,一定是特别注重家用和省油的,他们买车往往会考虑油耗高不高、后期是否保值以及车子的耐用性。毕竟,买这样一台车可能都需要花费他们好几年甚至更长时间的积蓄。 不过在我看来,即便是保守点的消费者买车,也不要总是只盯在丰田卡罗拉这一款车型身上,因为10万预算咱们完全可以选择更好的车型。就比如下面这3款好车,手握10万预算去买…

    2022年10月23日
    0
  • 世界上有外星人吗?(外星人到底存不存在?)

    物理学家Yuppers曾表明:外星人不存在的概率基本上是零。 然而在这方面的统计数据并不是那么充足有利,毕竟我们只有一个数据值。如果将智能生命定义为会使用工具的生命体,那么根据出土的最古老的工具和最古老的化石的年龄来判断,到目前为止地球上的智能生命存在的时间已经占地球历史的0.06%,动物生命体存在的时间占地球历史的16%左右。此外,地球上绝大多数生命体是微…

    2022年8月17日
    0
  • 女生渴望收到的礼物前十件排名榜(让女生瞬间感动的实用有意义可以珍藏一辈子的礼物清单)

    一、女生最想要的16种礼物 1、化妆镜:每一个女孩都需要一面漂亮的镜子,将最美的镜子送给你最好的朋友。十八岁成人礼送女儿什么。 2、牛奶杯灯:触动记忆中的温暖,将光芒月浪漫完美柔和。 3、卡通花束:一起看着浪漫的卡通花束和可爱的玩具,陶醉在两人都喜欢的故事里该是一件多美妙的事,希望她不要因为太感动了而睡不着。让女生瞬间感动的礼物。 4、珍珠项链:开启“月光宝…

    2022年11月9日
    0
  • 最新大型射击网游排行榜前十名(最值得玩的端游射击游戏推荐)

    亲爱的小伙伴们,大家好,我是你们的大T。 现在的网络游戏已经不再是那么局限性,有越来越多的玩家都通过不同的平台,不同的方式,接触到了外服网游,我们现在所玩的网络游戏,更有空间感,也更国际化,能遇到各式各样的玩家,各式各样的游戏风格,也形成了不同游戏文化,本期就来为大家推荐十款最耐玩的外服FPS射击网游。 1、《CSGO》 全名《反恐精英:全球攻势》在2012…

    2022年10月18日
    0
  • 人死亡了去哪了科学解释(人死后会变成鬼吗?)

    人从生到死,几十年的光阴,我们自己用一秒,一分,一天,一年计算,对生命科学感兴趣的,有一种科学说法:时间是不存在的。通常我们所指的时间只是人记录我们轨迹的一个记号,无法暂停、也无法返回,所以人的一生是单向的,从一出生就开始走向死亡。这是公平的,上帝一直都是公平的,让人光着来,光着走,只是这一生的过程中,谁的财富更多谁的财富少,谁漂亮谁丑,谁尊贵谁卑微,都只是…

    2022年11月12日
    0
  • 好看的穿越电影推荐几部(哪部穿越电影最好看)

    1、十二猴子(1995年上映) 观看渠道:腾讯视频、优酷、爱奇艺   1996年病毒席卷世界,50亿人死亡,人类不得不居住在地下,2035年,科学家为了追查释放病毒的十二猴子军,送科尔穿越回1996年。 科尔错误地穿越到了1990年,被当作精神病人关起来,好不容易穿越回到了2035年,但因任务没完成又被科学家们派去第二次穿越,不想中间再次失误被带去了二战时期…

    2022年9月3日
    0