实验一 常用控件的创建和应用

一 、实验目的

掌握常用控件命令按钮、标签、文本框的创建和应用，学会在属性窗口和用赋值语句设置对象属性，学会程序的运行、调试和保存、打开，掌握用 VB 开发应用程序的一般步骤。

二 、实验内容

设计一个带有剪贴板的简易文本编辑器，单击“剪切”、“复制”、“粘贴”等按钮可以实现相应的操作，并且当单击复制或剪切时，能在 label1 上显示复制或剪切的内容，单击“清除“按钮将文本清除，单击“结束”按钮，结束程序的运行。参考教材例 2-3 。

三 、实验步骤

1.创建界面

创建界面 ( 简单画出界面，标明所用控件 ) 1 分

2.属性设置 ( 写出所有非默认属性值的设置 ) 略 2 分

3.代码设计：

Dim seletext As String

Private Sub CmdClear_Click()

Text1.Text = "" ' 将 text1 的文本置空

End Sub

Private Sub CmdCopy_Click()

seletext = Text1.SelText ' 用鼠标选中的文本放在 seletext 中

CmdCopy.Enabled = False ' 复制按钮不可用

CmdCut.Enabled = False ' 剪切按钮不可用

CmdPaste.Enabled = True ' 粘贴按钮可用

Label1.Caption = seletext ‘ 单击复制时，能在 label1 上显示复制的内容 1 分

End Sub

Private Sub CmdCut_Click()

seletext = Text1.SelText

Text1.SelText = "" ' 选中的文本置空

CmdCopy.Enabled = False

CmdCut.Enabled = False

CmdPaste.Enabled = True

Label1.Caption = seletext ‘ 单击剪切时，能在 label1 上显示剪切的内容 1 分

End Sub

Private Sub CmdEnd_Click()

End

End Sub

Private Sub CmdPaste_Click()

Text1.SelText = seletext ' 将复制或剪切的文本插入到当前光标处

End Sub

Private Sub Text1_Change()

CmdCut.Enabled = True

CmdCopy.Enabled = True

CmdPaste.Enabled = True

End Sub

其它代码 2 分

标明每句代码的作用

四、调试过程中的错误及改正方法

错误描述的与实验吻合并且具体，改正方法正确 2 分

五、教师批阅

备注：报告内容完整（实验题目、目的、内容 ……. ）及字迹工整 1 分