- 1、本文档共26页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
2.1窗体和基本控件;2.1.1属性;2.1.2事件;2.1.3方法;2.1.4窗体;例:编程实现如下功能:
①窗体标题设置为:“HelloVisualBasic”;
②单击窗体,设置背景图片;
③双击窗体,最小化按钮功能失效。
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Me.Text=HelloVisualBasic“‘设置窗体标题栏文本
EndSub
PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Click
Me.BackgroundImage=Image.FromFile(D:\1\Desert.jpg)‘设置窗体背景图片
EndSub
PrivateSubForm1_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.DoubleClick
Me.MinimizeBox=False
EndSub;2.1.5Label(标签)控件;例2.1在窗体上创建一个按钮和一个标签,程序运行时,单击“按钮”,在标签框中显示“当你学习了这门课程后,能够编写出各种应用程序”,字号为20磅,字体为“黑体”。程序运行结果如图2-1所示。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Label1.Font=NewFont(黑体,20)
Label1.Text=当你学习了这门课程后,能够编写出各种应用程序
EndSub
;2.1.6TextBox(文本框)控件;例2.2在文本框中输入密码,密码以*显示。如图2-2所示
操作步骤如下:
①创建项目
②在窗体上添加一个标签,标签属性Text=“输入密码”,用于显示密码标示;添加一个文本框,文本框属性PasswordChar=“*”,用于输入密码;
③启动调试
本程序只需设置属性,无需编写代码。
;2.1.7Button(按钮)控件;例2.3设计一个程序,由用户从键盘上输入两个数,然后再选择对它们分别进行和、减、乘、除法运算,并将结果显示出来。其界面设计如图2-3所示。在本例的窗体中添加了2个TextBox,用于输入2个操作数;添加了3个Label,用于显示:“运算符”、“=”和“结果”;添加了6个Button,用于执行加、减、乘、除运算。清除操作数和运算结果,结束程序。;PublicClassForm1
?PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Me.Text=HelloVisualBasic
EndSub
?PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Label1.Text=+
Label3.Text=Str(Val(TextBox1.Text)+Val(TextBox2.Text))
EndSub
?PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Label1.Text=-
Label3.Text=Str(Val(TextBox1.Text)-Val(TextBox2.Text))
EndSub
?PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton
您可能关注的文档
最近下载
- 2024年秋人教版七年级英语上册全册课件:Unit 5.pptx VIP
- HIOKI日置 RM3545电阻计使用说明书.pdf
- 洛阳市20 15届高三一练理科a卷成绩yiqi.xls
- 2024年秋人教版七年级英语上册全册课件:Unit 4.pptx VIP
- 2024全国中考语文试题分类汇编:记叙文阅读.pdf VIP
- 2024新人教版初中七年级数学上册第六章几何图形初步大单元整体教学设计.docx
- 【美术课件】《水果皇后—山竹》(1).pptx
- Unit 1 You and Me (第1课时) Section A 1a-1d 课件 人教版(2024)七年级上册.pptx
- Unit 1 You and Me Section A How do you greet people 课件 人教版(2024)英语七年级上册.ppt
- 机械结算单模板.docx
文档评论(0)