Oppure

Loading
09/11/09 21:01
GrG
fammi un esempio pratico di ciò che vuoi realizzare...
aaa
09/11/09 21:16
mizar1
Postato originariamente da GrG:

fammi un esempio pratico di ciò che vuoi realizzare...


ok
grazie per l'aiuto



For x = 1 To n_recuperi
Dim HScrollBar_perc As New HScrollBar
Dim label_perc As New Label
Controls.Add(HScrollBar_perc)
HScrollBar_perc.Visible = True
HScrollBar_perc.Left = 313
HScrollBar_perc.Top = y
HScrollBar_perc.Width = 90
HScrollBar_perc.Height = 21
HScrollBar_perc.Maximum = 200
HScrollBar_perc.SmallChange = 10
HScrollBar_perc.Name = "HScrollBar_perc" & x
Controls.Add(label_perc)
label_perc.Visible = True
label_perc.Left = 425
label_perc.Top = y + 3
label_perc.Width = 15
label_perc.Height = 21
label_perc.Text = "0"
label_perc.Name = "label_perc" & x
y += 25
Next

quando io premo un button nella form1 mi si apre una
form vuota e il codice qi sopra mi genera un tot di hscrollbar e label a seconda della variabile globale n_recuperi

adesso io visivamente ho la form2 aperta con un tot di hscrollbar e un tot di label
adesso mi piacerebbe se muovo le scrollbar dovrei avere i valori delle barre scritte nelle label



aaa
10/11/09 16:23
GrG
Postato originariamente da mizar1:

adesso mi piacerebbe se muovo le scrollbar dovrei avere i valori delle barre scritte nelle label


ora mi è chiaro...

purtroppo non so come si fa, e non so neanche se sia possibile...

quello che puoi fare è "appoggiarti" ad altre sub, in questo caso ad esempio in un timer metti tipo:

label1.caption = hscroll1.value
aaa
10/11/09 17:36
mizar1
ok grazie lo stesso
aaa
11/11/09 17:46
mizar1
non riesco a trovare niente c'e' nessuno che sa come posso fare?
aaa
11/11/09 18:07
GrG
magari se dici cos'è che devi fare si possono trovare strade alternative...
aaa
11/11/09 18:53
Alfonso
Tu dichiari 'non riesco ad andare avanti nel mio programma vb6

Ma sospetto che tu stia usando .Net

Perchè in vb6 non è permesso:

Dim HScrollBar_perc As New HScrollBar
HScrollBar_perc.Maximum = 200
HScrollBar_perc.Name = "HScrollBar_perc" & x
label_perc.Text = "0"
label_perc.Name = "label_perc" & x
y += 25


In Net il problema è facilmente risolvibile.
aaa
11/11/09 22:25
mizar1
si e .net

mi dispiace sono alle prime armi e sto cercando di imparare sul campo

e come posso risolverlo?
aaa