sábado, 29 de abril de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Como centralizar formulários
Autor:  desconhecido ()
Publicado:  27/10/2005
Visitas: 5167
 
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

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

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