VB窗体与常用控件初步

1、VB窗体与常用控件初步 实验R的了解并掌握窗体的基本属性与常用方法、事件。了解并掌握标签、文本框、命令按钮的基本属性与应用技巧。实验题目1）设计一个简单窗体，界面如图实验二01所示。实现载入窗体背景图，窗体自动居 中，左、右移动窗体等功能。图实验二012）设计一个简易的“VB文字编辑器”，界面如图实验二02所示。实现文字的录入、 剪切、复制与粘贴。图实验二02实验背景及准备1）已初步学习了窗体、标签、命令按钮的属性、事件与方法。2）已初步学习使用了文件、视图、运行等菜单功能。3）准备了题目1的背景图片、题目2的3个图片。4）通过帮助文件学习了 Loadpicture。、left。、Mid（）等

2、函数的功能。实验过程与主要步骤1）题目1：在窗体Forml中，手工修改属性。Borderstyle=l使边界固定；startupposition=2使 窗体初始位置居中。其余属性通过事件响应程序由命令自动完成。所用事件有Load、 Initialize Activate Resize 等；所用方法有 Move 与 Print。在窗体上加载一个标签Label 1,手工设置属性。Caption廿VB实验之标签 Backcoler为红色;Font属性手工设置如图实验二03所示（fontname=隶书”，fontsize廿 三号）；autosize=true使标签能自动调整大小显示所有内容；wordw

3、rap=True使标签能 显示多行内容。字体0不例A确定逃体GB2312。宋, ，）宋体-PUA o宋体一方正超大字符 （）新宋体 生幼回字体电）：效果厂删除线（K）厂下划线）字形d）：大小（S）:微软中文软件字符集笆|CHINESE_GB2312V图实验二03移动窗体使用move方法，其格式为：object.Move left, top. width, height装载背景图片使用loadpicture()函数，其格式为:LoadPicture(/z/e/?6zme, size, colordepth,xfy)窗体1的代码程序如下：Private Sub Command 1 _Click()

4、Forml.Move (Forml.Left - 50)End SubPrivate Sub Command2_Click()Forml.Move (Forml.Left + 50)End SubPrivate Sub Form_Activate()Forml.Picture = LoadPicture(app.path & sy02t-0Ljpg)用 Loadpicture(0 函数装载背景图。Forml.Print Hello!napp.path 为当前目录End SubPrivate Sub Form_Initialize()Form 1.Left = (Screen.Width - F

5、orm 1.Width) / 2 ，自动居中，Scree 为屏幕对象名。Form 1 .Top = (Screen.Height - Form 1.Height) / 2End SubPrivate Sub Form_Load()Form 1.Caption=”设置窗体属性”End SubPrivate Sub Form_Resize()Command 1 .Caption 二“左移”Command2.Caption =“右移”End Sub2)题目2：首先在窗体上加载三个命令按钮，同时选中三个按钮，通过“格式”菜单调节，使 之一样大小。对每一按钮，修改caption属性，可设置访问键；在Pi

6、cture属性中加载相应图片文 件。编写每个按钮的Click事件响应程序。例如Commandl按钮，设置属性Caption & A 剪切”，&A用以说明A为访问键，使用中可用Alt-A激活Click事件；设置属性picture 为预先准备的图片文件cut.jpg；设置ToolTipText二”剪切。使鼠标移至该控件时，显示 “剪切”两字。分析题目，程序中要解决的问题包括：如何记录光标位置与所选中的文字？如何截掉或添加一段字符？前者用到文本框的seistart与seitext属性，后者用到字符串截取函数left。、Mid()。 Seistart是选择开始的位置，也是光标所在的位置。seitext

7、记录所选中的字符。Left () 从左边截取字符串，mid ()从中间截取字符串。两个字符串可用“ + ”运算连接。因为粘贴时的seitext已更新，所以需要变量保存选择时的seltexto题目2代码窗口的程序代码如下：Public temp，全局变量Temp,适用于所有程序段。Private Sub Command 1 _Click()temp = Textl.SelTextTextl = Left(Textl.Text, Textl.SelStart) + Mid(Textl.Text, Text 1 .SeiStart + Textl.SelLength + 1) End SubPriv

8、ate Sub Command2_Click()temp = Textl.SelTextEnd SubPrivate Sub Command3_Click()Textl = Left(Textl.Text, Textl.SelStart) + temp + Mid(Textl.Text, Textl.SelStart + 1) End SubPrivate Sub Form_Initialize()Form 1.Caption = VB 文字编辑器”Text 1 .Text = 世有伯乐，然后有千里马。千里马常有，而伯乐不常有。故虽有名马，只辱于 奴隶人之手，骈死于槽杨之间，不以千里称也。”End Sub 实验小结1)窗体、标签、文本框、命令按钮每个对象都有自身的属性、事件与方法，既有相同的也 有不同的。不同处构成其特点。2)文本框中Seistart表示当前光标位置，也是所选字符的开始位置，默认值是1 ； SelText 代表当前所选择的文本。3) Temp作为中间变量使用，代表先前选下的字符，也就是通常剪贴板中的值。因为要跨 越两个程序段使用，所以在放在通用程序段，