鲁达
一、如何实现鼠标在文本框TextBox一按下，就选中所有文字的功能
Private Sub Text1_GotFocus()
Tex = 0
Tex = Len) ’过程调用
End Sub
二、让程序一运行窗体就在屏幕的中央
系统对象Screen记录了当前显示模式的高度及宽度，可以利用这个值来设置窗体的位置。
Sub CenterForm(frm As Form) ‘定义过程
- ) \ 2, - ) \ 2
End Sub
Private Sub Form_Load()
CenterForm Me ’调用过程
End Sub
三、如何获得键盘输入和判断敲键的Ascii值
将窗体的KeyPreview属性设置为True，然后在Form_KeyPress 事件里编写如下代码：
Private Sub Form_KeyPress(KeyAscii As Integer)
Me.Caption = Str(KeyAscii) ‘取得键盘输入的字符
...
End Sub