تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تصحيح مشكلة في المشروع
#1
السلام عليكم ورحمة االله

حصلت مشروع وحاولت اضبطه في تعبني في مشكله

المشروع عباره عن فورم رئيسي ويعرض في عدة فورمات والتحويل بينهم بزر Next  و Previous
   

عند الضغط على زر التالي يطلع لي مشكله
إقتباس :Additional information: Conversion from string "" to type 'Integer' is not valid.

   

كود :
      Dim nCurrent As Integer = CType(cCurrent.Replace("Form", ""), Integer)


       nCurrent += 1
       If nCurrent > nMax Then
           nCurrent = 1
       End If


اتمنى احصل حل لهذه المشكله  بارك الله فيكم وشكرا


.zip   WindowsApplication1.zip (الحجم : 79.29 ك ب / التحميلات : 19)
الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Class frmMain

    Dim forms
() As Form = {Form1Form2Form3Form4Form5}
 
   Dim cCurrent As Integer 0

    Private Sub frmMain_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        Panel1
.Width Me.Width
        getForm
(cCurrent)
 
   End Sub


    Private Sub Button1_Click
(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
        MovePrevious
()
 
   End Sub

    Private Sub Button2_Click
(ByVal sender As ObjectByVal e As EventArgsHandles Button2.Click
        MoveNext
()
 
   End Sub

    Private Sub MovePrevious
()
 
       If cCurrent 0 Then
            cCurrent 
-= 1
            getForm
(cCurrent)
 
       End If
 
   End Sub

    Private Sub MoveNext
()
 
       If cCurrent forms.Count 1 Then
            cCurrent 
+= 1
            getForm
(cCurrent)
 
       End If
 
   End Sub

    Sub getForm
(ByVal index)
 
       Panel1.Controls.Clear()
 
       forms(index).FormBorderStyle Windows.Forms.FormBorderStyle.None
        forms
(index).Dock DockStyle.Fill
        forms
(index).TopLevel False
        forms
(index).Show()
 
       Panel1.Controls.Add(forms(index))
 
   End Sub

End 
Class 
الرد
تم الشكر بواسطة: dubai.eig
#3
(17-10-17, 12:30 PM)a.ahmed كتب :
PHP كود :
Public Class frmMain

    Dim forms
() As Form = {Form1Form2Form3Form4Form5}
 
   Dim cCurrent As Integer 0

    Private Sub frmMain_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
        Panel1
.Width Me.Width
        getForm
(cCurrent)
 
   End Sub


    Private Sub Button1_Click
(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
        MovePrevious
()
 
   End Sub

    Private Sub Button2_Click
(ByVal sender As ObjectByVal e As EventArgsHandles Button2.Click
        MoveNext
()
 
   End Sub

    Private Sub MovePrevious
()
 
       If cCurrent 0 Then
            cCurrent 
-= 1
            getForm
(cCurrent)
 
       End If
 
   End Sub

    Private Sub MoveNext
()
 
       If cCurrent forms.Count 1 Then
            cCurrent 
+= 1
            getForm
(cCurrent)
 
       End If
 
   End Sub

    Sub getForm
(ByVal index)
 
       Panel1.Controls.Clear()
 
       forms(index).FormBorderStyle Windows.Forms.FormBorderStyle.None
        forms
(index).Dock DockStyle.Fill
        forms
(index).TopLevel False
        forms
(index).Show()
 
       Panel1.Controls.Add(forms(index))
 
   End Sub

End 
Class 

ما شاءالله تبارك الله

كالعادة مبدع الله يبارك فيك وجزاك خيرا 

الكود شغال تمام بس طلع لي مشكله في 

كود :
   Sub getForm(ByVal index)
       Panel1.Controls.Clear()
       forms(index).FormBorderStyle = Windows.Forms.FormBorderStyle.None
       forms(index).Dock = DockStyle.Fill
       forms(index).TopLevel = False
       forms(index).Show()
       Panel1.Controls.Add(forms(index))


هنا

كود :
 forms(index).FormBorderStyle = Windows.Forms.FormBorderStyle.None


وعندما مسحت هذا الكود 
كود :
 forms(index).FormBorderStyle = Windows.Forms.FormBorderStyle.None


اشتغل تمام 


شكراااااا Rolleyes
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كود حسابة سرعة التحميل Top King 0 23 منذ 2 ساعة مضت
آخر رد: Top King
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 65 16-05-19, 02:11 PM
آخر رد: حاتمي
  [VB.NET] مشكلة بسيطة اسامه الهرماوي 4 72 16-05-19, 01:53 PM
آخر رد: elgokr
  مشكلة توقف البرنامج محمد ابوخليل 4 108 16-05-19, 01:50 PM
آخر رد: elgokr
  [VB.NET] تصحيح كود بارك الله فيكم dubai.eig 9 202 16-05-19, 01:28 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 179 15-05-19, 06:08 PM
آخر رد: makky
  مشكلة في كود الحذف والحفظ في نفس الوقت ahmedfa71 9 145 14-05-19, 11:48 AM
آخر رد: ahmedfa71
  تغير شكل ايقونة الفورم في المشروع makky 1 77 11-05-19, 04:22 PM
آخر رد: elgokr
  مشكلة عند التصدير الى اكسل nooralcown 2 93 11-05-19, 02:30 PM
آخر رد: elgokr
  فيجوال ستوديو 2019 iso + مشكلة طلب التسجيل alfaiz678 4 115 05-05-19, 09:33 AM
آخر رد: alfaiz678

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم