SETTING

DEIVITESOUZA 01/06/2005 10:30:48
#86334
olha eu fiz um sistema uma vez e usei o setting

no load e upload !!! assim
ele grava a possição do form eo tamanho tambem dentro do regedit

e mais ou menos assim me.top setting alguma coisa assim

mas eu nao me lembro como fiz e copie de um livro mas nao tenho mais

qualquer coisa entre em contato comigo deivitesouza@hotmail.com
JEAN.JEDSON 01/06/2005 10:41:42
#86342
tenta assim:


Private Sub Form_Load()
Me.Top = GetSetting("NomeDoSistema", "Registro", "Top")
Me.Left = GetSetting("NomeDoSistema", "Registro", "Left")
Me.Height = GetSetting("NomeDoSistema", "Registro", "Height")
Me.Width = GetSetting("NomeDoSistema", "Registro", "Widht")
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "NomeDoSistema", "Registro", "Top", Me.Top
SaveSetting "NomeDoSistema", "Registro", "Left", Me.Left
SaveSetting "NomeDoSistema", "Registro", "Heigth", Me.Height
SaveSetting "NomeDoSistema", "Registro", "Width", Me.Width
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar