تعلم كيف تصنع برنامج عارض صور بنفسك باستخدام visual basic 6.0


(al3bbas) #1

تعلم كيف تصنع برنامج عارض صور بنفسك باستخدام 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

وانشالله يعجبكن البرنامج

للاستفسار:


مع تحيات العبا س


(feras_1988) #2

thank yooooooooooooooooooooooooooooou


(amr_cutie) #3

many thanxxxxxxxxxxxxxxxx


(system) #4

ارجوا المساعدة ايميلي muhanadsalman@yahoo.com
عملت لستة محل داخل combobox
1-car
2-small car
3-big car
ارجوا معرفة كيفية عمل كود بحيث اضغط على هذه الاسماء داخل combo box
بحيث كل واحد ينقلني الى form ?

اي اذا اضغطcar على يفتح form1
و اضغط علىbig car يفتح form2
و اضغط على small car يفتح form3

وشكرا


(system) #5

THANHK YOU


(drhameed) #6

Thank you nerry much