VFP 愛用者社區

[KKKLYNN]

各位好
使用
KEYBOARD '{SHIFT+SPACEBAR}'
卻無效(也沒有錯誤訊息)
以上謝謝

[KKKLYNN]

請問這個
如何轉至vfp使用
Private Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long
Private Declare Function ImmSimulateHotKey Lib "imm32.dll" (ByVal hwnd As Long, ByVal dw As Long) As Long
Private Const IME_THOTKEY_IME_NONIME_TOGGLE = &H70
Private Const IME_THOTKEY_SHAPE_TOGGLE = &H71

Public Sub ImeFullShape()
Dim msgPeekResult As Msg
Dim hwnd As Long

hwnd = Screen.ActiveForm.hwnd
If ImmIsIME(GetKeyboardLayout(0)) = 0 Then
ImmSimulateHotKey hwnd, IME_THOTKEY_IME_NONIME_TOGGLE
End If
DoEvents
ImmSimulateHotKey hwnd, IME_THOTKEY_SHAPE_TOGGLE
End Sub

[sheuok]

轉換結果如下:

Declare Integer ImmIsIME In imm32.Dll Integer hkl
Declare Integer ImmSimulateHotKey In imm32.Dll Integer HWnd, Integer dw
ime_thotkey_ime_nonime_toggle = 0x70
ime_thotkey_shape_toggle = 0x71
uc_hwnd=Thisform.HWnd
If IMEStatus()=2
IMEStatus(1)
EndIf
immsimulatehotkey(uc_hwnd, ime_thotkey_shape_toggle)

[KKKLYNN]

您好
使用web browse於form
當結束form後回到其它頁面
pc會自動切至全行
若又切回有browse的頁面時又會變成半形
似乎受到browse控件的影響
所以希望能脫離browse頁面時能切回半形
本來想用keyborad,但無shift+space組合
使用您轉換的式子,我沒有辦法試出來(hwnd屬性無法使用)
把它截掉,但無切換功能
謝謝

[KKKLYNN]

剛剛又試了一下
在BROWSE控件狀況下,可將全形轉成半形
但轉回其它FORM時卻又自動轉回全形
而此時使用此轉換功能卻無效
表示再BROWSE控件下才有效能將全形轉回半形
但離開BROWSE控件頁面時,又轉回全形
以上謝謝

[sheuok]

[KKKLYNN]

您好
知道了
VFP9可以
VFP6無HWnd.uc_hwnd屬性
只可惜我的系統還沒用VFP9
以上謝謝

[sheuok]

可調用Windows Api 中的 GetActiveWindow 取代 Thisform.HWnd

完整的程序如下:

Declare Integer ImmIsIME In imm32.Dll Integer hkl
Declare Integer ImmSimulateHotKey In imm32.Dll Integer HWnd, Integer dw
Declare Integer GetActiveWindow In Win32API
ime_thotkey_ime_nonime_toggle = 0x70
ime_thotkey_shape_toggle = 0x71
uc_hwnd=GetActiveWindow() &&Thisform.HWnd
If IMEStatus()=2
IMEStatus(1)
EndIf
immsimulatehotkey(uc_hwnd, ime_thotkey_shape_toggle)

[KKKLYNN]

您好
OK啦
這問題是在調用WEB BROWSE 控件時
在離開有WEB BROWSE 的FORM,系統會自動切換成全形
這問題再VS2005也是會出現
以上謝謝 sheuok 兄 大力的協助