vb中的焦点语句是什么？

得到焦点发生的事件getfocus()
失去焦点发生的事件lostfocus()

控件设置焦点方法setfocus()

在Visual Basic中，文本框（TextBox）是最常用的控件，熟练运用文本框
是开发出高质量的应用程序的基础。笔者在从事应用程序开发中，摸索出有关文
本框的应用技巧，写出来与VB爱好者共享。
1、设置只读文本框。
有些时候在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的
只读呢？首先，我们可以利用标签框（ label ）的只读属性，以标签来代替文本
框以实现只读属性，但也可以用小程序实现真正的文本框的只读。
Sub Text1_KeyPress (keyascii As Integer)
keyascii = 0
End Sub
或者也可以用sendkey方法使文本框失去焦点，如以下程序：
Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
SendKeys "{tab}"
End Sub
2、限定文本框的输入内容和格式。
以下程序可以实现限定文本框只能输入数字：
Sub Text1_KeyPress (keyascii As Integer)
If keyascii <48 Or keyascii> 57 Then
Beep
Beep
johny@nease.net
keyascii = 0
End If
End Sub
若想限定文本框输入格式，可以使用VB的FORMAT函数，也可以使用专业版的
屏蔽控件(Masked Edit)，通过设定屏蔽控件的Mask属性可以对文本框的输入格式
作精确控制。

3、为TextBox 创建快捷键。
VB规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序
运行时焦点按Tabindex 属性规定的顺序在控件间跳转。而为了简化操作，可V