[VB. net 2015] Creazione Controllo Utente

[cyclope05]

Salve
eccomi di nuovo a chiedervi aiuto e spero sinceramente che qualcuno di voi possa aiutarmi perche' mi sono arenato e questo passaggio da vb6 a vb.net mi sta sembrando alquanto tosto
siccome devo creare diversi form tutti con le stesse impostazioni grafiche volevo crearmi un controllo per inserirlo in tutti i form cosi da fare velocemente.
Quello che vorrei creare e' un controllo contenente due command button che mi dovranno fare da:
- riduci il form
- chiudi il form

la parte grafica l'ho fatta e funziona... quello che non capisco e':

1 - come faccio a creare gli eventi click per i singoli bottoni?
2 - eventualmente come creo l'evento per poter inserire e/o cambiare la Caption? o meglio il Text in questa versione?

Per favore datemi una mano grazie conto su di voi

Roberto

[cyclope05]

Ok sono riuscito a mettere il testo in quella che sara' la barra di testa del mio form

quindi ho eseguito queste operazioni:
ho aggiunto un nuovo controllo utente
ho dato le dimensioni a forma di rettangolo
nel lato di destra ho posizionato due command button che simuleranno la chiusura e la riduzione ad icona
a sinistra una label per visualizzare il titolo del form

ho usato questo codice :



Imports System.ComponentModel


Public Class ControlBox
Inherits System.Windows.Forms.UserControl


'-------------------------------------------
'da qui creo il titolo del form
Private MioTitolo As String


Public Property Titolo() As String
Get
Return MioTitolo
End Get
Set(ByVal Value As String)
MioTitolo = Value
Label1.Text = MioTitolo
End Set
End Property


Public Overrides Property Text() As String
Get
Return Label1.Text
End Get
Set(ByVal Value As String)
Label1.Text = Value
End Set
End Property
'--------------FINE TITOLO DEL FORM

End Class

quindi fino a qui funziona ho aggiunto la voce nel menu delle proprieta' e quando la modifico si modifica al volo a video ... fin qui ora ci sono .....

Please qualcuno sa dirmi cosa fare per intercettare la pressione dei due button?
ho messo le proprieta' per fargli cambiare di colore quando il mouse prende lo stato sull'oggetto e anche questo funziona, ma non so come fare per far si che io possa impostare ora da codice nel form nuovo dove posiziono questo oggetto per farlo ridurre ad icona e chiudere....
spero di essermi spiegato e spero che qualcuno possa aiutarmi

[cyclope05]

Siete tutti in vacanza vedo beati voi eheheheh
vabbe' comunque ho visto che il mio controllo ha generato un comando per la pressione del button

ControlBox1.Button1.PerformClick()

perfetto fin qui... ora rimane il problema come faccio a far sapere al mio controllo quale e' il form che lo chiama?
mi spiego ... io per ridurre ad icona un form uso questo codice:

me.windowstate = formwindowstate.minimized

ma se lo scrivo cosi nel codice del controllo mi da errore sulla parte me.windowstate perche' si tratta di un controllo e non di una finestra .. stesso problema per il pulsante che deve chiudere il form.

[cyclope05]

Ok... never mind risolto anche questo problema da solo ... ormai qui a quanto pare me la canto e me la suono da solo


vediamo se almeno su questo qualcuno sa darmi una mano...

ho usato questo codice

Private TitoloX As String


Public Property CAPTION() As String
Get
TitoloX = "Prova Testo Etichetta"
Return TitoloX
End Get
Set(ByVal Value As String)
TitoloX = Value
Label1.Text = TitoloX


End Set
End Property

mi permette di avere nella casella proprieta dell'oggetto la voce CAPTION dove vado ad inserire cio' che voglio venga visualizzato come titolo del form sulla barra in alto....

cosi come ho scritto il codice quando si inserisce l'oggetto viene correttamente visualizzata sulla barra la scritta "Prova Testo Etichetta" e la stessa viene riportata anche nella casella delle proprieta' alla voce CAPTION ... il problema ora e'
se cambio il testo con Ciao Mondo ad esempio....
quando do invio ... la barra del titolo cambia correttamente ma nella casella della Caption viene riportato di nuovo "Prova Testo Etichetta"

dove sbaglio??

se commento nell'istruzione GET questa riga di comando:
TitoloX = "Prova Testo Etichetta"
quando si posiziona l'oggetto nella voce Caption non riporta nulla e se si inserisce un testo poi funziona correttamente... potreste dirmi non metterla.. ma non e' corretto perche' ho lo stesso problema su tutte le proprieta' compreso il font di partenza quindi vorrei che di default comparissero quelli che io ho deciso .....

pleaseeee help me

[cyclope05]

ok risolto anche questo bastava mettere il testo di partenza nella dichiarazione della variabile che ho cambiato da private a dim

Private TitoloX As String = "Mio testo di partenza"