تعلم كيف تصنع برنامج عارض صور بنفسك باستخدام visual basic 6.0
أولا قم بإدراج العناصر التالية:
1-dir list box
2-file list box
3-drive list box
4-image
ذلك كما يلي
وبعدين قم بتغير الخاصية stretch في العنصر stretch الى true
كما غير الخاصية pattern في العنصر file list box واكتب فيها أنواع لواحق ملفات الصور مثل jpg;.tff;.gif;*.psd;;;;;;;;;;;;;;;
وافصل بينها ب ;*.
ثم
انسخ الاكواد التالية:
Option Explicit
dim x
Private Sub Dir1_Change ( )
File1.Path = Dir1.Path
End Sub
من شان تتغير الملفات بتغير المجلدات
Private Sub Drive1_Change( )
Dir1.Path = Drive1.Drive
End Sub
من شان تتغير المجلدات بتغير السواقات
Private Sub File1_Click( )
If Right$(Dir1, 1) = “/” Then
X = Dir1.Path + File1.FileName
Else
X = Dir1.Path + “/” + File1.FileName
End If
Image1.Picture = LoadPicture(X)
End Sub
هدا الكود من شان يخلي البرنامج يحمل الصورة ويعرضها بال image box
وإذا جبيت فينك تضيف 3ازرار
2من شان تكبير وتصغير الصورة
منكتب فيهم الاكواد التالية
Private Sub Check1_Click( )
Image1.Width = 8500
Image1.Height = 8300
End Sub
Private Sub Check2_Click()
Image1.Height = 2055
Image1.Width = 2055
End Sub
والتالت منشان الخروج منكتب فيه:
Private Sub Check3_ClickCOLOR=blue[/color]
End
End Sub
وانشالله يعجبكن البرنامج
للاستفسار:
مع تحيات العبا س
thank yooooooooooooooooooooooooooooou
many thanxxxxxxxxxxxxxxxx
ارجوا المساعدة ايميلي muhanadsalman@yahoo.com
عملت لستة محل داخل combobox
1-car
2-small car
3-big car
ارجوا معرفة كيفية عمل كود بحيث اضغط على هذه الاسماء داخل combo box
بحيث كل واحد ينقلني الى form ?
اي اذا اضغطcar على يفتح form1
و اضغط علىbig car يفتح form2
و اضغط على small car يفتح form3
وشكرا
THANHK YOU
Thank you nerry much