ملخص عملي 4 مقرر البرمجة المرئية

ملخص عملي 4 مقرر البرمجة المرئية

ملخصات عملية البرمجة المرئية كل الشكر والتقدير م.ماجد جربوع

دعواتكم

مرفق تطبيق 4 الوحدة الثامنة من مقرر البرمجة المرئية

Option Explicit

Dim box As Integer

Private Sub Command1_Click()

box = MsgBox("Click Yes To Exit", vbQuestion + vbYesNo, "Exit")

If box = 6 Then

End

End If

End Sub

Private Sub Command2_Click()

box = MsgBox("Do You Want To Clear The Text Box", vbQuestion + vbYesNoCancel, "Clear")

If box = 6 Then

Text1.Text = ""

End If

End Sub

المصدر : مركز الفا للدراسات الاكاديمية 

أكواد من لغة vb6, اكواد من لغة فيجول بيسك, البرمجة المرئية, برامج عملية فيول بيسك vb6, برمجة مرئية, ملخص العمليات على المصفوفات من لغة VB6, م.ماجد جربوع