البرنامج الأول عبارة عن مستعرض صور بسیط. افتح مشروع جديد ثم ضع مايلي:
فیظھر مربع حوار نختار Ctrl+T نضغط على ، Image ٢ أزرار ، أداة عرض الصور 1
ثم نظغط على موافق Microsoft Common Dialog control 6.0(SP منه الأداة ( 6
: Form_Load ونقوم بإدراجه على الفورم. نكتب الكود الآتي بالحدث
Private Sub Form_Load()
Form_Resize
End Sub
: Form_Resize والكود الآتي بالحدث
Private Sub Form_Resize()
On Error Resume Next
Image1.Width = Me.Width - 360
Image1.Height = Me.Height - 1180
End Sub
وللزر الأول "تحمیل" :
Private Sub CmdOpen_Click()
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.Filter="All Picture Files|*.bmp;*.jpg;*.gif;*.wmf|"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
وللزر الثاني " حفظ" :
Private Sub CmdSave_Click()
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.Filter= "JPG|*.jpg| BMP|*.bmp| Gif|*.gif|"
CommonDialog1.ShowSave
SavePicture Image1.Picture, CommonDialog1.FileName
End Sub
البرنامج الثاني :
برنامج لمعرفة النتیجة. افتح مشروع جديد قیاسي ثم ضع علیه مايلي :
وقم بمسح كل ما Command زر أمر 1 ، Label أداة عنوان 1 ، Text صندوق نص 1
: Form_Load تحويه أداة العنوان وصندوق النص. ضع الكود الآتي في الحدث
Private Sub Form_Load()
Command1.Enabled = False
End Sub
: Text1_Change والكود الآتي بالحدث
Private Sub Text1_Change()
Command1.Enabled = True
If Val(Text1) = 0 Then Command1.Enabled = False: Label1 = ""
End Sub
: Text1_Keypress(KeyAscii As Integer) والكود الآتي في الحدث
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
KeyAscii = 0
End If
End Sub
والكود الآتي للزر :
Private Sub Command1_Click()
If Val(Text1) > 0 And Val(Text1) <= 25 Then
Label "ضعیف" = 1
ElseIf Val(Text1) > 25 And Val(Text1) <= 50 Then
Label "جید" = 1
ElseIf Val(Text1) > 50 And Val(Text1) <= 75 Then
Label "وسط" = 1
ElseIf Val(Text1) > 75 And Val(Text1) <= 100 Then
Label "ممتاز" = 1
ElseIf Val(Text1) > 100 Then
Label1 = " "لا تدخل رقما أعلى من ١٠٠
End If
End Sub
البرنامج الثالث :
عبارة عن قارئ بسیط للمیديا. افتح مشروع قیاسي جديد وضع علیه مايلي :
Ctrl + T إلى "فتح" ، اضغط على Caption وغیر الخاصة Command زر أمر 1
Microsoft Common Dialog control 6.0(SP فیظھر مربع حوار اختر منه الأداة ( 6
.Label وضعھا على الفورم ، وضع أداة عنوان 1
كود الزر "فتح" :
Private Sub Command1_Click()
On Error GoTo err:
CommonDialog1.CancelError = True
CommonDialog1.Filter = "All Media Types(*.mp3;*.wav)|*.mp3;*.wav|"
CommonDialog1.ShowOpen
MMControl1.Command = "stop"
MMControl1.FileName = CommonDialog1.FileName
Label1 = CommonDialog1.FileName
MMControl1.Command = "open"
MMControl1.Command = "play"
err:
MMControl1.FileName = ""
End Sub
الأحد يوليو 10, 2011 8:54 am من طرف أحمدالسيدالصعيدي
» الشبكات NETWORKS
الجمعة ديسمبر 17, 2010 9:58 pm من طرف THE DRAGON
» صفارات BIOS
الجمعة ديسمبر 17, 2010 9:54 pm من طرف THE DRAGON
» proxy >>>بروكسي
الجمعة ديسمبر 17, 2010 9:44 pm من طرف THE DRAGON
» بدك تحرم الضحيه على انو يفوت على الياهوو مسنجر او على ايماله الخاص
الخميس ديسمبر 02, 2010 5:26 am من طرف bibeto008
» قصيدة باللغة الانكليزية
الأحد نوفمبر 28, 2010 12:51 am من طرف lana
» مهم جداً...............
السبت نوفمبر 27, 2010 1:09 pm من طرف عاشق الاحساس
» اصابة الاربطة المتصالبة للركبة
الجمعة نوفمبر 26, 2010 5:24 pm من طرف THE DRAGON
» كبار السن و الرياضة
الجمعة نوفمبر 26, 2010 5:21 pm من طرف THE DRAGON