Verificar resulucção de um utilizador..

[Psico_Mind]

Fiz uma aplicação para 800 x 600 ( pcs da escola sukam ) mas queria que cada vez que alguem abrisse numa resolucção diferente, dizesse. eu sei que o codigo para dizer a resulucção é este:

CR$ = Chr$(13) + Chr$(10)
TWidth% = screen.Width \ screen.TwipsPerPixelX
THeight% = screen.Height \ screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + CR$ + CR$ + Str$(TWidth%) + " x" + Str$(THeight%), 64, "Info"

Mas como é que a partir daqui verifco isso :| if twidth not 800 ? =x lol

 

[Mitch]

convinha perceber o que estás a escrever... :S

 

[zx-9r]

que raio de escrita

 

[[N]]

k linguagem é essa? com cereteza que se pesquisasses na net encontravas...

 

[Psico_Mind]

[N] foi a pesquisar na net que já encontrei esse codigo..
não encontrei a explicar especificamente como verificar..
o que não perceberam? bem, eu acho que o vb é o unico a usar msgbox mas não sei, não percebo nada disto

não entendi o que não perceberam.. que eu tenha visto só me enganei a escrever resolução ;p e pus 2 zz em vez de ss no dissesse.. escrevi a pressa, mas dai a não perceberem..

 

[Mitch]

que eu tenha visto só me enganei a escrever resolucção

e continuas a enganar-te

 

[Psico_Mind]

corrigido.. mas já basta de

 

[paperless]

Eu consegui perceber bem..

Se se deixassem de hipocrisias e tentassem ajudar o rapaz a sério perceberiam..

 

[Scalius]

Fiz uma aplicação para 800 x 600 ( pcs da escola sukam ) mas queria que cada vez que alguem abrisse numa resolucção diferente, dizesse. eu sei que o codigo para dizer a resulucção é este:

CR$ = Chr$(13) + Chr$(10)
TWidth% = screen.Width \ screen.TwipsPerPixelX
THeight% = screen.Height \ screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + CR$ + CR$ + Str$(TWidth%) + " x" + Str$(THeight%), 64, "Info"

Mas como é que a partir daqui verifco isso :| if twidth not 800 ? =x lol

Se entendi o que pretendes apenas tens que colocar este codigo (ou uma funcao que o chame) no arranque da aplicaçao e fazer:
if TWidth% <> 800 then
#Nao sei o q pretendes fazer quando a resolucao nao for 800x600
msgbox "Vao por a resolucao bem!!!!!"
end if

Espero que a sintaxe esteja correcta.


Se for outra a tua duvida peço que esclareças melhor.

Portem-se!