|
|
Postada em 08/09/2004 08:22 hs
Bom dia, Gostaria de saber como eu faço para saber o tamanho da tela do usuário, ou seja, se o tamanho da tela é 800x600, 1024x768, 1280x1024 etc... Obrigado, Victor |
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 08/09/2004 08:39 hs
Tente este codigo sem API Dim Largura As Long, Altura As Long
Largura = Screen.Width / Screen.TwipsPerPixelX
Altura = Screen.Height / Screen.TwipsPerPixelY
MsgBox Largura & "X" & Altura ou com API Há uma forma simples de se obter a resolução de um monitor de vídeo usando uma API.
Declare Function GetSystemMetrics Lib "User" _
(ByVal nIndex As Integer) As Integer
'...
Sub Form_Resize()
dim xRes As Integer
dim yRes As Integer
xRes = GetSystemMetrics(0)
yRes = GetSystemMetrics(1)
If xRes < 1024 and yRes < 768 Then
'adicione seu código conforme queira
End If
End Sub
Este ultimo se encontra aqui na secao de dicas.
Para trocar a resolucao do video tem este
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
Righi
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 08/09/2004 08:40 hs
CONFIRA A DICA ABAIXO: Private Sub Obtem()
Dim xTwips%, yTwips%, xPixels#, YPixels#
xTwips = Screen.TwipsPerPixelX
yTwips = Screen.TwipsPerPixelY
YPixels = Screen.Height / yTwips
xPixels = Screen.Width / xTwips
msgbox( "A Resolução é: " & Str$(xPixels) + _
" por " + Str$(YPixels))
End Sub Testei aqui em casa e fuciona perfeitamente. Qualquer dúvida POSTE!
 Righi
Beginner Game Developer! duduchaves@uai.com.br
|
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 08/09/2004 08:42 hs
Na parte de projetos, miscelâneas tem um exemplo. ( Verifica e Altera a resolução de vídeo ) |
|
|
|
