Visual Basic实验-答案(3)(3)

2)单击命令按钮C1，则把按钮上的标题复制到文本框，并使按钮不可见； 3)单击窗体空白处，按钮可见但不可用。

? 必要属性设置

表2.2 实验2属性设置

对象名称 属性 mousepointer caption 属性值 2-cross Text1 C1

? 代码编写

复制 代码

Private Sub Form_Load()

Form1.caption= “修改文本框内容” End Sub

Private Sub C1_Click() Text1 = C1.Caption C1.Visible = False End Sub

Private Sub Form_Click() C1.Visible = True C1.Enabled = False End Sub

遇到的主要问题及分析：

3、窗体上有四个文本框，两个标题分别为“显示选中信息”“选中文本”的命令按钮。要求程序运行时，光标焦点在Text1上，按下Tab键后，光标焦点跳到在Text3上。在文本框Text1

8

中输入一些字符；要求编程实现： 图2.2 实验2.3文本信息选定窗体

1）在文本框Text1中输入一行文字并按回车（Enter）后，把Text1的内容设置为窗体的标题。

2）在Text1中选中其中一部分内容后，单击“显示选中信息”命令按钮，则把在Text1中被选中文本的第一个字符的顺序号，被选中文本的字符个数，被选中的文本内容分别显示在文本框Text2，Text3，Text4中。

3)分别在文本框Text2，Text3中输入你所希望文本框Tex1中选中文本信息的顺序号以及长度，单击“选中文本”命令按钮，则根据文本框Text2，Text3输入的内容，在Text1中选中对应的内容，同时在Text4中显示出来。

【提示】部分相关属性和事件：SelStart、SelLength、SelText、KeyPress

? 必要的属性设置

表2.3 实验3属性设置

对象名称 Text1 Text2 Text3 Text4 Command1 Command2 Text1 Text3 或者Text2

? 代码编写

属性 text text text text caption caption tabindex tabindex tabstop 属性值 “” “” “” “” 显示选中信息 选中文本 0 1 false 代码

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Form1.Caption = Text1 End Sub

Private Sub Command1_Click() Text2 = Text1.SelStart Text3 = Text1.SelLength Text4 = Text1.SelText End Sub

遇到的主要问题及分析：

9

Private Sub Command2_Click() Text1.SelStart = Text2 Text1.SelLength = Text3 Text4 = Text1.SelText End Sub

或者 Private Sub Text1_LostFocus()

Text3.SetFocus End Sub

【提高题1】创建VB工程，运行时可将文本框中的文字缩小以及还原。

窗体中包括下列控件：标签、文本框和两个命令

按钮，窗体标题为“字符缩小”，文本框字号为30磅。 图2.3 实验提高1窗体

在文本框输入一串字符；按下“缩小”按钮时字号缩小为原来的一半（每按一下都会缩小为一半），界面如右图。

请完善以下代码：

Private Sub Form_Load()

Text1.FontSize = 30 ' 设置文本框原始字号 End Sub

Private Sub Command1_Click()

Text1.FontSize = __ Text1.FontSize / 2_' 将文本框字体每次缩小一半 End Sub

Private Sub Command2_Click()

__ Text1.FontSize = 30_____ ' 文本框的字体恢复为30 End Sub

【提高题2】 P260 实验A 。二、5. 命令按钮、

字号、内容和格式的复制练习！效果如右图。

要求:

10

1）Command1:使得Text1中的字体和字号根据 图2.4实验实验提高1窗体 命令按钮上显示的要求改变。

2）Command2:要求将Text1选中的内容及其字体格式复制到Text2文本框中。

? 代码编写

代码

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

遇到的主要问题及分析：

【选作题】参考P35，建立一个允许剪切、复制和粘贴的简单便笺板程序。可增加内容：利用MouseMove事件决定命令按钮的有效性， 即当选中内容，“剪切”、“复制”按钮有效，否则无效。

图2.5 窗体原始界面 按下运行按钮时的界面 选中文本框部分内容的界面 ? 代码编写

代码

Private Sub Form_Load() Command1.Enabled = False Command2.Enabled = False End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Text1.SelText <> \

遇到的主要问题及分析：

11

Command1.Enabled =true Command2.Enabled =true End If End Sub

其他代码见p36

实验心得体会

成绩：教师签名：

12

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Visual Basic实验-答案(3)(3)在线全文阅读。