|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Como fazer para que uma tela sempre abra na mesma posição e tamanho de quando foi fechada
|
 |
|
|
|
Postada em 1/8/2003 por Ethan Hunt
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
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
|
|
|
|
|
