Eseguire
una ricerca veloce nell' archivio delle risorse di Visual Basic
Italia®:
|
Preso
dall'archivio...
Premere il pulsante sotto per accedere direttamente ad un articolo
o ad un esempio preso in modo casuale dall'archivio.
|
Ultimo
e-book pubblicato:
 "INTRODUZIONE
AI CSS"
Lo scopo del CSS language è quello di controllare lo
stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile
esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno
di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli
di stile.
Prezzo: € 0.0.
|
Contatti.
Utilizzare l'email generica per domande relative al sito:
oppure scrivere
ad un responsabile di area.
Responsabile
del sito: >Andrea
Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini
|
|
|
|
|
| utilizzo di listBox |
piratabobo |
05/12/2004 |
Difficoltà:
Medio
|
|
salve
ho
la
necessita
di
inserire
in
una
listbox
tramite
un
pulsante
(command)
dei
dati
inseriti
in
tre
caselle
di
testo,
ma
non
riesco
a
farlo
questo
e
il
codice
che
sto
cercando
di
far
funzionare
ma
invano,
grazie
a
chiunque
mi
possa
aiutare.
Dim
MyArray(1,
3)
Private
Sub
CommandButton1_Click()
ListBox1.AddItem
(txt1.Value)
txt1.Value
=
""
End
Sub
Private
Sub
CommandButton2_Click()
'Ensure
ListBox
contains
list
items
If
ListBox1.ListCount
>=
1
Then
'If
no
selection,
choose
last
list
item.
If
ListBox1.ListIndex
=
-1
Then
ListBox1.ListIndex
=
_
ListBox1.ListCount
-
1
End
If
ListBox1.RemoveItem
(ListBox1.ListIndex)
End
If
End
Sub
Private
Sub
UserForm_Initialize()
ListBox1.ColumnCount
=
3
MyArray(1,
0)
=
""
MyArray(1,
1)
=
""
MyArray(1,
2)
=
""
ListBox1.List()
=
MyArray
CommandButton1.Caption
=
"Add
Item"
CommandButton2.Caption
=
"Remove
Item"
End
Sub
|
|
