تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تصحيح الاستعلام التالي محمد اسماعيل 6 65 منذ 2 ساعة مضت
آخر رد: محمد اسماعيل
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 6 271 18-03-19, 09:16 AM
آخر رد: 5000
  مشكلة فى تحزيم البرنامج ؟ احمد خطاب 1 74 15-03-19, 08:18 PM
آخر رد: 5000
  مشكلة في إضافة الصنف بالباركود في الفاتورة Hamoody 3 105 12-03-19, 06:44 PM
آخر رد: elgokr
  حل مشكلة حاتمي 1 68 09-03-19, 07:31 PM
آخر رد: حريف برمجة
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 3 130 09-03-19, 12:41 AM
آخر رد: اباذر
  [VB.NET] مشكلة Data Type Mismatch in criteria expression basboos95 3 160 01-03-19, 04:19 PM
آخر رد: elgokr
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 9 307 26-02-19, 09:18 PM
آخر رد: mr_hso
  مشكلة في تصدير الداتا الى PDF alshandodi 3 129 22-02-19, 07:58 PM
آخر رد: elgokr
Photo مشكلة في تسطيب كريستال ريبورت عند العميل صالح حمادي 4 159 21-02-19, 01:34 PM
آخر رد: elgokr

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


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