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

創(chuàng)新互聯(lián)建站是一家專注于網(wǎng)站建設、成都網(wǎng)站設計與策劃設計,沅陵網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)建站做網(wǎng)站,專注于網(wǎng)站建設十余年,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:沅陵等地區(qū)。沅陵做網(wǎng)站價格咨詢:028-86922220
窗體初始化時,設定Windowstate= maximized.
窗體分辨率仍然可以設成1920x1080。設計元素的時候拖拽,或者使用代碼初始化控件。
VB6.0可通過Height、Width 屬性設置窗體的外部高度和寬度,包括邊框和標題欄。
既可以是設計時在窗體屬性窗口進行設置,也可在程序運行中通過代碼改變。
Height、Width 屬性示例:
這個例子在窗體被加載時,將窗體的大小設置為屏幕大小的百分之七十五并使窗體居中顯示。要嘗試這個例子,請將代碼粘貼到窗體的聲明部分。然后按 F5
鍵并單擊窗體。
Private Sub Form_Click()
Width = Screen.Width * 0.75 ' 設置窗體的寬度。
Height = Screen.Height * 0.75 ' 設置窗體的高度。
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
'窗體有個屬性ClientSize?是除去邊框及標題欄部分的為工作區(qū)
'你要的應該就是這個了。
'設置窗體工作區(qū)的大小?例為400*300
Me.ClientSize?=?New?Size(400,300)
網(wǎng)頁名稱:包含vb.net調(diào)試窗口大小的詞條
標題來源:http://www.yijiale78.com/article38/dsihpsp.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、網(wǎng)站維護、、用戶體驗、外貿(mào)網(wǎng)站建設、電子商務
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)