Hi Mohammed!
Does it solve your doubt?
define class testclass as cuistom olepublic
name="testclass"
function testmethod
return "it works?"
endfunc
PROCEDURE SetKeyboard(lcKeyboardcode as String)
IF VARTYPE(lcKeyboardcode)<>'C'
RETURN
ENDIF
IF EMPTY(lcKeyboardcode)
RETURN
ENDIF
LOCAL pwSzklid
pwSzklid = SPACE(8)
DECLARE INTEGER GetKeyboardLayoutName IN user32.DLL STRING @
geTkeyboardlayoutname(@pwSzklid)
DECLARE INTEGER ActivateKeyboardLayout IN user32.DLL INTEGER, INTEGER
IF ATC(lcKeyboardcode, pwSzklid)=0
acTivatekeyboardlayout(1,0)
ENDIF
RETURN
ENDPROC
enddefine
oCOM = createobject('myfirstcom.testclass')
? oCom.testmethod()
? oCom.SetKeyboard(lcYourCode)Good luck!
>hi all,
>
>i need to make code under to com dll,
>i see at UT ..example, but i have no idea how or (where) i can add the code under .>define class testclass as cuistom olepublic
> name="testclass"
> function testmethod
> return "it works?"
>enddefine
>oCOM=createobject('myfirstcom.testclass')
>?ocom.testmethod()>this code....>PROCEDURE SetKeyboard
> LPARAMETER lcKeyboardcode
> IF VARTYPE(lcKeyboardcode)<>'C'
> RETURN
> ENDIF
> IF EMPTY(lcKeyboardcode)
> RETURN
> ENDIF
> LOCAL pwSzklid
> pwSzklid = SPACE(8)
> DECLARE INTEGER GetKeyboardLayoutName IN user32.DLL STRING @
> geTkeyboardlayoutname(@pwSzklid)
> DECLARE INTEGER ActivateKeyboardLayout IN user32.DLL INTEGER, INTEGER
> IF ATC(lcKeyboardcode, pwSzklid)=0
> acTivatekeyboardlayout(1,0)
> ENDIF
> RETURN
>ENDPROC
>thanks
Erick
Força Sempre!
Strength Always!
