用GetFocus这个API函数试试
GetFocus VB声明
Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long
说明
获得拥有输入焦点的窗口的句柄
返回值
Long,拥有焦点的那个窗口的句柄。如没有窗口拥有输入焦点,则返回零 就是判断当前的输入焦点的窗口句柄是不是和某个TEXT框的句柄相同(TEXT框的句柄可用用TEXT控件的hwnd这个属性得到)如相同的则就知道是那个文本框了
GetFocus VB声明
Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long
说明
获得拥有输入焦点的窗口的句柄
返回值
Long,拥有焦点的那个窗口的句柄。如没有窗口拥有输入焦点,则返回零 就是判断当前的输入焦点的窗口句柄是不是和某个TEXT框的句柄相同(TEXT框的句柄可用用TEXT控件的hwnd这个属性得到)如相同的则就知道是那个文本框了
解决方案 »
- MMControl使用?
- AfterUpdate事件
- 一个简单的删除
- 各位大侠,如何定义数组,可以在不同窗体间调用???急!!!!!!!!!!!!!!!!!!!!马上送分
- adodb.recordset的问题
- 水晶报表+数据库问题(高手请进)
- 这个查询语句应该怎样写?
- 一个在十字路口徘徊的待毕业的大学生,不知该选择什么。
- 写程序实现把sql server中的数据 导到 access 或 excel转换?????
- 当Text控件的MultiLine=True、Scrollbars=0(没有滚动条)时,如何禁止文本随着Text控件的大小而自动换行?
- 保存图像的方法,急,各我大哥帮帮忙
- 近来看一看!
ActiveControl 属性
返回拥有焦点的控件。当窗体被引用时,如在 ChildForm.ActiveControl 中,如果被引用的窗体是活动的,ActiveControl 指定将拥有焦点的控件。在设计时是不可用的;在运行时是只读的。语法object.ActiveControlobject 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。说明可以使用 ActiveControl 来访问控件的属性或调用其方法:例如,Screen.ActiveControl.Tag = "0"。如果在窗体上的所有控件都是不可见的或不可使用的,那么将产生一个运行时错误。每个窗体都可以有一个活动控件 (Form.ActiveControl),而不管窗体是否是活动的。在应用程序中,可以在每个窗体上编写处理活动控件的代码,即使此窗体不是活动窗体。这个属性在多文档接口 (MDI) 应用程序中尤其有用,其中工具栏上的一个按钮必须初始化为 MDI 子窗体中的控件上的一个动作。当用户单击工具栏上的“复制”按钮时,代码可以引用 MDI 子窗体的活动控件中的文本,例如 ActiveForm.ActiveControl.SelText。注意 如果计划将 Screen.ActiveControl 传递给一个过程,那么在那个过程中必须用子句 As Control 而不是指定控件的类型 (As TextBox 或 As ListBox)声明参数,即使 ActiveControl 总是引用相同类型的控件。
ActiveControl 属性示例
这个例子显示活动控件的文本。要试用此例,可以先将下面的代码粘贴到包含 TextBox、Label 和 CommandButton 控件的窗体的声明部分中,然后按下 F5 键并单击此窗体。Private Sub Form_Click ()
If TypeOf Screen.ActiveControl Is TextBox Then
Label1.Caption = Screen.ActiveControl.Text
Else
Label1.Caption = "Button: " + Screen.ActiveControl.Caption
End If
End Sub这个例子显示了如何使用工具栏上的按钮在实现剪切、复制、粘贴和删除操作中,利用 Clipboard 对象。要试一试这个例子,可以将 TextBox 和 CheckBox 控件放到 Form1 上,然后创建一个新的 MDI 窗体。在 MDI 窗体上,插入一个 PictureBox 控件,然后在 PictureBox 中插入一个 CommandButton。将 CommandButton 的 Index 属性设置为 0 (创建一个控件数组)。将 Form1 的 MDIChild 属性设置为 True。要运行该例子,只须将这些代码复制到 MDIForm 的声明部分,然后按下 F5 键。注意,当 CheckBox 拥有焦点时,按钮将不可用,因为现在 CheckBox 取代了 TextBox 而成为活动控件。Private Sub MDIForm_Load ()
Dim I ' 声明变量。
Command1(0).Move 0, 0, 700, 300 '在工具栏上为按钮定位。
For I = 1 To 3 '创建别的按钮。
Load Command1(I) '创建按钮。
Command1(I).Move I * 700, 0, 700, 300 '放置并调整按钮大小。
Command1(I).Visible = True '显示按钮。
Next I
Command1(0).Caption = "Cut" '设置按钮标题。
Command1(1).Caption = "Copy"
Command1(2).Caption = "Paste"
Command1(3).Caption = "Del"
End SubPrivate Sub Command1_Click (Index As Integer)
'ActiveForm 是指 MDI 窗体中的活动窗体。
If TypeOf ActiveForm.ActiveControl Is TextBox Then
Select Case Index
Case 0 '剪切。
'复制选中的文本到剪贴板上。
Clipboard.SetText ActiveForm.ActiveControl.SelText
'删除选中的文本。
ActiveForm.ActiveControl.SelText = ""
Case 1 '复制。
' 复制选中的文本到剪贴板上。
Clipboard.SetText ActiveForm.ActiveControl.SelText
Case 2 '粘贴。
'把剪贴板上的文本放到文本框中。
ActiveForm.ActiveControl.SelText = Clipboard.GetText()
Case 3 '删除。
'删除选中的文本。
ActiveForm.ActiveControl.SelText = ""
End Select
End If
End Sub
Timer的Intervar=100Private Sub Timer1_Timer()
Text1.Text = Me.ActiveControl.Name
End Sub