PDA

View Full Version : سوال: دستورات صفحه کلید



lordarma
شنبه 24 بهمن 1388, 14:09 عصر
دوستان من دنبال کدی هستم که به عنوان مثال زمانی که بر روی دکمه ای کلیک شود، عمل یکی از کد های صفحه کلید انجام شود، (دقیقا بر عکس کد اسکی)
آیا همچین کدی به صورت استاندارد در VB6 وجو دارد؟ ،
نمی دونم منظورم را متوجه شدید یا نه، اما هدف من اینه یک چیز مجازی شبیه On-Screen Keyboard ساخته شود،
ممنون از توجه شما...

hasanain
شنبه 24 بهمن 1388, 14:20 عصر
این جور که فهمیدم بایستی از sendkeys استفاده بفرمایید.
این هم یک مثال از msdn که به ماشین حساب ویندوز (Calculator) عدد میفرستد.


SendKeys Statement Example
This example uses the Shell function to run the Calculator application included with Microsoft Windows. It uses the SendKeys statement to send keystrokes to add some numbers, and then quit the Calculator. (To see the example, paste it into a procedure, then run the procedure. Because AppActivate changes the focus to the Calculator application, you can't single step through the code.).

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
For I = 1 To 100 ' Set up counting loop.
SendKeys I & "{+}", True ' Send keystrokes to Calculator
Next I ' to add each value of I.
SendKeys "=", True ' Get grand total.
SendKeys "%{F4}", True ' Send ALT+F4 to close Calculator.

lordarma
شنبه 24 بهمن 1388, 14:29 عصر
می شه لطف کنید یک سورس آزمایشی هم بگذارید؟:لبخندساده:
بله منظورم همین است اما دنبال یک سری کد های واضح هستم،
تابع SendKeys دقیقا چطوری عمل می کند؟
با تشکر از توجه شما...

xxxxx_xxxxx
یک شنبه 25 بهمن 1388, 01:12 صبح
تابع SendKeys دقیقا چطوری عمل می کند؟
Sendkeys (http://barnamenevis.org/forum/showthread.php?t=162283) ‏
کار این کد چیست؟=> SendKeys ("{home}+{end}") (http://barnamenevis.org/forum/showthread.php?t=157508)