如何进入改写状态?

FookYou

窗体中有个控件Text1,如何进入"改写"状态?
if me.text1.setfocus then
  相当于按"Insert"键.
end if

KerryHuang

楼主要实现什么功能呢？

FookYou

按"Insert"键可以改变成:"插入"、"改写"两种状态。希望实现一获得焦点就是处于"改写"状态.

wanshan

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nvirtkey As Long) As Integer

'调用
If GetKeyState(45) <> 1 Then
        keybd_event 45, 0, 1, 0
        keybd_event 45, 0, 2, 0
End If

chenzhirong2008

用SendKeys就行了, API太麻烦.

FookYou

用SendKeys就行了, API太麻烦.
chenzhirong2008 发表于 2009-12-4 11:08

用Sendkeys的话你怎么知道之前是处于什么状态？

FookYou

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nvirtk ...
wanshan 发表于 2009-12-4 09:27

谢谢！俺不会API,我照抄了....