好文档 - 专业文书写作范文服务资料分享网站

VisualBasic程序设计教程第版实验答案

天下 分享 时间: 加入收藏 我要投稿 点赞

实验1-4

按照教学篇例2.2对窗体三个事件过程(Load、Click、DblClick)编程,在3个事件中装入不同的图片(自己选择);在属性窗口练习鼠标指针改变:MousePointer(值为99,用户自定义)、MouseIcon为Key04.ico图标文件,练习窗体图标(Icon)、边框线类型(BorderStyle)、最大化按钮和最小化按钮的改变,运行观察其效果。以“学号-1-4”为项目名保存。 提示:

例题中Form_Resize事件可以不考虑,Picture属性设置中注意图片文件有后缀名,运行测试前需要先保存项目名,保证图片文件和程序文件在同一个文件夹下,否则会出现图片找不到的错误提示。 Private Sub Form_Click() Caption = \单击窗体\

Picture = LoadPicture(App.Path + \ Print \欢迎使用VB\ End Sub

Private Sub Form_DblClick() Cls

Caption = \双击窗体\

Picture = LoadPicture(App.Path + \ Print \结束使用VB\ End Sub

Private Sub Form_Load() Caption = \装入窗体\

Picture = LoadPicture(App.Path + \ Print \装入图片\ End Sub

实验1-5

命令按钮、字号、内容和格式的复制练习,效果如下图所示。有关控件及属性参见下表。以“学号-1-5”为项目名保存。 图2.1.3 实验1.5运行界面 表2.1.3 属 性 设 置 控件名 Form1 Label1 属 性 Caption=\实验1.5\ Caption=\输入文本 复制文本\ Text1 Text=\功能强大,但要下功夫学习才能学好\;MultiLine=True;ScrollBar=2 Text2 Command1 Command2 要求: Text=\;MultiLine=True Caption=\隶书25磅\ Caption=\复制=>\ (1) Command1:使得Text1的字体和字号根据命令按钮显示的要求改变 (2) Command2:要求将Text1选中的内容及其格式复制到Text2。选中的内容通过Text1的SelText属性获得 提示: 为使Text2文本框保持Text1中的字符格式,通过Text2.FontSize=Text1.FontSize和Text2.FontName=Text1.FontName实现 Private Sub Command1_Click() Text1.FontName = \隶书\ Text1.FontSize = 25 End Sub

Private Sub Command2_Click()

Text2 = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub

实验1-6

图片缩小、还原的设置。 “学号-1-6”为项目名保存。 图2.1.4 实验1.6运行界面 要求:

(1)单击“缩小一半”按钮,图片纵、横均缩小一半。 (2)单击“还原”按钮,图片与初始装入时同大。 提示:为了实现还原效果,要做以下3件事。

(1)必须在事件过程外,即程序代码最上方声明窗体级变量: Dim h%,w% ‘用户输入的变量声明语句

(2)在Form1_Load事件中保存图像控件的初始值: w=Image1.Width

h=Image1.Height

(3)在Command2_Click事件中还原为初始值: Image1.Width=w Image1.Height=h

缩小一半Command1_Click事件请读者自行完成。 思考:若要设置图片放大效果,如何修改代码? Dim h%, w%

Private Sub Command1_Click() Image1.Width = Image1.Width * 0.5 Image1.Height = Image1.Height * 0.5 End Sub

Private Sub Command2_Click() Image1.Width = w Image1.Height = h End Sub

Private Sub Form_Load()

VisualBasic程序设计教程第版实验答案

实验1-4按照教学篇例2.2对窗体三个事件过程(Load、Click、DblClick)编程,在3个事件中装入不同的图片(自己选择);在属性窗口练习鼠标指针改变:MousePointer(值为99,用户自定义)、MouseIcon为Key04.ico图标文件,练习窗体图标(Icon)、边框线类型(BorderStyle)、最大化按钮和最小化按钮的改变,运行观察其
推荐度:
点击下载文档文档为doc格式
8zwwz9z01x5nd0e7n2yj9vfqx3d4pq01606
领取福利

微信扫码领取福利

微信扫码分享