Controllo Textbox

martedì 22 luglio 2008 - 17.56

gabriel81 Profilo | Junior Member

Ciao a tutti, sono di fronte ad un comportamento strano...
Questa è la mia classe:

Public Class CampoTesto
Inherits System.Windows.Forms.TextBox

Private Sub OnMouse(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus

Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))

End Sub

Private Sub OffMouse(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
End Sub

End Class

Ho compilato e mi sono ritrovato il controllo nella Casella degli strumenti.
Creo un nuovo form, ci ficco dentro il componente, lo vedo nel designer, ma non funziona la proprietà Text.
Ovvero

Private Sub Bottone1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bottone1.Click
MsgBox(Me.CampoTesto1.Text)
End Sub

Mi restituisce un msgbox vuoto.
Da debug mi dice che il valore della proprietà è nothing...

What?

freeteo Profilo | Guru

ciao,
a parte che non capisco per quale motivo fai tutte le conversioni per settare il colore,ti basta passare 3 interi in quel metodo.
Cmq questa classe nel mio pc si comporta correttamente:
Public Class MioTextBox Inherits TextBox Private Sub OnMouse(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus Me.BackColor = System.Drawing.Color.FromArgb(255, 255, 192) End Sub Private Sub OffMouse(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus Me.BackColor = System.Drawing.Color.FromArgb(255, 255, 255) End Sub End Class

Prova a verificare se nel file "tuoTextBox.designer.vb" (se non lo vedi nella treeview della soluzione, c'è il pulstante "show all files") non ci sia qualche codice che sporca quella proprietà..

ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5