السلام عليكم
عندي مشروع محتاج لكود التالي والسابق
وكود عند الضغط على موضوع من قائمة الاختيار ونضغط على زر ok ينقلنا للموضوع اللي اخترناه
ما هي البيانات التي سيتم عرضها عندما يتم الضغط علي كلا من الباتون السابق و التالي
هل ستم تخزين الصور في البرنامج؟
أنا شفت المثال لكن عايز اعرف هل سيتم تخزين الصور في البرنامج ؟
خلاص فهمت الصور موجودة ب الفعل في ريسورس المشروع
في الفورم رقم 2 انسخ الكود التالي كما هو ثم قم بتشغيل الفورم رقم 2
و بنفس الاسلوب تستطيع أن تصمم بقية الفورم
كود :
Public Class Form2
' تعريف مصفوفة لحفظ الصور
Private imageFiles() As Bitmap = Nothing
' تعريف عداد للصور
Dim counter As Integer = 0
Private Sub ShowImage(bmp As Bitmap, picBox As PictureBox)
picBox.Image = bmp
End Sub
Private Function GetImageFiles() As Bitmap()
' أضف العددي المطلوب من الصور
Dim imageList As List(Of Bitmap) = New List(Of Bitmap) From {My.Resources.g__2_.Clone, My.Resources.g__3_.Clone, My.Resources.g__4_.Clone}
' استرجع الصور
Return imageList.ToArray
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.counter += 1
ShowImage(Me.imageFiles((Me.counter) Mod Me.imageFiles.Length), PictureBox1)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.counter -= 1
ShowImage(Me.imageFiles((Me.counter) Mod Me.imageFiles.Length), PictureBox1)
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
imageFiles = GetImageFiles()
Me.PictureBox1.Image = imageFiles(0)
End Sub
End Class
يعطيك العافيه اخوي
طيب الفورم رقم 1
ابي ابي كود يرببط بين مجموعه ازرار button بزر امر button اخر
للاسف حجم المشروع كبير و لا أستطيع اضافته الي المرفقات خاصة في وجود الصور الموجودة بالمشروع
عموما في الفورم الرئيسي اكتب الكود بالشكل التالي
كود :
Public Class Form1
Private selectedform As Integer = -1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.selectedform = 0
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.selectedform = 1
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.selectedform = 2
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.selectedform = 3
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Me.Hide()
If Me.selectedform <> -1 Then
Select Case Me.selectedform
Case 0
Form2.Show()
Exit Select
Case 1
Form3.Show()
Exit Select
Case 2
Form4.Show()
Exit Select
Case 3
Form5.Show()
Exit Select
End Select
End If
End Sub
End Class
في الفورم الثاني كما في المشاركات السابقة
في الفورم الثالث اكتب الكود التالي ثم أكمل بقية الأكواد كما في الفورم رقم 2
كود :
Public Class Form3
Private Sub Form3_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
Form1.Show()
End Sub
' اكتب بقية الأكواد كما هو موضح في الفورم الثاني
End Class
في الفورم الرابع اكتب الكود التالي ثم أكمل بقية الأكواد كما في الفورم رقم 2
كود :
Public Class Form4
Private Sub Form4_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
Form1.Show()
End Sub
' اكتب بقية الأكواد كما هو موضح في الفورم الثاني
End Class
في الفورم الخامس اكتب الكود التالي ثم أكمل بقية الأكواد كما في الفورم رقم 2
كود :
Public Class Form5
Private Sub Form5_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
Form1.Show()
End Sub
' اكتب بقية الأكواد كما هو موضح في الفورم الثاني
End Class
ملحوظة:
حاول ان تعطي أسماء لكل فورم يتناسب مع الهدف منه مثلا Form1 اعطه اسم MainForm و الفورم الخاص بالمجالس يمكنك أن تطلق عليه SofaForm و هذا سوف يجعل من كتابة الكود اسهل لك و هكذا بالنسبة لبقية الفورم
و يمكنك أن تفعل نفس الشئ بالنسبة للباتون الموجودة في الفورم الأول