>>> ملخصات عملية <<<
البرمجة المرئية
كل الشكر والتقدير م.ماجد جربوع
دعواتكم
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
اليكم المثال الخاص بحدث ال : Click الوحدة السابعة - مادة البرمجة المرئية - مع زيادة على المثال باستخدام مبدأ القنوات Threading وهو نوم sleep للقناة لمدة 2 ثانية وتحسب ب 2000 Mil Second : هيث تقوم بتغيير لون الخلفية عند الضغط علي الشاشة بشكل تلقائي لالوان مختلفة وتستطيع زيادة هذه الألوان حسب الحاجة ، بالاضافة لباقي الاحداث المقررة فى المثال
اليكم الشيفرة
اليكم الشيفرة
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' Credits: (Milk (Sleep+Pause Sub)). (Wayne Spangler (Pause Sub))
Private Sub Pause(ByVal Delay As Single)
Delay = Timer + Delay
If Delay > 86400 Then 'more than number of seconds in a day
Delay = Delay - 86400
Do
DoEvents ' to process events.
Sleep 1 ' to not eat cpu
Loop Until Timer < 1
End If
Do
DoEvents ' to process events.
Sleep 1 ' to not eat cpu
Loop While Delay > Timer
End Sub
Private Sub Command1_Click()
MsgBox ("You Clicked In To Command Button")
End Sub
Private Sub Form_Click()
clickf.BackColor = vbRed
Sleep 2000 ' to sleep for 1 second
clickf.BackColor = vbBlack
Sleep 2000 ' to sleep for 1 second
clickf.BackColor = vbGreen
Sleep 2000 ' to sleep for 1 second
clickf.BackColor = vbBlue
End Sub
Private Sub Label1_Click()
Label1.Caption = "Click"
End Sub
Private Sub Text1_Click()
Text1.Top = 100
End Sub
المصدر : مركز الفا للدراسات الاكاديمية
hamad bashir
أكواد من لغة vb6, اكواد من لغة فيجول بيسك, البرمجة المرئية, برامج عملية فيجول بيسك vb6, برمجة مرئية, ملخص العمليات على المصفوفات من لغة VB6,
اطرح اي سؤال خاص بالموضوع في التعليقات