窗体、标签、文本框、命令按钮作业一参考

作业：
例8（保存文件名为2.frm ,2.vbp）
由于本题未说明标签和文本框中显示的字号大小，故结果无统一要求，一般情况下用默认的字号即可。

注意：更改两个文本框的名称属性T1，T2
代码为：
Private Sub T1_Change()
T2.Text = T1.Text
End Sub
例10（保存文件名为3.frm ,3.vbp）
运行程序出现如下界面：
拖相应控件（标签label1,命令按钮到界面上），设置label1的caption属性为“努力学习”，三个commandButton 的caption属性为相应值；且command2的Enabled属性值为False.
单击command1,效果如下图：
Private Sub Command1_Click()
Label1.Caption = "报效祖国"
Command2.Enabled = True
Command2.SetFocus
Command1.Enabled = False
End Sub
注意，两条蓝色代码不能颠倒，先可用才能获得焦点。

其
他两行位置随意。

下同。

单击command2,效果如下：
Private Sub Command2_Click()
Label1.Caption = "努力学习"
Command1.Enabled = True
Command1.SetFocus
Command2.Enabled = False
End Sub
结束按钮的代码为:End
第5题（保存文件名为5.frm ,5.vbp）在名称为Form1的窗体中
建立一个名称为Cmd1，标题为"显示"的命令按钮，如图2-1所示。

要求程序运行后，如果单击"显示"按钮，则执行语句Form1.Print "显示"；如果单击窗体，则执行语句Form1.Cls。

图2-1
此题需要说明的是：根据运行同学们学到一新知识—即form1.cls 的功能为清除窗体上使用print方法输出的信息。

Cls为窗体的一种方法。

（对象名.方法名）
第6题（保存文件名为6.frm ,6.vbp）在名称为Form1的窗体上
建立一个名称为Text1的文本框，一个名称为Cmd1，标题为"输出"的命令按钮，如图4-1所示。

要求程序运行后，在文本框输入几个字符，单击"输出"
按钮，则在窗体上显示文本框中的文字。

图4-1
此题大家注意，Text1的Text属性值初始为“空”，运行程序时输入字符，完成相应功能。

此题与第7题均考核print方法。

第7题（保存文件名为7.frm ,7.vbp）在名称为Form1的窗体上
建立一个名称为Cmd1，标题为"显示"的命令按钮，编写适当的事件过程。

程序运行后，如果单击"显示"命令按钮，则在窗体上显示"等级考试"，如图6-1所示。

程序中不能使用任何变量，直接显示字符串。

图6-1
第9题（保存文件名为9.frm ,9.vbp）在窗体Form1上画出一个
文本框，名称为Txt1，程序运行时，在文本框中输入字符，文本框中的字符将赋值到窗体的标题栏中。

注意，本程序代码中不得使用任何变量。

程序运行时的窗体界面如图46-1所示。

图46-1
此题窗体的caption属性初值不需要更改，文本框的Text属性初值
设为空。

功能代码放哪里？运行程序，向文本框中输入字符，即不断更改文本框的内容，触发了Txt1的Change事件。

功能代码是什么？使得窗体的标题栏中文本信息随着文本框中输入的内容而改变，即form1.caption的值应为txt1.text,围绕对象名.属性=值
Private Sub Txt1_Change()
Form1.Caption = Txt1.Text
End Sub
第13题（保存文件名为13.frm ,13.vbp）
注意：此题的第3）需要在属性窗口中将 command1的visible属性设置为False
第15题（保存文件名为15.frm ,15.vbp）
Private Sub Command1_Click()
Label1.Visible = False
Text1.Visible = False
Form1.Print Text1.Text
End Sub
第16题（保存文件名为16.frm ,16.vbp）
Private Sub C1_Click()
Form1.BackColor = &HFF&
End Sub
最后两题完全做对同学不多，虽然部分同学实现了效果，但代码的通用性差，故请所有同学注意：第17题（保存文件名为17.frm ,17.vbp）
解答：标签的位置发生变化，属性中描述位置的为left,top,考虑到标
签的容器为窗体，故left,top属性值为标签相对于窗体（窗体小点区域的左上角为坐标原点，小点顶端为X轴，左边界为Y轴）
Private Sub Form_Click()
Label1.Top = 0
Label1.Left = Form1.Width - Label1.Width
End Sub
图4-2 图4-3
按钮一与按钮二大小完全相同，否则没办法重合。

有的同学是这样的思路：让按钮一上的文本内容变为按钮二，而让按钮二的visible属性变为false,能这样做的同学是花了心思思考的，但注意此方法是消极的，不可取。

思考：
Cmd2与cmd1重合意味着cmd2的位置发生了变化，而描述位置的属性为Left,Top，故无论cmd1的left，Top属性值是多少，只要将该值设置为cmd2的相应属性值即可。

下面的做法是错误的：
先观察cmd1的属性窗口中left和Top是多少（假设为480,1200）,然后写代码cmd2.left=480 cmd2.top=1200
你的程序代码并不具备通用性，换个地方画cmd1，你的代码是不是又要变了？
方法一：
Private Sub Cmd1_Click()
Cmd2.Left = Cmd1.Left
Cmd2.Top = Cmd1.Top
End Sub
自学了P17的同学可能会用这种方法：
Private Sub Cmd1_Click()
Cmd2.Move Cmd1.Left, Cmd1.Top 注意绿色部分不可写数值End
Sub
X。