DUPLICAR OS FORM'S
Tenho o form1 todo configurado, código e botões. Agora quero duplicar esse form, que será o form2. O form 2 tera mais botões.
Como duplico os form's?
Você pode criar a herança dos formulários de que forma. Insira um novo form (Form2), agora clique no menutreeview a esquerda em showa ll files, e vai em Form2.designer.vb,
Aonde estiver escrito:
Citação:Inherits System.windows.forms.form
para
Citação:Inherits Form1
Ele irá herdar todas as propriedades, cojntroles e etc do form1 , e no seu caso especÃfico você coloca os dois botões necesários.
[txt-color=#e80000] ELE NÃO HERDERà CÓDIGOS APENAS VISUAL E CONTROLE [/txt-color]
Espero poder ter ajudado.
Dim Form2 As Form = New Form1
Form2.Show()Agora para colocar mais botões, você terá de criar um botão, parecido com a criação do form2, mas colocando New Button e
colocar suas propriedades, como: Visible = true, Top = 100, Left = 200...
Espero ter ajudado
Da-me este erro:
Error 1 Class [ô]teste.Form2[ô] must declare a [ô]Sub New[ô] because its base class [ô]teste.CB[ô] does not have an accessible [ô]Sub New[ô] that can be called with no arguments.
Eu acho que vc colocou no lugar errado, clica primeiro em show all files, clica no + no nome do formulario no seu caso Form1, depois nomedofrmulario.designer.vb e clica duas vezes vai abrir um código parecido com este.
Citação:Partial Class Autorizador
[txt-size=1][txt-color=#e80000] Inherits System.Windows.Forms.Form[/txt-color][/txt-size]
[ô]Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
[ô]Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
[ô]NOTE: The following procedure is required by the Windows Form Designer
[ô]It can be modified using the Windows Form Designer.
[ô]Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.SuspendLayout()
[ô]
[ô]Autorizador
[ô]
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(309, 106)
Me.Name = [Ô]Autorizador[Ô]
Me.Text = [Ô]Autorizador Farmácia Popular...[Ô]
Me.ResumeLayout(False)
End Sub
End Class
Altere para:
Citação:Partial Class Autorizador
[txt-size=1][txt-color=#e80000] Inherits FORM1[/txt-color][/txt-size]
[ô]Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
[ô]Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
[ô]NOTE: The following procedure is required by the Windows Form Designer
[ô]It can be modified using the Windows Form Designer.
[ô]Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.SuspendLayout()
[ô]
[ô]Autorizador
[ô]
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(309, 106)
Me.Name = [Ô]Autorizador[Ô]
Me.Text = [Ô]Autorizador Farmácia Popular...[Ô]
Me.ResumeLayout(False)
End Sub
End Class
Mas no Form2 não aparece nada
Desculpa é super simples de fazer, mais não estou conseguindo me expressar ao certo.