几种简单操作
任何情况下,按回车键都相当于单击"是"(C1)按钮;按ESC键都相当于单击"否"(C2)按钮(把C1的Default属性设置为"true", 把C2的Cancel属性性设置为"true"
还需在C2的Click事件中使用C1的SetFocus方法。
Private Sub C2_Click()
C1.SetFocus
End Sub
滚动条的刻度值改变文本框的宽度
Private Sub Vsb1_Change()
Text1.width = hs1.Value
End Sub
当使用Tab键选择控制按钮时,焦点从Cmd2上跳过,直接过渡到Cmd3。设置Cmd2的TabStop属性为False。
在图片框的中心画出一个点
图片框Picture1、控制按钮Cmd1,标题为"画点"。(Pset方法的格式为:对象名.Pset (x,y),其中x,y为点的坐标。x=Me.Picture1.Width / 2,y=Me.Picture1.Height / 2)
1 Private Sub Command1_Click()
2 Me.Picture1.PSet (Me.Picture1.Width / 2, Me.Picture1.Height / 2)
3 End Sub
单击Cmd1,按钮移动到窗体的左上角
单击Cmd2,按钮在长度和宽度上各扩大到原来的2倍
1 Private Sub Cmd1_Click()
2 Cmd1.Move 0, 0
3 End Sub
4 Private Sub Cmd2_Click()
5 Cmd2.Width = Cmd2.Width * 2
6 Cmd2.Height = Cmd2.Height * 2
7 End Sub
新建一个工程,在窗体上创建命令按钮,名称为C1。创建一个组合框控件,命名为Com1。程序运行,实现功能单击C1按钮,读取打印机的字体。并在组合框中的列表框中显示第一种字体。