Resoluution näyttö

Meitsi 02.04.03 07:55

näyttää resoluutiosi

 Tekstiversio  Arvo: 3 (3 ääntä)  Äänestä: +  -

Private Sub Command1_Click()
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
Label1.Caption = ScreenRes
End Sub

 

cubax04 13:25 23.1.04 
Toimii kuin pläkki...Ei paljoakaan hyötyä, mutta yksinkertainen.