sábado, 16 de dezembro de 2017
DVD
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #45
Função para cálculo de financiamento
Publicado: 29/05/2005

Dicas

Como centralizar formulários
Autor:  desconhecido ()
Publicado:  27/10/2005
Visitas: 5335
 
Public Sub use_pos(ByRef sForm As Form)
'Centralizar Formulário
On Error Resume Next
Dim t As String, l As String
Open App.Path & "\Config\" & sForm.Name & ".pos" For Input As #1
Input #1, t
Input #1, l
Close #1
t = Trim(t)
l = Trim(l)
sForm.Top = val(t)
sForm.Left = val(l)
t = "": l = ""
End Sub


Public Sub save_pos(ByVal sForm As Form)
On Error Resume Next
Call create_save_setting_dir
Open App.Path & "\Config\" & sForm.Name & ".pos" For Output As #1
Print #1, sForm.Top
Print #1, sForm.Left
Close #1
End Sub


Private Sub create_save_setting_dir()
On Error Resume Next
MkDir (App.Path & "\Config")
End Sub



  « Voltar

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco