É uma boa ideia. Seria necessário um código que descobrisse o tamanho da tela para depois reposicionar os elementos bem no centro. Vou pesquisar a respeito e se achar alguma opção, te falo.
Já descobri como achar a resolução de seu monitor. Coloque esse código em uma planilha qualquer e o execute. Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Sub Resolucao() Dim Res_H As Long Dim Res_V As Long Res_H = GetSystemMetrics32(78) Res_V = GetSystemMetrics32(79) MsgBox "A resolução horizontal é: " & Res_H & vbNewLine & _ "A resolução vertical é: " & Res_V End Sub Agora só preciso de tempo para fazer o formulário como comentou. Quando eu tiver algo pronto, te falo. Nilton Castro.
Obrigado Profº por compartilhar conhecimento.
Disponha, Paulo!
Muito bom! Obrigado!
Eu que agradeço, Paulo.
Como deixar os campos no centro da tela, pois os mesmos estão no canto superior esquerdo
É uma boa ideia. Seria necessário um código que descobrisse o tamanho da tela para depois reposicionar os elementos bem no centro. Vou pesquisar a respeito e se achar alguma opção, te falo.
Já descobri como achar a resolução de seu monitor. Coloque esse código em uma planilha qualquer e o execute.
Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub Resolucao()
Dim Res_H As Long
Dim Res_V As Long
Res_H = GetSystemMetrics32(78)
Res_V = GetSystemMetrics32(79)
MsgBox "A resolução horizontal é: " & Res_H & vbNewLine & _
"A resolução vertical é: " & Res_V
End Sub
Agora só preciso de tempo para fazer o formulário como comentou. Quando eu tiver algo pronto, te falo.
Nilton Castro.
Olha, já fiz a planilha. Só falta fazer o vídeo. Aguarde mais um pouco.
Confira o nosso vídeo onde os campos ficam no centro do formulário independente de seu tamanho.
ruclips.net/video/a50XjKKmuOU/видео.html
Nilton Castro