3 تا سوال (هر وقت خواستید جواب بدید)

[negar-shey2nak]

سلام چند تا سوال دارم که اصلا ضروری نیست (از ترس بعضی ها)
1-سوال کار تابع Sendkeys چیه
2 - کاربرد تابع Environ چیه
3 -چگونه میتوان فهمید که بر اساس زمان الان چه وقت از روز است صبح شب یا عصر؟

با تشکر - این ها فقط جنبه آموزش داره و به خاطر پروژم این سوال ها را مطرح میکنم

[shirazhaker]

سوال 1
اين تابع يك كليد را براي انجام كاري مي فرستد مثل
sendkeys {%+f4}
كه كار كليد الت و اف 4 را انجام ميده

[shirazhaker]

سوال 3
خوب معلومه از am و pm اين كه خيلي ساده هست

[shirazhaker]

.SendKeys يك يا چند كاركتر يا دكمه هاي كيبرد رو به پنجره ي فعال ارسال ميكنه درست مثل اينكه دكمه هاي كيبرد فشار داده شده باشن.2 تا آرگومان ميگيره كه دومي اختياريه.آرگومان اولي كاراكتر هايي هستن كه ميخواهيم ارسال كنيم مثلا “vb” .واسه دكمه هاي خاص كيبرد مثل HOME ها DELETE و ... بايد اون ها رو توي آكلاد قرار بدين مثلا :
براي insert از “{INSERT}” يا “{INS}” استفاده ميشه.
براي end از “{END}” استفاده ميشه.
براي delete از “{DELETE}” يا “{DEL}” استفاده ميشه.
براي page down از “{PGDN}” استفاده ميشه.
براي page up از “{PGUP}” استفاده ميشه.
براي home از “{HOME}” استفاده ميشه.
براي علامت چپ از “{LEFT}” استفاده ميشه.
براي علامت بالا از “{UP}” استفاده ميشه.
براي علامت راست از “{RIGHT}” استفاده ميشه.
براي علامت پايين از “{DOWN}” استفاده ميشه.
براي print screen از “{PRTSC}” استفاده ميشه.
براي scroll lock از “{SCROLLLOCK}” استفاده ميشه.
براي break از “{BREAK}” استفاده ميشه.
براي back space از “{BACKSPACE}” يا“{BS}” يا “{BKSP}” استفاده ميشه.
براي enter از “{ENTER}” يا "~" (بدون آكلاد) استفاده ميشه.
براي F1 ، F2 و... هم از “{F1}” ، “{F2}” و ... استفاده ميشه.
براي escape از “{ESC}” استفاده ميشه.
براي tab از “{TAB}” استفاده ميشه.
براي caps lock از “CAPSLOCK” استفاده ميشه.

[mehrdad-xvc]

تابع Sendkeys تابعی هست که برای ما کلید هایی را به ویندوز یا برنامه ارسال میکند.دقیقا متل اینکه کاربر کلید مورد نظر ما را روی صفحه کلید فشرده باشد. این تابع بسیار ساده و کارا است به مثال زیر توجه کنید.

شما میخواهید که متن داخل یک متن انتخاب شده و پررنگ شود با این کد از تابع ارسال کلید این عمل به راحتی میسر است.

Private Sub Text1_GotFocus()

SendKeys "{home}+{end}"

End Sub

این تابع اگر کنترل به داخل یک تکست باکس منتقل شود متن داخل آن را انتخاب میکند.

از این تابع برای ارسال هر کلیدی میتوان استفاده نمود

[shirazhaker]

Environ (و Environ$) اين تابع با گرفتن عدد ها(اينجا index ها) ي بيشتر از 0 و يا رشته ها اطلاعات خاصي از سيستم مثل دايركتوري ويندوز Program Files ، Temp و يا UserName يا تعداد پردازشگر ها و ... رو برميگردونه.با دادن عدد هاي مختلف از 1 به بالا مقدار هاي مختلفش رو ميتونين ببينين.رشته هايي رو هم ميگيره مثل WinDir يا OS يا SystemDrive يا ... كه اين رشته ها رو با استفاده از اعداد ميتونين بدست بيارين :

SPrivate Sub Command1_Click()
Dim strEv As String, i As Integer
i = 1
Do
strEv = Environ(i)
Print strEv
i = i + 1
Loop While strEv <> ""
End ub

[mehrdad-xvc]

این تابع با گرفتن یک پارامتر برای ما شاخه ای ویندوز ما در آن قرار دارد را بر میگرداند.به مثال زیر توجه کنید :

Private Sub Form_Load()

MsgBox Environ("windir")

End Sub

این برنامه در هنگام بارگزاری مسیر ویندوز را برای شما پیغام خواهد داد.

پارامتر Windir یک پارامتر تعریف شده هست.

این تنها کاربرد این تابع نیست.

[shirazhaker]

واسه نگه داشتنه شدن كليد هاي Control و Alt و Shift به ترتيب از ^ ، % ، + استفاده كنين.مثلا براي كنترل بعلاوه ي v از “^v” استفاده كنين.اگه ميخواهين يكي ازين دكمه ها واسه مجموعه اي از كليد ها مورد استفاده قرار بگيره از پرانتز استفاده كنين مثلا براي كنترل بعلاوه ي vb از “^(vb)” استفاده كنين.براي استفاده همزمان از چند تا ازين كليد ها هم اون ها رو پشت سر هم استفاده كنين مثلا براي شيفت بعلاوه ي كنترل بعلاوه v از “+^v” استفاده كنين.اين كار رو براي دكمه هاي HOME و INSERT و ... هم ميتونين بكنين.مثلا كنترل بعلاوه يHOME ميشه “^{HOME}” .

[mehrdad-xvc]

shirza haker یک سری توضیحاتی داد که توضیحات کاملی هست
اما در جواب سوال 3

با یک تابع دست نویس و ساده میتوانید با گرفتن زمان تشخیص دهید که اکنون چه موقع از شبانه روز است. به تابع زیر توجه کنید

Private Sub Form_Load()

Select Case WhatShift

Case 0

Label1.Caption = "صبح"

Case 1

Label1.Caption = "عصر"

Case 2

Label1.Caption = "شب"

End Select

Me.Caption = Time$

End Sub





Public Function WhatShift() As Byte

Dim x As Integer

x = Val(Left$(Time$, 2))

If x >= 0 And x < 12 Then WhatShift = 0

If x >= 12 And x < 17 Then WhatShift = 1

If x >= 17 And x < 24 Then WhatShift = 2

End Function