Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x As Integer = 20
Dim y As Integer = 20
Dim wb As Integer = 300
Dim hb As Integer = 200
Dim wd As Integer = Me.Width - 60
Dim hd As Integer = 200
Dim FontD As New Font("Calibri", 80, FontStyle.Bold)
Dim FontB As New Font("Calibri", 54, FontStyle.Bold)
Dim LblDisplay As New Label With {
.Size = New Size(wd, 200),
.Location = New Point(x, y),
.BorderStyle = BorderStyle.Fixed3D,
.BackColor = Color.LightGray,
.Font = FontD,
.TextAlign = ContentAlignment.MiddleRight
}
Controls.Add(LblDisplay)
Dim BtnMain As New Button With {
.Size = New Size(wb, hb),
.Location = New Point(x, y + hd + 5),
.BackColor = Color.DarkGray,
.Font = FontB,
.Text = "Main"
}
Controls.Add(BtnMain)
AddHandler BtnMain.Click, AddressOf BtnMain_Click
AddHandler BtnMain.MouseHover, AddressOf BtnMain_MouseHover
End Sub
Private Sub BtnMain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
LblDisplay.text = "MAIN" '=======> ERRORE <===========
End Sub
Grazie per le risposte …però, credo, siate stati un po' duri e malpensanti nel credere che non sapessi l'ABC.
Sicuramente l'errore è una stupidaggine ma che , in questo momento, non riesco proprio a capire.
Quando faccio riferimento alla Label “LblDisplay”, il suggeritore non la propone proprio. Ho provato ad assegnare il Text anche con Controls("LblDisplay").text = “Menu Principale” ma stesso effetto.
Alla fine, mentre sto scrivendo questo post, ho pensato alla proprietà Item della collection Controls ed ho risolto così:
Controls.Item(0).Text = "MENU PRINCIPALE"
Grazie e a presto.