[VB.NET] TextBox custom con proprietà personalizzate

[raffaele.p]

Ho realizzato un TextBox customizzata ereditando da quella standard.


Come faccio nel'evento new del controllo che ho realizzato a passargli come BackColor un riferimento ad una variabile pubblica piuttosto che passargli direttamente il colore?

Es.:

vorrei fare

BackColor = c_Mia_Variabile_Colore

invece che

BackColor = Color.White

è Possibile?

Grazie

[oregon]

Non ho capito bene ... spiegati meglio ...

[raffaele.p]

Passo all'esempio pratico:

Questa è la parte di codice della mia classe con la quale creo la textbox personalizzata:

Public Class myTextGet
        Inherits System.Windows.Forms.TextBox

        Public Sub New()

            MyBase.New()

            Font = New System.Drawing.Font("Courier New", 10)
            HighlightColor = Color.Red
            Highlight = True
            DefaultTextColor = Color.Red
            DefaultText = "myTextGet"
            Text = "myTextGet"
            SelectedBackColor = Color.Yellow
            Width = 100
            BackColor = Color.White

        End Sub

Così tutto funziona correttamente e quando istanzio questa textbox avrò il backcolor=white come impostato ma in non vorrei impostarlo così in maniera fissa ma vorrei impostarlo con una variabile pubblica che venga passata nella form in cui istanzio la textbox.

Spero di essere stato + chiaro.
Grazie

[GhostFire]

Scusa, ma basta fare

Backcolor = variabile pubblica...

lo hai scritto tu stesso all'inizio...

[raffaele.p]

anche io lo pensavo ma non funziona.
Non mi accetta una variabile ma solo valori del tipo Color.xxxx

[GhostFire]

la variabile deve essere dichiarata come color...

Dim BackColor as Color

[raffaele.p]

Si l'avevo dichiara così e infatti non capisco come mai ma mi da ugualmente errore.

[oregon]

Puoi fare in questo modo

    Public Sub New()
        MyBase.New()

        Create(Color.White)
    End Sub

    Public Sub New(ByVal bColor As Color)
        MyBase.New()

        Create(bColor)
    End Sub

    Private Sub Create(ByVal bColor As Color)
        Font = New System.Drawing.Font("Courier New", 10)
        HighlightColor = Color.Red
        Highlight = True
        DefaultTextColor = Color.Red
        DefaultText = "myTextGet"
        Text = "myTextGet"
        SelectedBackColor = Color.Yellow
        Width = 100
        BackColor = bColor
    End Sub

[raffaele.p]

Grazie 1000.
Così funziona ma a me servirebbe di usare proprio una variabile in maniera diretta visto che poi la dovrei richiamare anche da altri eventi...comunque questo codice è già una svolta a cui non avevo pensato ora ci lavoro un po' su grazie ancora..

[oregon]

Non mi sembra opportuno lavorare con variabili pubbliche in un contesto OOP.

Usa i costruttori che ti ho suggerito in maniera opportuna ...