请教如何不显示光标？

vince

各位老师，当打开一个窗体时，光标会落在某个文本框或命令键上，如何设置或写代码，可使光标在打开该窗体时不可见。请指教。

一点通

请说明一下你的真正用途

andymark

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
    ShowCursor 0     '隐藏光标
End Sub

vince

这招果然很厉害，但我是要隐藏闪烁的光标，不是鼠标。请再指教。我的目的是，打开一个充满命令键和提示说明的文本框的窗体时，不想看到有个光标在闪烁。但鼠标是万万不可不显示的。多谢。

fan0217

将焦点移到记录选择器上面。

DoCmd.RunCommand acCmdSelectRecord

[此贴子已经被作者于2006-5-25 14:08:58编辑过]

crg770502

Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    SendKeys "{end}"
    Text0_KeyUp 0, 0
End Sub

Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
    HideCaret (0)
End Sub

随便说一句，标题应该叫隐藏插入符。

[此贴子已经被作者于2006-5-25 15:37:15编辑过]

vince

感谢以上各楼的支持。问题解决。