建站
咨詢
售后
建站咨詢
新聞中心
VB.NET設(shè)計中窗體大小設(shè)定
從來只有高分辨率下為低分辨率環(huán)境開發(fā)程序的。既然開發(fā)環(huán)境是低分辨率，那就只能利用代碼初始化各個控件的位置和大小了。隨測隨改。
成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供遂川企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站設(shè)計、做網(wǎng)站、成都外貿(mào)網(wǎng)站建設(shè)公司、H5開發(fā)、小程序制作等業(yè)務(wù)。10年已為遂川眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計公司優(yōu)惠進行中。
vb.net如何設(shè)置一個窗體為 寬度不能調(diào)節(jié)，而高度可以調(diào)節(jié)
vb.net設(shè)置一個窗體為，寬度不能調(diào)節(jié)，而高度可以調(diào)節(jié)，
代碼設(shè)置方法：
Dim form_width As Integer = Me.Width
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.Width form_width Then
Me.Width = form_width
'Debug.Print(TimeString "-" CStr(Me.Width))
End If
End Sub
vb.net，即Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z言。其在調(diào)試時是以解釋型語言方式運作,而輸出為EXE程序是是以編譯型語言方式運作?？梢钥醋魇荲isual Basic在.Net Framework平臺上的升級版本，增強了對面向?qū)ο蟮闹С帧?/p>
vb 中怎么獲取屏幕的長寬?。?/h2>
屏幕的長寬就是屏幕的分辨率，用下面的代碼實現(xiàn)，每句后面已添加注釋
Dim x As Integer, y As Integer '定義2個整數(shù)型變量
x = Screen.Width / Screen.TwipsPerPixelX '獲取屏幕寬度
y = Screen.Height / Screen.TwipsPerPixelY '獲取屏幕高度
上面是vb的語法
下面是Vb.Net的語法：
Dim x, y As Long '定義2個整數(shù)型變量
x = Screen.PrimaryScreen.Bounds.Width.ToString '獲取屏幕寬度
y = Screen.PrimaryScreen.Bounds.Height.ToString '獲取屏幕高度
vb.net中怎么可以讓窗體全屏顯示？
Me.Height = My.Computer.Screen.Bounds.Height
Me.Width = My.Computer.Screen.Bounds.Width
這是設(shè)置窗體的長寬和屏幕的分辨率一樣大小，相當于全屏。
如果Me.WindowState=FormWindowState.Maximized的話，只是單純的將窗體最大化，但恢復(fù)窗口大小后窗體的大小實際上還和原來一樣大。
VB.NET的特點
1.真正成為面向?qū)ο笠约爸С掷^承性的語言。
2.窗體設(shè)計器支持可視化繼承，并且包含了許多新的特性，比如自動改變窗體大小、資源本地化支持、數(shù)據(jù)類工具內(nèi)在支持XML數(shù)據(jù)。
3.直接建立在.NET的框架結(jié)構(gòu)上，因此開發(fā)人員可以充分利用所有.NET平臺特性，也可以與其他的.NET語言交互。
4.為Windows應(yīng)用程序提供了XCOPY部署，開發(fā)者不再需要為DLL的版本問題擔憂。
VB.NET中設(shè)定窗體大小
窗體初始化時，設(shè)定Windowstate= maximized.
窗體分辨率仍然可以設(shè)成1920x1080。設(shè)計元素的時候拖拽，或者使用代碼初始化控件。
VB.NET設(shè)置屏幕分辨率、顏色位數(shù)、刷新率 實例代碼
這篇文章介紹了VB.NET設(shè)置屏幕分辨率、顏色位數(shù)、刷新率
實例代碼，有需要的朋友可以參考一下
復(fù)制代碼
代碼如下:
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
分享名稱：vb.net屏寬,vb屏幕寬度
鏈接URL：http://www.dlmjj.cn/article/dsighsd.html
