hi,
thank you for reply
1.what that's mean---> (lcYourCode).
2.how i can use it at my form ?
thanks.
>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
>
>
>*- Test
>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
>
