Prezados Mestres
Eu uso a função ObterResolucaoTela mas meus formulário ficam no canto superior direito da tela e preciso centralizar.
Uso o Access 2007 em uma maquina Win7 de 64 bits
Function ObterResolucaoTela() As String
'By JPaulo ® Maximo Access
Dim PosicaoHorizontal As Integer
Dim R As RECT
Dim strHD As Long
Dim strValor As Long
strHD = GetDesktopWindow()
strValor = GetWindowRect(strHD, R)
ObterResolucaoTela = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
PosicaoHorizontal = CInt(R.x2 - R.x1)
Call MoveDimensoes(PosicaoHorizontal, 0, 0, 0)
End Function
Eu uso a função ObterResolucaoTela mas meus formulário ficam no canto superior direito da tela e preciso centralizar.
Uso o Access 2007 em uma maquina Win7 de 64 bits
Function ObterResolucaoTela() As String
'By JPaulo ® Maximo Access
Dim PosicaoHorizontal As Integer
Dim R As RECT
Dim strHD As Long
Dim strValor As Long
strHD = GetDesktopWindow()
strValor = GetWindowRect(strHD, R)
ObterResolucaoTela = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
PosicaoHorizontal = CInt(R.x2 - R.x1)
Call MoveDimensoes(PosicaoHorizontal, 0, 0, 0)
End Function