إقتباس :Additional information: Conversion from string "" to type 'Integer' is not valid.

(17-10-17, 12:30 PM)a.ahmed كتب :

PHP كود :

Public Class frmMain

    Dim forms() As Form = {Form1, Form2, Form3, Form4, Form5}
    Dim cCurrent As Integer = 0

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Panel1.Width = Me.Width
        getForm(cCurrent)
    End Sub


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        MovePrevious()
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 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