VB.NET - FUNZIONE CHE CLONA LO STESSO FORM N VOLTE (Codice)
Oggi vi voglio mettere a disposizione la funzione che apre N Form del tipo di Form1, per capirci meglio apre tante form uguali al tipo Form1 del progetto. Non so se può essere utile ma era interessante condividerlo con voi.
La funzione deve essere richiamata come :
ClonaMaxForm(10)
Cosi facendo apre 10 Form tutte uguali ma indipendenti fra loro.
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
Public Function ClonaMaxForm(ByVal MaxNumberForm As Integer) As Boolean
Try
For I As Integer = 0 To MaxNumberForm
Dim ClonaForm As New Form1
ClonaForm.Text = "Form " & I
ClonaForm.Show()
Next
Return True
Catch ex As Exception
Return False
End Try
End Function
Se volete invece personalizzare il vostro Form e aggiungere i vostri oggetti ad esempio un Bottone con il nome che volete e replicare la finestra (Form) per N volte lo potete fare utilizzando questa funzione.
La funzione deve essere richiamata come :
CloneNFormBotton(10)
Cosi facendo apre 10 Form con un bottone con il nome "Demo" , queste Form sono tutte uguali ma indipendenti fra loro.
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
Public Function CloneNFormBotton(ByVal MaxNumberForm As Integer) As Boolean
Try
Dim Posizione As System.Drawing.Point
Posizione.X = 100
Posizione.Y = 100
For I As Integer = 0 To MaxNumberForm
Dim Bottone As New System.Windows.Forms.Button
Bottone.Name = "Demo"
Bottone.Text = "Demo"
Bottone.Location = Posizione
Dim ClonaForm As New System.Windows.Forms.Form
ClonaForm.Controls.Add(Bottone)
ClonaForm.Text = "Form " & I
ClonaForm.Show()
Next
Return True
Catch ex As Exception
Return False
End Try
End Function
By ImaginSystems & Queen Gin