ورود

View Full Version : حرفه ای: مشکل تابع Sendkeys در win8


as987498749874
چهارشنبه 11 اردیبهشت 1392, 11:16 صبح
با سلام
من یه برنامه دارم که کد زیر در روال keypress اون عملکرد کلید tab رو داره



If KeyAscii=13 then sendkeys "{tab}",true : keyascii=0


روی سند کیز ارور میده
meys34
چهارشنبه 11 اردیبهشت 1392, 16:38 عصر
If KeyAscii=13 then

Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Sendkeys "{tab}"
Set WshShell = Nothing

keyascii=0
End If

مرجع:http://www.tek-tips.com/viewthread.cfm?qid=1591816

البته روش های دیگه ای هم داره مثل تابع SendInput و یا استفاده از SendMessage ...
ولی این یکی ساده تره...
as987498749874
پنج شنبه 12 اردیبهشت 1392, 10:37 صبح
دلیلش چیه که بعد از کمپایل برنامه ارر نمیده ولی موقعی که سورس هست مشکل داره