Newsgroup: it.comp.lang.visual-basic
Titolo: Help: Creare un Evento MouseHover su un DataRepeater Create su un Panel





Salve..Se qualche d'uno mi puo dare una dritta su 
come
creare un evento in un DataRepeater (una griglia creata su un 
pannello)
(Questo codice l'ho reperito in Rete)
Vi spiego cosa voglio 
fare:
---------------------------------
Si creano Due Form:
---
- il 
Primo chiamato Form1
- il Secondo chiamato Form2
---
- Nel Primo Form 
Ho Inserito un controllo Panel (Panel1)
- Nel Secondo Form ho messo due Label 
(Label1 e Label2)
---
-Nella Dichiarazione del Form1
si dichiara una 2 
Stringhe di Arrey di 5 Valori
Public Class Form1
Dim Valori() As 
String = {"Uno", "Due", "Tre", "Quattro", "Cinque"
}


Dim Valori2() as String =  {"Sei", "Sette", 
"Otto", "Nove", "Dieci"
}
-----
- In questa procedura 
si creano cinque(numero dei valori dell'arrey)  moduli(form2) da 

 inserire nel panel1 uno sotto l'atro:
Sub CreaPanel(ByVal 
Repeater As Panel, ByVal formType As Type, ByVal MyArray1 As Array, ByVal 
MyArray2 As Array), 'Creo il repeater'Questa variabile serve per potere 
affiancare un modulo di seguito all'altro
Dim ypos As Integer = 0 'Qui metto 
l'altezza della form del modulo
Repeater.Visible = False 'Imposto a false il 
repeater, per evitare che si veda che gli elementi sono inseriti nel panel uno 
alla volta
'Valuto quanti elementi ho nella mia matrice


'----------------------
   For index 
As Integer = 0 To MyArray.Length - 
1
              
'Creo il modulo da inserire nel 
panel
              
Dim Modulo As Form = DirectCast(Activator.CreateInstance(formType), 
Form)
             
'Questa riga permette di inserire la form del modulo dentro quella 
principale
             
Modulo.TopLevel = False          
'NOTA BENE! NON si tratta di form MDI 
Parent/Child!
             
'Creo l'oggetto che inserirà i dati nel 
modulo
              Dim 
Elemento As Object = MyArray.GetValue(index)


              
Dim Elemento2 as Object = 
MyArray2.GetValue(index)
              
'Posiziono il 
modulo
              
Modulo.Top = 
ypos
              
'----
             
'Preparo i vari 
moduli
                          
For Each Controllo As Control In 
Modulo.Controls
                                    
'Questa condizione è stata posta perchè voglio inserire i dari proprio in 
Label1


                                    
If Controllo.Name = "Label1" 
Then
                                   
Controllo.Text = 
Elemento
                                  
'Copio i 
valori
                                   
End If


                                    
If Controllo.Name = "Label2" 
Then
                                   
Controllo.Text = 
Elemento2
                                  
'Copio i 
valori
                                   
End If


                         
Next


              
'----
'E li inserisco nel panel
Repeater.Controls.Add(Modulo)
'Rendo il 
repeater visisbile
Modulo.Visible = True
'Prendo la psizione del modulo 
seguente
ypos += Modulo.ClientSize.Height
Next


'--------------------
'Quando tutto è pronto, lo 
rendo visibile
Repeater.Visible = True
End 
Sub
'-------------------------------------------------


- Adesso nell'evento Load del Primo Form Lancio la 
Procedura ed e fatto:




Private Sub Form1_Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load
Carico gli elementi nella form come DataRepeater
CreaPanel(Panel1, GetType(Form2), Iniziale) 'Form2 è il form 
da caricare in Panel1 come modulo di Repeater
End Sub


'-------------------------------------------------
Adesso im Mio 
Problema e Questo:
Quando si Lancia l'applicazione VOrrei Che Quando passo 
con il Mouse sopra Ogni label Mi Cambi Il BackColor
Qundi dovrei creare un 
vento all'interno del Panle1 per il passagio del mouse per ogni 
Item?
Quanlche d'uno mi puo aiutare:Grazie


 


 


 


 



 
  ha scritto nel messaggio 
news:49c62fdb$0$832$4faf...@reader5.news.tin.it
...
