La sparizione del form

di il
2 risposte

La sparizione del form

Un bel mistero.
Io ho appena cominciato un progettino in vb.net. Ho fatto un nuovo progetto e .net mi ha generato in automatico una cartella WindowApplication con le sue sottocartelle bin e obj ecc. Io ho rinominato il mio progetto come DistintaBase e la form come frmInsDisBas.
Ho fatto delle modifike alla form, inserendo due label e due combobox e allargandola ed ho inserito il seguente codice:
Private Sub frmInsDisBas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myConn As SqlClient.SqlConnection
Dim myStrConn As String

Try
myStrConn = buildConnString()
myConn = New SqlClient.SqlConnection
myConn.ConnectionString = myStrConn
myConn.Open()

Catch ex As Exception
MessageBox.Show(ex.Message, "Lettura del form")
End Try


End Sub
Private Function buildConnString()
Dim myStrConn As String

myStrConn &= "Workstation id=PC64;"
myStrConn &= "packet size=4096;"
myStrConn &= "user id=admin;"
myStrConn &= "Password= ;"
myStrConn &= "data source=PROLIANT1600;"
myStrConn &= "persist security info =False;"
myStrConn &= "initial catalog=NomeDataBase;"

Return myStrConn

End Function

Poi ho voluto fare "Avvia" per vedere come veniva la mia form, ma mi visualizza la form iniziale, quella vuota!!!!!!!!!!!!!!!!!!!!!
Eppure non mi da errori di alcun genere, ma la form visualizzata non è quella ke sto sviluppando

Questo è il codice generato quando ho inserito i miei quattro strumenti:
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.cmbCommessa = New System.Windows.Forms.ComboBox
Me.cmbModello = New System.Windows.Forms.ComboBox
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Label1.Font = New System.Drawing.Font("Century Gothic", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(144, 24)
Me.Label1.TabIndex = 0
Me.Label1.Text = "n° Commessa"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Label2.Font = New System.Drawing.Font("Century Gothic", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(8, 32)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(144, 24)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Modello"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'cmbCommessa
'
Me.cmbCommessa.Location = New System.Drawing.Point(168, 8)
Me.cmbCommessa.Name = "cmbCommessa"
Me.cmbCommessa.Size = New System.Drawing.Size(144, 21)
Me.cmbCommessa.TabIndex = 2
'
'cmbModello
'
Me.cmbModello.Location = New System.Drawing.Point(168, 32)
Me.cmbModello.Name = "cmbModello"
Me.cmbModello.Size = New System.Drawing.Size(144, 21)
Me.cmbModello.TabIndex = 3
'
'frmInsDisBas
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(776, 590)
Me.Controls.Add(Me.cmbModello)
Me.Controls.Add(Me.cmbCommessa)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "frmInsDisBas"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Inserimento Distinta Base"
Me.ResumeLayout(False)

End Sub

Come si vede gli elementi ci sono, ma è come se il form ke venisse letto fosse un altro, solo ke nn ce ne sono altri, perkè è l'unico ke ho fatto finora!
Qcuno di voi riesce a capire dove posso aver sbagliato?

2 Risposte

Devi accedere o registrarti per scrivere nel forum
2 risposte