VB.NET設置屏幕分辨率、顏色位數、刷新率 實例代碼

這篇文章介紹了VB.NET設置屏幕分辨率、顏色位數、刷新率

清河網站建設公司創新互聯,清河網站設計制作，有大型網站制作公司豐富經驗。已為清河成百上千家提供企業網站建設服務。企業網站搭建\外貿網站制作要多少錢，請找那個售后服務好的清河做網站的公司定做！

實例代碼，有需要的朋友可以參考一下

復制代碼

代碼如下:

Private

Declare

Function

GetDeviceCaps

Lib

"gdi32"

(ByVal

hdc

As

Long,

ByVal

nIndex

As

Long)

As

Long

Private

Declare

Function

ChangeDisplaySettings

Lib

"user32"

Alias

"ChangeDisplaySettingsA"

(lpDevMode

As

Any,

ByVal

dwflags

As

Long)

As

Long

Private

Const

CCDEVICENAME

As

Long

=

32

Private

Const

CCFORMNAME

As

Long

=

32

Private

Const

DM_BITSPERPEL

As

Long

=

H40000

Private

Const

DM_PELSWIDTH

As

Long

=

H80000

Private

Const

DM_PELSHEIGHT

As

Long

=

H100000

Private

Const

DM_DISPLAYFLAGS

As

Long

=

H200000

Private

Const

DM_DISPLAYFREQUENCY

=

H400000

Private

Const

CDS_FORCE

As

Long

=

H80000000

Private

Const

BITSPIXEL

As

Long

=

12

Private

Const

HORZRES

As

Long

=

8

Private

Const

VERTRES

As

Long

=

10

Private

Const

VREFRESH

=

116

Private

Type

DEVMODE

dmDeviceName

As

String

*

CCDEVICENAME

dmSpecVersion

As

Integer

dmDriverVersion

As

Integer

dmSize

As

Integer

dmDriverExtra

As

Integer

dmFields

As

Long

dmOrientation

As

Integer

dmPaperSize

As

Integer

dmPaperLength

As

Integer

dmPaperWidth

As

Integer

dmScale

As

Integer

dmCopies

As

Integer

dmDefaultSource

As

Integer

dmPrintQuality

As

Integer

dmColor

As

Integer

dmDuplex

As

Integer

dmYResolution

As

Integer

dmTTOption

As

Integer

dmCollate

As

Integer

dmFormName

As

String

*

CCFORMNAME

dmUnusedPadding

As

Integer

dmBitsPerPel

As

Integer

dmPelsWidth

As

Long

dmPelsHeight

As

Long

dmDisplayFlags

As

Long

dmDisplayFrequency

As

Long

End

Type

Private

Sub

cmdChangeDesktopMode_Click()

Dim

DM

As

DEVMODE

With

DM

.dmPelsWidth

=

CInt(txtNewWidth.Text)

.dmPelsHeight

=

CInt(txtNewHeight.Text)

.dmBitsPerPel

=

CInt(txtNewColor.Text)

.dmDisplayFrequency

=

CInt(txtNewFreq.Text)

.dmFields

=

DM_PELSWIDTH

Or

DM_PELSHEIGHT

Or

DM_BITSPERPEL

Or

DM_DISPLAYFREQUENCY

.dmSize

=

LenB(DM)

End

With

If

ChangeDisplaySettings(DM,

CDS_FORCE)

Then

MsgBox

"錯誤!不支持此模式！"

End

If

End

Sub

Private

Sub

Form_Load()

txtOldWidth.Text

=

GetDeviceCaps(Me.hdc,

HORZRES)

txtOldHeight.Text

=

GetDeviceCaps(Me.hdc,

VERTRES)

txtOldColor.Text

=

GetDeviceCaps(Me.hdc,

BITSPIXEL)

txtOldFreq.Text

=

GetDeviceCaps(Me.hdc,

VREFRESH)

End

Sub

VBA中的關閉屏幕刷新：Application.ScreenUpdating = False，在VB.NET 中是怎么寫的？

可以參考下面的代碼：

Dim?myexcel As excel.Application

On Error Resume Next

Set myexcel = GetObject(, "Excel.Application")

myexcel.Application.ScreenUpdating = False

擴展資料：

VB.NET關鍵詞

Namespace包含類似或相關功能的類的集合

Class用來定義一個類用以存儲對象的屬性、方法和事件

Sub子過程，可以把要使用的數據以參數形式傳入，但不返回值

Function函數，同樣可以傳參數，但要求有返回值

Property屬性過程，設置或返回對象的屬性值

Nothing表示一個變量沒有值，與其他語言或數據庫中的null等價

參考資料來源：百度百科-Visual Basic .NET

vb.net 窗體自動刷新的問題

我的做法是先寫入一個圖片變量，然后再寫入到容器上。容器設置雙緩沖

還有你說的控件必須透明不太明白，可以直接在容器上繪圖，不需要控件，圖片的透明度可以用RGBA色的A值（透明度）來控制

我這個也是實時翻滾刷新的，不會閃！

文章名稱：vb.net畫面刷新 vbnet update
標題路徑：http://vcdvsql.cn/article4/doiepoe.html

成都網站建設公司_創新互聯，為您提供App設計、搜索引擎優化、網站制作、網站策劃、面包屑導航、自適應網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯