دوال متنوعة الجزء الثالث
دالة AppActivate
Dim MyProgID As Long
'نفتح البرنامج اولا
MyProgID = Shell("C:\Program Files\Microsoft office\Office\WINWORD.EXE", 1
بعد التشغيل يتم الحصول على مقبض البرنامج'
هذه الدالة تستخدم لكي يتم تفعيل هذا البرنامج'
AppActivate MyProgID
تستخدم لتفعيل برنامج
دالة Circle
Dim CX, CY, Radius, Limit
تحديد قيمة السكيل
' ScaleMode = 3
تحديد الاحداثي السينى'
CX = ScaleWidth / 2
تحديد الاحدجاثي الصادى'
CY = ScaleHeight / 2
If CX > CY Then Limit = CY Else Limit = CX
تحديد قيمة الراديان'
For Radius = 0 To Limit
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)5
Next Radius
تقوم برسم دائرة بعد تحديد الاحداثيات
دالة Button
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y
(As Single
If Button = 1 Then
"زر الفأرة اليسرى مضغوط الآن "=
txtResult.Text
End If
If Button = 2 Then
"زر الفأرة اليمني مضغوط الآن "=
txtResult.Text
End If
If Button = 4 Then
"زر الفأرة الوسطي مضغوط الآن "=
txtResult.Text
End If
End Sub
إيجاد الرقم المقابل لضغط علي كل جهة من الماوس .
الزر الأيسر = 1
الزر الأيمن = 2
الزر الأوسط =4
دالة DoEvents
Private Sub Command1_Click()
'This example uses the DoEvents function to cause execution to yield to the operating system once every 1000 iterations of the loop. DoEvents returns the number of open Visual Basic forms, but only when the host application is Visual Basic.
' Create a variable to hold number of Visual Basic forms loaded
' and visible.
Dim I, OpenForms
For I = 1 To 1500000 ' Start loop.
If I Mod 1000 = 0 Then ' If loop has repeated 1000 times.
OpenForms = DoEvents ' Yield to operating system.
Cls
Print I
End If
Next I ' Increment loop counter.
End Sub
وظيفة الدالة هي اخلاء مكانا للتنفيذ لنظام التشغيل بامكانية معالجة احداث اخرى
ان هذه الدالة مفيدة فبامكانك ان تسمح للمستخدم بالغاء العمل بعد عملية البدء في عملية البحث عن ملف .أي تمكين المستخدم من استخدام البرنامج وعمل أي شيء آخر في نفس الوقت الذي يقوم البرنامج فيه بالمعالجة .
دالة KeyPreview
() Private Sub Form_Load
KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift AsInte
ger
Select Case KeyCode
"Case vbKeyF1: MsgBox "F1
"Case vbKeyF2: MsgBox "F2
" Case vbKeyF3: MsgBox "F3
" Case vbKeyF4: MsgBox "F4
Case vbKeyEscape: Unload Me
End Select
End Sub
'المثال 2
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer
If KeyCode = vbKeyF4 Then
If Shift = vbAltMask Then
Form1.WindowState = vbMinimized
End If
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer
If KeyCode = vbKeyF4 Then
If Shift = vbAltMask Then
Form1.WindowState = vbMinimized
End If
End If
End Sub
تستخدم للحصول على الحدث او نوع المفتاح الذي نقر علية المستخدم في لوحة المفاتيح
في المثال 2 يتم تصغير الفورم عند الضغط على alt+f4 بدلا من اغلاقة
انظر الجدول التالي فهو يبين الاكواد للوحة المفاتيح:
Constant Value Description
vbKeyLButton 1 Left mouse button
vbKeyRButton 2 Right mouse button
vbKeyCancel 3 CANCEL key
vbKeyMButton 4 Middle mouse button
vbKeyBack 8 BACKSPACE key
vbKeyTab 9 TAB key
vbKeyClear 12 CLEAR key
vbKeyReturn 13 ENTER key
vbKeyShift 16 SHIFT key
vbKeyControl 17 CTRL key
vbKeyMenu 18 MENU key
vbKeyPause 19 PAUSE key
vbKeyCapital 20 CAPS LOCK key
vbKeyEscape 27 ESC key
vbKeySpace 32 SPACEBAR key
vbKeyPageUp 33 PAGE UP key
vbKeyPageDown 34 PAGE DOWN key
vbKeyEnd 35 END key
vbKeyHome 36 HOME key
vbKeyLeft 37 LEFT ARROW key
vbKeyUp 38 UP ARROW key
vbKeyRight 39 RIGHT ARROW key
vbKeyDown 40 DOWN ARROW key
vbKeySelect 41 SELECT key
vbKeyPrint 42 PRINT SCREEN key
vbKeyExecute 43 EXECUTE key
vbKeySnapshot 44 SNAPSHOT key
vbKeyInsert 45 INS key
vbKeyDelete 46 DEL key
vbKeyHelp 47 HELP key
vbKeyNumlock 144 NUM LOCK key
KeyA Through KeyZ Are the Same as Their ASCII Equivalents: 'A' Through 'Z'
Constant Value Description
vbKeyA 65 A key
vbKeyB 66 B key
vbKeyC 67 C key
vbKeyD 68 D key
vbKeyE 69 E key
vbKeyF 70 F key
vbKeyG 71 G key
vbKeyH 72 H key
vbKeyI 73 I key
vbKeyJ 74 J key
vbKeyK 75 K key
vbKeyL 76 L key
vbKeyM 77 M key
vbKeyN 78 N key
vbKeyO 79 O key
vbKeyP 80 P key
vbKeyQ 81 Q key
vbKeyR 82 R key
vbKeyS 83 S key
vbKeyT 84 T key
vbKeyU 85 U key
vbKeyV 86 V key
vbKeyW 87 W key
vbKeyX 88 X key
vbKeyY 89 Y key
vbKeyZ 90 Z key
Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9
Constant Value Description
vbKey0 48 0 key
vbKey1 49 1 key
vbKey2 50 2 key
vbKey3 51 3 key
vbKey4 52 4 key
vbKey5 53 5 key
vbKey6 54 6 key
vbKey7 55 7 key
vbKey8 56 8 key
vbKey9 57 9 key
Keys on the Numeric Keypad
Constant Value Description
vbKeyNumpad0 96 0 key
vbKeyNumpad1 97 1 key
vbKeyNumpad2 98 2 key
vbKeyNumpad3 99 3 key
vbKeyNumpad4 100 4 key
vbKeyNumpad5 101 5 key
vbKeyNumpad6 102 6 key
vbKeyNumpad7 103 7 key
vbKeyNumpad8 104 8 key
vbKeyNumpad9 105 9 key
vbKeyMultiply 106 MULTIPLICATION SIGN (*) key
vbKeyAdd 107 PLUS SIGN (+) key
vbKeySeparator 108 ENTER (keypad) key
vbKeySubtract 109 MINUS SIGN (-) key
vbKeyDecimal 110 DECIMAL POINT (.) key
vbKeyDivide 111 DIVISION SIGN (/) key
Function Keys
Constant Value Description
vbKeyF1 112 F1 key
vbKeyF2 113 F2 key
vbKeyF3 114 F3 key
vbKeyF4 115 F4 key
vbKeyF5 116 F5 key
vbKeyF6 117 F6 key
vbKeyF7 118 F7 key
vbKeyF8 119 F8 key
vbKeyF9 120 F9 key
vbKeyF10 121 F10 key
vbKeyF11 122 F11 key
vbKeyF12 123 F12 key
vbKeyF13 124 F13 key
vbKeyF14 125 F14 key
vbKeyF15 126 F15 key
vbKeyF16 127 F16 key
0 التعليقات:
إرسال تعليق
ما هو رايكم فى المدونة ؟ او يتم الاقتراح لاضافة اشياء اخرى ؟