|
|
|
|
| |
|
|
|
|
| Fechando todos os forms |
Para
aplicações que não possuem MDI, código para fechar todos os formulários ativos
Sub UnloadAll ( )
Dim f As Integer
f = Forms.Count
Do While f > 0
Unload Forms(f-1)
If f =
Forms.Count Then Exit Do
f = f - 1
Loop
End Sub
.
|
|
|
|
| |
| Centralizando Forms |
Quando se deseja centralizar o próprio form, o parâmetro será a palavra Me e a
rotina será chamada do evento Form_Load.
Sub CenterForm (f
As Form)
Screen.MousePointer = 11
f.Top = (Screen.Height) / 2 - f.Height / 2
f.Left = Screen.Width / 2 - f.Width / 2
Screen.MousePointer = 0
End Sub
.
|
|
|
|
|
|
|
|
