從來只有高分辨率下為低分辨率環(huán)境開發(fā)程序的。既然開發(fā)環(huán)境是低分辨率,那就只能利用代碼初始化各個(gè)控件的位置和大小了。隨測(cè)隨改。

創(chuàng)新互聯(lián)建站是一家專注于網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)與策劃設(shè)計(jì),沅陵網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)建站做網(wǎng)站,專注于網(wǎng)站建設(shè)十余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:沅陵等地區(qū)。沅陵做網(wǎng)站價(jià)格咨詢:028-86922220
窗體初始化時(shí),設(shè)定Windowstate= maximized.
窗體分辨率仍然可以設(shè)成1920x1080。設(shè)計(jì)元素的時(shí)候拖拽,或者使用代碼初始化控件。
VB6.0可通過Height、Width 屬性設(shè)置窗體的外部高度和寬度,包括邊框和標(biāo)題欄。
既可以是設(shè)計(jì)時(shí)在窗體屬性窗口進(jìn)行設(shè)置,也可在程序運(yùn)行中通過代碼改變。
Height、Width 屬性示例:
這個(gè)例子在窗體被加載時(shí),將窗體的大小設(shè)置為屏幕大小的百分之七十五并使窗體居中顯示。要嘗試這個(gè)例子,請(qǐng)將代碼粘貼到窗體的聲明部分。然后按 F5
鍵并單擊窗體。
Private Sub Form_Click()
Width = Screen.Width * 0.75 ' 設(shè)置窗體的寬度。
Height = Screen.Height * 0.75 ' 設(shè)置窗體的高度。
Left = (Screen.Width - Width) / 2 ' 在水平方向上居中顯示。
Top = (Screen.Height - Height) / 2 ' 在垂直方向上居中顯示。
End Sub
改變大小用Me.Width和Me.Height就行了,樓主想問的是允許用戶改變無邊框窗體的大小吧?
Public Class Form1
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Int32, ByVal nIndex As Int32) As Int32
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As Int32) As Int32
Private Const GWL_STYLE As Int32 = -16
Private Const WS_THICKFRAME As Int32 = H40000
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Dim style As Int32 = GetWindowLong(Me.Handle, GWL_STYLE) Or WS_THICKFRAME
SetWindowLong(Me.Handle, GWL_STYLE, style)
End Sub
End Class
'窗體有個(gè)屬性ClientSize?是除去邊框及標(biāo)題欄部分的為工作區(qū)
'你要的應(yīng)該就是這個(gè)了。
'設(shè)置窗體工作區(qū)的大小?例為400*300
Me.ClientSize?=?New?Size(400,300)
網(wǎng)頁名稱:包含vb.net調(diào)試窗口大小的詞條
標(biāo)題來源:http://chinadenli.net/article38/dsihpsp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、網(wǎng)站維護(hù)、、用戶體驗(yàn)、外貿(mào)網(wǎng)站建設(shè)、電子商務(wù)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
移動(dòng)網(wǎng)站建設(shè)知識(shí)