فيجيوال بيسك - التطبيق ( 5 )

التطبيق ( 5 ) :
الهدف : استخدام الأدوات ( Drive list Box ) و ( Dir list box ) و ( File list Box ) .



الوصف: مستعرض صور ( BMP,JPG ) مبسط .

Private Sub cmdExit_Click()
End
End Sub
-------------------------------------------------------------------
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
-------------------------------------------------------------------
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
-------------------------------------------------------------------
Private Sub File1_Click()
selectedfile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(selectedfile)
txtAddress.Text = selectedfile
End Sub



ملاحظات :
File1.Pattern = *.bmp;*.jpg
Image1.stretch = True
Image1.borderStyle = fixed single

تابع القراءة »

فيجيوال بيسك - التطبيق ( 4 )

التطبيق ( 4 ) :
الهدف : استخدام الأمر Select case بالإضافة إلى استخدام أدوات ( ComboBox ، CheckBox ) .





الوصف: برنامج محرر نصوص مبسط يحتوي على ثلاث قوائم تشمل تغيير حجم ونمط الخط وعمل محاذاة وتوسيط للنص المكتوب بالاضافة إلى اختيار check box لتفعيل خاصية underline للنص .
Private Sub Form_Load( )
cmbSize.AddItem " 10"
cmbSize.AddItem " 15"
cmbSize.AddItem " 20"
cmbSize.AddItem " 25"

cmbAlig.AddItem " left"
cmbAlig.AddItem " right"
cmbAlig.AddItem " center"

cmbstyle.AddItem " Regular"
cmbstyle.AddItem " Bold "
cmbstyle.AddItem " Italic "
End Sub
-------------------------------------------------------------------
Private Sub Check1_Click()
If Check1.Value = False Then
Text1.FontUnderline = False
Else
Text1.FontUnderline = True
End If
End Sub
-------------------------------------------------------------------
Private Sub cmbAlig_Click()
Select Case cmbAlig.ListIndex
Case 0
Text1.Alignment = 0
Case 1
Text1.Alignment = 1
Case 2
Text1.Alignment = 2
End Select
End Sub
-------------------------------------------------------------------
Private Sub cmbSize_Click()
Select Case cmbSize.ListIndex
Case 0
Text1.FontSize = 10
Case 1
Text1.FontSize = 15
Case 2
Text1.FontSize = 20
Case 3
Text1.FontSize = 25
End Select
End Sub
-------------------------------------------------------------------
Private Sub cmbstyle_Click()
Select Case cmbstyle.ListIndex
Case 0
Text1.FontBold = False
Text1.FontItalic = False
Case 1
Text1.FontBold = True
Case 2
Text1.FontItalic = True
End Select
End Sub

تابع القراءة »

فيجيوال بيسك - التطبيق ( 3 )

التطبيق ( 3 ) :
الهدف : تطبيق أمر If Statement .




الوصف : برنامج محرر نصوص مبسط يحتوي على أزرار ( Bold ، Italic ، Underline ) وزر للخروج ( Exit ) يقوم بتغيير تنسيق الخط لمربع النص حسب الزر المستخدم من قبل مستخدم البرنامج .

Private Sub cmdBold_Click()
If txtMain.FontBold = False Then
txtMain.FontBold = True
Else
txtMain.FontBold = False
End If
End Sub
---------------------------------------------------------------
Private Sub cmdItalic_Click()
If txtMain.FontItalic = False Then
txtMain.FontItalic = True
Else
txtMain.FontItalic = False
End If
End Sub
---------------------------------------------------------------
Private Sub cmdUline_Click()
If txtMain.FontUnderline = False Then
txtMain.FontUnderline = True
Else
txtMain.FontUnderline = False
End If
End Sub
---------------------------------------------------------------
Private Sub cmdExit_Click()
End
End Sub

تابع القراءة »

فيجيوال بيسك - التطبيق ( 2 )

التطبيق ( 2 ) :
الهدف : استخدام دالة الوقت والتاريخ كمثال على الدوال الموجودة في فيجيول بيسك بالاضافة لمهارة استخدام أداة الزمن .




الوصف : ساعة تظهر الساعة مقسمة إلى ( الساعات : الدقائق : الثواني ) ثم اظهار التاريخ كاملاً وإظهار الساعة كاملة بدون تقسيم .

Private Sub Timer1_Timer()
lblH.Caption = Hour(Time(
lblM.Caption = Minute(Time(
lblS.Caption = Second(Time(
Label1.Caption = Date
Label2.Caption = Time
End Sub

تابع القراءة »

تصنيف : فيجيوال بيسك - التطبيق ( 2 )

فيجيوال بيسك - التطبيق ( 1 )

التطبيق ( 1 ) :
الهدف : استخدام بعض أدوات فيجيول بيسك وتحديد خصائصها يدوياً ثم استخدام نافذة كتابة الكود البرمجي لتغيير خصائص أداة برمجياً.



الوصف : نافذة تحتوي على أربع أزرار تمثل ثلاث ألوان ( Black ، Red ، Blue ) وزر للخروج ( Exit ) عند الضغط على أي زر يتحول لون المستطيل إلى اللون الذي يمثله الزر ويكتب داخله هذا المستطيل إسم اللون المختار .

Private Sub cmdBlak_Click()
Label1.BackColor = vbBlack
Label1.Caption = "Black"
End Sub

Private Sub cmdBlue_Click()
Label1.BackColor = vbBlue
Label1.Caption = "Blue"
End Sub

Private Sub cmdRed_Click()
Label1.BackColor = vbRed
Label1.Caption = "Red"
End Sub

Private Sub cmdExit_Click()
End
End Sub

تابع القراءة »

تصنيف : فيجيوال بيسك - التطبيق ( 1 )