12/11/09 9:12
Alfonso
Prima di tutto aggiungi alle proprietà del controllo il tag per poterlo meglio individuare
HScrollBar_perc.Tag = x
Aggiungi l'handler che gestirà le variazioni di tutti gli HScrollBar
AddHandler HScrollBar_perc.Scroll, AddressOf ScrollHandler
Aggiungi anche la sub
Private Sub ScrollHandler(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)
Dim tempCtrl As New Control
For Each tempCtrl In Me.Controls
If tempCtrl.Name = "label_perc" & sender.tag.ToString Then
tempCtrl.Text = e.NewValue
End If
Next tempCtrl
End Sub
Il sender.tag.ToString ti dice l'indice della scrollbar coinvolta
e.value è il valore della scrollbar che viene attribuita alla label con il nome
"label_perc" & sender.tag.ToString
Probabilmente il ciclo di riconoscimento del controllo si può migliorare, ma non sono abbastanza esperto in net per dirti come
HScrollBar_perc.Tag = x
Aggiungi l'handler che gestirà le variazioni di tutti gli HScrollBar
AddHandler HScrollBar_perc.Scroll, AddressOf ScrollHandler
Aggiungi anche la sub
Private Sub ScrollHandler(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)
Dim tempCtrl As New Control
For Each tempCtrl In Me.Controls
If tempCtrl.Name = "label_perc" & sender.tag.ToString Then
tempCtrl.Text = e.NewValue
End If
Next tempCtrl
End Sub
Il sender.tag.ToString ti dice l'indice della scrollbar coinvolta
e.value è il valore della scrollbar che viene attribuita alla label con il nome
"label_perc" & sender.tag.ToString
Probabilmente il ciclo di riconoscimento del controllo si può migliorare, ma non sono abbastanza esperto in net per dirti come
Ultima modifica effettuata da Alfonso 12/11/09 9:16
aaa