Un obiect UserForm este o fereastră sau o casetă de dialog care face parte din interfața cu utilizatorul unei aplicații.
UserForm vă permite să creați ferestre sau casete de dialog în proiectul dvs. Pe formular, desenați și puteți vedea controalele.
Formele de utilizator au proprietăți care le definesc aspectul, cum ar fi poziția, dimensiunea, culoarea și aspectele comportamentului lor.
La dezvoltarea formularului:
Pentru a adăuga UserForm trebuie să facem același lucru când adăugăm un modul nou:
După aceea, vor apărea formularul (UserForm) și bara de instrumente (Toolbox):
Dacă nu vedeți fereastra Proprietăți (Properties), asigurați-vă că este afișată și apoi începeți prin a edita numele UserForm (pentru a o găsi cu ușurință mai târziu):
Un formular (UserForm) are propriile evenimente, la fel ca un registru de lucru sau o foaie. Pentru a adăuga un eveniment, faceți dublu clic pe UserForm.
Acum să creăm două evenimente pentru a vedea cum funcționează. Primul eveniment va seta dimensiunea inițială a lui UserForm, iar al doilea își va crește dimensiunea cu 50px când utilizatorul face clic.
Evenimentul UserForm_Initialize se va declanșa când pornește UserForm:
Private Sub UserForm_Initialize()
my_userform.Height = 100
my_userform.Width = 100
End Sub
Pentru a simplifica codul, putem folosi Me în loc de numele UserForm (deoarece acest cod se află în UserForm cu care lucrăm):
Private Sub UserForm_Initialize()
Me.Height = 100
Me.Width = 100
End Sub
Al doilea eveniment va avea loc atunci când utilizatorul face clic pe UserForm:
Private Sub UserForm_Initialize()
Me.Height = 100
Me.Width = 100
End Sub
Private Sub UserForm_Click()
Me.Height = Me.Height + 50
Me.Width = Me.Width + 50
End Sub
Pentru a rula UserForm într-o procedură, utilizați Show:
Sub show_userform()
my_userform.Show
End Sub