vb點(diǎn)虐 如何獲取屏幕分辨率從而設(shè)置窗體大小

Dim x, y As Long

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴，公司提供的服務(wù)項(xiàng)目有：空間域名、雅安服務(wù)器托管、營銷軟件、網(wǎng)站建設(shè)、北林網(wǎng)站維護(hù)、網(wǎng)站推廣。

x = Screen.PrimaryScreen.Bounds.Width.ToString

y = Screen.PrimaryScreen.Bounds.Height.ToString

在VB.NET中通過那個(gè)函數(shù)可以獲取當(dāng)前屏幕的分辨率?

您可以用下面給出這一小段代碼檢測當(dāng)前屏幕分辨率，然后根據(jù)結(jié)果作出反應(yīng)──例如，重新調(diào)整窗體大小以適應(yīng)用程序戶分辨率。

Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean

'

Dim lngTwipsX As Long

Dim lngTwipsY As Long

'

' convert pixels to twips

lngTwipsX = pixelWidth * 15

lngTwipsY = pixelHeight * 15

'

' check against current settings

If lngTwipsX Screen.Width Then

CheckRez = False

Else

If lngTwipsY Screen.Height Then

CheckRez = False

Else

CheckRez = True

End If

End If

'

End Function

Next, run the following code at the start of the program:

If CheckRez(640, 480) = False Then

MsgBox "Incorrect screen size!"

Else

MsgBox "Screen Resolution Matches!"

End If

如何在代碼中設(shè)置vb點(diǎn)虐 運(yùn)行初始界面與屏幕右上角對齊？

獲取屏幕大小寬和高 和初始化窗口的尺寸 屏幕減尺寸等于你想要的left值 和top值 即屏幕比你窗體高多少 寬多少就是你右對齊的初始值 右上角對齊top依舊為0

vb 中怎么取屏幕的長和寬

Screen.Width 是屏幕的絕對寬度，單位是twip（1twip=1/1440英寸）

Screen.Height 是屏幕的絕對高度，單位是twip

Screen.Width/Screen.TwipsPerPixelX 是屏幕的相對寬度，單位是像素pixel，其值根據(jù)分辨率大小而不同,TwipsPerPixelX是美像素有多少twip

Screen.Height/Screen.TwipsPerPixelY 是屏幕的相對寬度，單位是像素pixel