|
Jak jednocześnie wyczyścić wszystkie okienka tekstowe? |
|
|
|
Napisał Administrator
|
|
poniedziałek, 12 wrzesień 2005 |
OTO OWA PROCEDURKA :
Sub ClearAllTextBoxes(frmTarget As Form)
For i = 0 To (frmTarget.Controls.Count - 1)
Set ctrlTarget = frmTarget.Controls(i)
If TypeOf ctrlTarget Is TextBox Then
ctrlTarget.Text = ""
End If
Next i
End Sub
PARAMETREM PROCEDURY B?DZIE NAZWA FORMULARZA W KTÓRYM CZY?CIMY OKIENKA
ClearAllTextBoxes(frmTarget As Form)
P?TLA FOR B?DZIE WYKONYWANA TYLE RAZY, ILE JEST STEROWNIKÓW W FORMULARZU
B?D?CYM PARAMETREM PROCEDURY - For i = 0 To (frmTarget.Controls.Count - 1)
NAST?PNIE ZMIENNEJ ctrlTarget PRZYPISUJEMY STEROWNIK NUMER i - frmTarget.Controls(i)
JE?ELI JEST ON OKIENKIEM TEXTOWYM - If TypeOf ctrlTarget Is TextBox Then
NAST?PUJE CZYSZCZENIE ctrlTarget.Text = ""
I TAK W KÓ?KO, DO
CHWILI SPRAWDZENIA WSZYSTKICH STEROWNIKÓW.
TAK? PROCEDURK? MO?NA PRZYPISA? JAKIEMU? PRZYCISKOWI.
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
