Volendo modificare le caratteristiche o il testo di un solo pulsante una volta creati , come faccio?
Riprendiamo il codice inviato da
fsurfing, e facciamo finta che
durante la divina creazione dei Button, vuoi modificare le dimensioni di un solo tasto rispetto agli altri, ad esempio il num. 50:
Public Sub Form_Open()
Dim pippo As Button
Dim i As Integer
Dim a, b As Integer
For i = 0 To 100
a = 100
b = 10
pippo = New Button(ScrollView1) As "MyButton"
If i = 50 Then a = 200
With pippo
.W = a
.H = b
.name = i
.Text = "pulsante " & i
End With
Next
End
Ora, più coerentemente con la tua domanda, mettiamo che,
dopo aver creato quei tasti, vogliamo modificare una o più caratteristiche di uno, ad esempio ancora del Button num. 50:
Public Sub MyButton_click()
Dim objB As Object
Message.Info("hai premuto il pulsante " & Last.Name)
' Prendiamo in considerazione tutti i Button
' presenti nella ScrollView:
For Each objB In ScrollView1.Children
' Quando il codice passa a considerare il Button (Children) num. 50, allora...
If objB.name = 50 Then
'...gli cambiamo qualche connotato...:
With objB
.W = 300
.Background = Color.Red
End With
Endif
Next
End
....come faccio ad eliminarli... ?
Ancora più semplice:
' Poiché fsurfing ha stabilito che quei Button
' sono posti nella ScrollView, e quindi ne sono "figli",
' determiniamo lo sterminio totale di tutti
' i "children" appartenenti alla ScrollView:
ScrollView1.Children.Clear
Print "Button, tutti kaput ! Ja !"
Questi sono i miei modesti suggerimenti
, ma certamente amici qui nel forum ben più esperti e capaci di me ti sapranno suggerire
metodi più brevi ed efficaci.
