testo3

annotazioni varie ed esempi di applicazione proprietà

gestione controllo con FRAME
tutti gli oggetti inseriti nella frame si comportano
come un unico blocco per certe istruzioni
ogni oggetto va creato internamente al frame e non si
può spostarlo fuori del frame


gestione Combobox e Listbox
Private Sub CommandButton1_Click()
ComboBox1.AddItem "marco"
ComboBox1.AddItem "luigi"
ComboBox1.AddItem "anna"
End Sub

Private Sub CommandButton2_Click()
ListBox1.AddItem "marco"
ListBox1.AddItem "carlo"
ListBox1.AddItem "alberto"
End Sub

Private Sub CommandButton1_Click()
ListBox1.RemoveItem 1
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
ListBox1.ListIndex = 1
End Sub

Private Sub CommandButton4_Click()
ListBox1.RemoveItem ListBox1.ListIndex
End Sub

Private Sub CommandButton5_Click()
ListBox1.ListIndex = 1
MsgBox ListBox1.List(1)
End Sub

Private Sub CommandButton6_Click()
ListBox1.AddItem "anna"
ListBox1.AddItem "luigi"
ListBox1.AddItem "carlo"
ListBox1.AddItem "luisa"
ListBox1.AddItem "alberto"
End Sub


Private Sub CommandButton3_Click()
ListBox1.RemoveItem 2
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub



Private Sub esegue_Click()
mx = esegue.Top
my = esegue.Left
MsgBox "posizione di Esegue " & mx & " " & my
End Sub

Private Sub Label1_Click()
mx = sposta.Left
my = sposta.Top
MsgBox "posizione di sposta" & mx & "  " & my
End Sub

Private Sub sposta_Click()
sposta.Left = 10
sposta.Top = 10
End Sub

gestione controllo Checkbox
Private Sub CheckBox1_Click()
CheckBox1.Value = 0
End Sub

Private Sub CheckBox2_Click()
CheckBox2.Value = vbchecked
End Sub

Private Sub CheckBox3_Click()
CheckBox3.Value = 2
End Sub


gestione controllo OptionButton
Private Sub OptionButton1_Click()
Rem assegnato valore con tabella proprietà
End Sub

Private Sub OptionButton2_Click()
OptionButton2.Value = 1
End Sub

Private Sub OptionButton3_Click()
OptionButton3.Value = True
End Sub

gestione progetto mediante diversi form
attivare Visualizza-gestione progetti
attivare Inserisci-userform
ripetere n volte Inserisci per avere n form in sequenza
il primo form serve come presentazione e menù
inserire controlli e istruzioni nei diversi form
nella Icona Finestre appara una lista dei form del progetto
ogni form può essere visualizzato come finestra o come codice
di istruzioni presenti
Da Visualizza-gestione progetti si può cliccare sul form
che si desidera visualizzare e poi selezionare F5

Private Sub CommandButton1_Click()
Load UserForm2
UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
Load UserForm3
UserForm3.Show
End Sub

Private Sub CommandButton3_Click()
Load UserForm4
UserForm4.Show
End Sub

Private Sub CommandButton4_Click()
Load UserForm5
UserForm5.Show
End Sub

Private Sub UserForm_Click()

End Sub

inserimento disegni da programma


Private Sub CommandButton1_Click()
CommandButton1.Picture = LoadPicture("c:/documenti/animagif/topo.gif")
End Sub

Private Sub Frame1_Click()
Frame1.Picture = LoadPicture("c:/documenti/animagif/topo.gif")
End Sub


Private Sub Label5_Click()
Label5.Picture = LoadPicture("c:\documenti\animagif\gatto.gif")
End Sub

Private Sub UserForm_Click()
UserForm1.Picture = LoadPicture("c:/documenti/animagif/topo.gif")
End Sub

ritorna