|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Abrir meu projeto na mesma Posição (posição do form, Altura e largura) que foi Fechado.
|
 |
|
|
|
Postada em 6/3/2007 por Edinei
neisjb@hotmail.com
Private Sub Form_Load()
Me.Left = GetSetting(App.Title, "Posição", "Esquerda", 1000)
Me.Top = GetSetting(App.Title, "Posição", "Superior", 1000)
Me.Width = GetSetting(App.Title, "Posição", "Largura", 6500)
Me.Height = GetSetting(App.Title, "Posição", "Altura", 6500)
End Sub
'OBSERVE AQUI ABAIXO É FORM UNLOAD
Private Sub Form_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Posição", "Esquerda", Me.Left
SaveSetting App.Title, "Posição", "Superior", Me.Top
SaveSetting App.Title, "Posição", "Largura", Me.Width
SaveSetting App.Title, "Posição", "Altura", Me.Height
End If
End Sub
|
|
|
|
|
