窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动300twip。请填空。 Private Sub Form_Load0 Picture1.Picture=LoadPicture("c:\My Docunents\图片\Qian1_Icon02.ico") ______ End Sub Private Sub Timer1_Timer() Static x, y As Integer x=x+300 y=y+300 Picture1.Move x, y End Sub
窗体中有两个命令按钮:“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时,执行如下事件过程。此事件过程的功能是:当在窗体中出现消息框并选中其中的“确定”按钮时,隐藏“显示”按钮。否则退出。根据题意,请完善下列程序。 Private Sub CmdTest_Click() Answer=【 】 ("隐藏按钮") IF Answer=vbOK then CmdDisplay. visible=【 】 Else End End IF End Sub
代码如下,请填空。 Private Sub HScroll1_Change() Timer1.Interval=【 】 End Sub Private Sub Timer1_【 】() Text1.Text=Time End Sub
在窗体上有5个控件:一个名称为Text1的文本框控件,用来显示文本;两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框;两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时,文本框中显示的字体加下划线,当Option2被选中时,文字框中显示的字体大小为16磅,程序运行时的界面如图20-5所示。请填空。
Private Sub Check1_Click() If Check1.Value=【 】Then Text1.FontUnderline=True Else Text1.FontUnderline=False End If End Sub Private Sub Option2_Click() Text1.【 】 End Sub
用当前窗体的LABEL1控件显示系统时间的语句是:
ThisForm.Label1.______=TIME()
A.图像框和图片框均可通过Print方法显示文本
B.在图片框和图像框中显示的图片均可放大和缩小
C.图像框比图片框占用的内存多、运行速度慢
D.在图像框里只能显示图片,不能包含其它控件,而图片框可以包含控件
在窗体上画一个文本框和—个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print"VB programming" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。