在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。 ①在属性窗扣中修改Text3的适当属性,使其在运行时 不显示,作为模拟的剪贴板使用,窗体如

admin2019-05-14  25

问题 在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码,请完成以下工作。
    ①在属性窗扣中修改Text3的适当属性,使其在运行时
不显示,作为模拟的剪贴板使用,窗体如图所示。

    ②建立下拉式菜单,如下表所示。

    ③窗体文件中给出了所有事什过程,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,以便实现如下功能:当光标所在的文件框中无内容时,“剪切”、“复制”不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则“粘贴”不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
    注意:不能修改程序中的其他部分,各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开本题工程文件,将Text3的Visible属性设置为False,然后按照题目要求建立菜单并设置其属性,如图3.20所示。 [*] 菜单属性如表3.12所示。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Dim which As Integer Private Sub copy_Click()’复制按钮 If which=1 Then’当焦点在Text1中,将rext1中的内容复制给Text3 Text3.Text=Text1.TeXt ElseIf which=2 Then’同理,焦点在Text2中,将Text2中的内容复制给Text3 Text3.Text=Text2.Text End If End Sub Private Sub cut C1ick()’剪切按钮 If which=1 Then’当焦点在Text1中,则将内容复制给Text3,并清空Text1内容 Text3.Text=Text1.Text Textl.Text="" ElseIf which=2 Then’同上 Text3.Text=Text2.Text Text2.Text="" End If End SUb Private Sub edit_C1ick()’编辑 If which=1 Then If Text1.Text=""Then Cut.Enabled=False Copy.Enabled=False Else Cut.Enabled=True Copy.Enabled=True End If ElseIf which=2 Then If Text2.Text=""Then Cut.Enabled=False Copy.Enabled=False E1se Cut.Enabled=True Copy.Enabled=True End If End If If Text3.Text=""Then Paste.Enabled=False E1se Paste.Enabled=True End If End Sub Private Sub paste_Cick()’粘贴按钮 If which=1 Then’当焦点在Text1中则将 Text3的内容追加到Text1文件末尾 Text1.Text=Text1.Text+Text3.Text ElseIf which=2 Then。’同上 Text2.Text=Text2.Text+Text3.Text End If End Sub Private Sub Text1 GotFocus()’本过程的作用是当焦点在Text1中时,which=1 which=1 End Sub Private Sub Text2 GotFocus()’本过程的作用是当焦点在Text2中时,which=2 which=2 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/BTUp777K
0

相关试题推荐
最新回复(0)