《Visual Basic NET程序设计》课件第2章 VB.NET程序设计基础.pptx

《Visual Basic NET程序设计》课件第2章 VB.NET程序设计基础.pptx

  1. 1、本文档共26页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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

文档评论(0)

酱酱 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档