Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto-Creare User Control

Salve ..Avrei bisogno di una mano nel risolvere uesto problema.
------------------
Sono alle prime armi e se sbaglio scusatemi in anticipo.
sto crando un UserControl in Vb.net 2008
dove devo inserire un testo in verticale con un immagine di sfonto.
allora io sono riuscito a creare l'user control
e sono riuscito a creare il testo in verticale facendo cosi:
'**************************
Public Class ButtonVertical
'-----
Private text_Vert As String
Private font_vertical As Font
Private imageLista As ImageList
Private image_Key As ImageList.ImageCollection
'***************************
Sub New()
'-----
' Chiamata richiesta da Progettazione Windows Form.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a 
InitializeComponent().
'-----
My_Text = "Sez.Principale"
'-----
Dim fontFamily As New FontFamily("Microsoft Sans Serif")
My_Font_Vert = New Font(fontFamily, 10, FontStyle.Bold, GraphicsUnit.Point)
'-----
End Sub
'*******************************
' Ho creato le proprieta del testo, del font
'-----------
Public Property My_Text() As String
  Get
    Return text_Vert
  End Get
Set(ByVal value As String)
   text_Vert = value
   Me.Refresh()
End Set
End Property
'--------
Public Property My_Font_Vert() As Font
   Get
      Return font_vertical
  End Get
  Set(ByVal value As Font)
      font_vertical = value
      Me.Refresh()
  End Set
End Property
'---------
'*************************
Private Sub UserControl1_Paint(ByVal sender As Object, ByVal e As 
System.Windows.Forms.PaintEventArgs) Handles Me.Paint
'------------
Dim pointF As New PointF(5, 30)
Dim stringFormat As New StringFormat()
Dim solidBrush As New SolidBrush(Color.FromArgb(255, 0, 0, 255))
stringFormat.FormatFlags = StringFormatFlags.DirectionVertical
e.Graphics.DrawString(My_Text, My_Font_Vert, solidBrush, pointF, 
stringFormat)
'------------
End Sub
'--------
End Class
'**************************
Quasto codice sembra funzionare
adesso il mio  problema e cercare di caricare un immagine di sfonto al 
passaggio del mouse sopra il controllo
magari creando un image list
pero ho provato con l'image list ma non sono riuscito a capire come 
inserirlo nelle propieta del controllo
qualche d'uno mi puo da una mano?
Grazie...

 Grazie...
Aggiungi queste righe:
Private Sub UserControl1_MouseEnter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.MouseEnter
    Me.BackgroundImage = ImageList1.Images(0)
End Sub
Private Sub UserControl1_MouseLeave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.MouseLeave
    Me.BackgroundImage = Nothing
End Sub
La prima riga dice che appena il mouse si sposta sul controllo, deve
essere impostata l'immagine di sfondo. La seconda fa esattamente il
contrario.
Puoi regolare lo stile dello sfondo sfruttando
Me.BackgroundImageLayout.
E scommetto che sei una scheggia a digitare, ma a volte la velocità fa
male... Si, sono un po' fissato con l'italiano corretto, lo ammetto.
Ciao

 ha scritto nel messaggio 
news:05d56847-1e10-4c5f...@p4g2000vba.googlegroups.com...

Aggiungi queste righe:



E scommetto che sei una scheggia a digitare, ma a volte la velocit� fa


 Ma se io volessi creare una proprieta Imagelist all'interno del controllo?
Puoi farlo con una singola linea, così:
Friend _ImageList As New ImageList
Ma io preferirei utilizzare le proprietà, qualche riga di codice in
più non fa male.
Private _ImageList As New ImageList
Friend Property ImageList() As ImageList
    Get
        Return _ImageList
    End Get
    Set(ByVal value As ImageList)
        _ImageList = value
    End Set
End Property
Ciao

 Ma se io volessi creare una proprieta Imagelist all'interno del controllo?
Puoi farlo con una singola linea, cos�:
Friend _ImageList As New ImageList
Ma io preferirei utilizzare le propriet�, qualche riga di codice in
pi� non fa male.
