[abdewidad]

السلام عليكم اخواني
اريد كلما ضغطت على الزر يتغير لونshape 1 عند الغط مرة تانية يتغر لون shape2 مع الاحتفاظ على shape2

Dim X, r As Integer
Private Sub Command1_Click()
If Command1.Caption = r Then
X = 1 + r
If X = 2 Then Shape1.Visible = True
If X = 3 Then Shape2.Visible = True
If X = 4 Then Shape3.Visible = True
Text1.Text = Val(X)
End If
End Sub

[batma97]

مافهمته من قولك هو هذا و الكود الذي كتبته ملئ بالاخظاء
اشرح ماتريد و لن نبخل بالمساعدة

dim X as integer=0
Private Sub Command1_Click()
X = X + 1
If X = 1 Then Shape1.Visible = True
If X = 2 Then Shape2.Visible = True
If X = 3 Then Shape3.Visible = True
if X=4 then
X=0
Shape1.Visible = false
Shape1.Visible = false
Shape1.Visible = false
end if
Text1.Text = Val(X)

End Sub

[abdewidad]

اقتباس المشاركة الأصلية كتبت بواسطة batma97 مافهمته من قولك هو هذا و الكود الذي كتبته ملئ بالاخظاء اشرح ماتريد و لن نبخل بالمساعدة dim X as integer=0 Private Sub Command1_Click() X = X + 1 If X = 1 Then Shape1.Visible = True If X = 2 Then Shape2.Visible = True If X = 3 Then Shape3.Visible = True if X=4 then X=0 Shape1.Visible = false Shape1.Visible = false Shape1.Visible = false end if Text1.Text = Val(X) End Sub

نعم اخي العزيز فهدا الكود مليئ بالاخطاء فطلب هو تصحيحه اخي العزيز
في ما يخص الشرح هو :
عند الضغط على command يتغير لون shape
واني وضعت اربعة اداة شاب فوق بعضها البعض
عند الضغط على command مرة الولى تتغير الاداة shape1
عند الضغط على command مرة الثانية تتغير الاداة shape2
عند الضغط على command مرة التالثة تتغير الاداة shape3

[abdewidad]

هل من مجيب

[batma97]

dim X as integer=0
Private Sub Command1_Click()
X = X + 1
If X = 1 Then 
Shape1.Visible = True
Shape2.Visible = false
Shape3.Visible = false
end if
If X = 2 Then
Shape1.Visible = false
 Shape2.Visible = True
 Shape3.Visible = false
 end if
If X = 3 Then 
Shape1.Visible = false
Shape2.Visible = false
Shape3.Visible = True
end if
if X=4 then
X=0
Shape1.Visible = false
Shape2.Visible = false
Shape3.Visible = false
end if
Text1.Text = Val(X)

End Sub

[abdewidad]

بارك الله فيك اخي العزيز

[batma97]

اقتباس المشاركة الأصلية كتبت بواسطة abdewidad بارك الله فيك اخي العزيز

هل اشتغل لك الكود

[abdewidad]

نعم اخي العزيز
لقد اشتغل بفضل الله ثم مساعدتك اخي
ينقصني اشياء اخرى ساطرحها هنا في برنامج فيول بزيك
شكرا اخي