kwrl.net
当前位置:首页 >> VB如何使外部程序获得焦点 >>

VB如何使外部程序获得焦点

Private Declare Function icePub_activForm Lib "icePubDll.dll" (ByVal strFormTitle As String) As Integer Dim a2 As Integer Dim str1 As String str1 = "与 龙芯发烧友 交谈中" ' QQ聊天窗体标题 a2 = icePub_activForm(str1)

SetFocus 方法 将焦点移至指定的控件或窗体。 语法 object.SetFocus object 所在处代表对象表达式,其值是“应用于”列表中的一个对象。 说明 对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用 SetFocus 方法以后,任何的用户输入...

和焦点相关的大体有两类: [TabIndex]属性:返回/设置父窗体中对象响应【TAB】键的顺序。比如“Text1.TabIndex = 0”表示Text1是第一个响应【TAB】键的; [SetFocus]方法:设置对象在父窗体上的焦点,比如“Text1.SetFocus”表示设置文本的输入焦点。

VB6.0需在窗体的Load实践代码中将需获得焦点的文本框的TabIndex属性设置为0。 TabIndex 属性,返回或设置父窗体中大部分对象的 tab 键次序。 说明 缺省情况下,在窗体上画控件时 Visual Basic 会分配一个 tab 键顺序,但 Menu、Timer、Data、Ima...

是说让句柄对应的这个对象获得焦点吗?使用SetFocusAPI函数,声明如下。传入句柄作为参数即可。 Public Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

要使得窗体先显示出来,再设置Text1的焦点,不然会出错的,正确的代码: Private Sub Form_Load() Me.Show Text1.SetFocus End Sub

'以下代码必须生成EXE才有效 Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Lo...

方法一: '在加载时,将HScroll1滚动条的TAB顺序设置为首选: Private Sub Form_Load() HScroll1.TabIndex = 0 ‘设置为首选 End Sub 方法二: '在加载时,将焦点设置到滚动条上: Private Sub Form_Load() HScroll1.SetFocus '设置焦点 End Sub

没办法的,要获的焦点建议改用文本框(TextBox),将文本框的BroderStyle属性改成0-None,外观就会和Label一样了,如果要让文本框像Label不能编辑,就将Locked属性设置成True

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com