منتديات المشاغب

منتديات المشاغب (http://www.absba.org/index.php)
-   منتدى لغات البرمجة (http://www.absba.org/forumdisplay.php?f=40)
-   -   يمكن تخبروني الخطأ الموجود بالكود ليتحقق الفورم الصحيح (http://www.absba.org/showthread.php?t=1429358)

سمد الشأن 01-01-2020 05:52 PM

يمكن تخبروني الخطأ الموجود بالكود ليتحقق الفورم الصحيح
 


يمكن تخبروني الخطأ الموجود بالكود ليتحقق الفورم الصحيح ..


https://ibb.co/6NxRx71


https://ibb.co/xDKtwFZ








ahmedqatar 07-01-2020 08:57 PM

هل من الممكن وضع الكود كنص؟؟

سمد الشأن 08-01-2020 04:05 PM



أعتذر لك أخي ahmedqatar على تنبيهي في خطأ خلط المسار بعناوين الصور حيث كنت

أعني الكود

https://ibb.co/f0tGDqh

والفورم

https://ibb.co/KsHNy96

واعني أزرار الأختيار كلا على حده

https://ibb.co/sPF6mHs

https://ibb.co/c1MnQvs

https://ibb.co/8x5Xtpn

وأشكر لك أستاذي العزيز ملاحظتك هذه راجيا الله عزوجل كل التوفيق لك hh:



ahmedqatar 16-01-2020 09:06 AM

ارجو اخي الكريم اضافة الكود على هيئة نص وة ليس صورة ليتسنى مراجعته.

سمد الشأن 16-01-2020 08:31 PM



الكود على صور كمبيوتر - طائرة - سيارة

()Sub Command_Click

If option1.Value=True Then
("Image1.Picture = LoadPicture("C:/Users/Cloud/Desktop/PC.JPG"
Image1.Visible=True

Elseif Option2.Value=True Then
("Image1.Picture=LoadPicture("C:/Users/Cloud/Desktop/Plane.JPG
Image1.Visible=True

ElseIf Option3.Value=True Then
("Image1.Picture=LoadPicture("C:User/Cloud/Desktop/Car.JPG
Image1.Visible=True
Else
Image1.Visible=False
End If
End Sub

ahmedqatar 20-01-2020 12:01 AM

Private Sub Command1_Click()
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:/Users/Cloud/Desktop/PC.JPG")
Image1.Visible = True

ElseIf Option2.Value = True Then
Image1.Picture = LoadPicture("C:/Users/Cloud/Desktop/Plane.JPG")
Image1.Visible = True

ElseIf Option3.Value = True Then
Image1.Picture = LoadPicture("C:User/Cloud/Desktop/Car.JPG")
Image1.Visible = True
Else
Image1.Visible = False
End If
End Sub

هذا الكود يعمل و يجب مراعاة مسار الملف.


الساعة الآن 12:13 PM