十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
从来只有高分辨率下为低分辨率环境开发程序的。既然开发环境是低分辨率,那就只能利用代码初始化各个控件的位置和大小了。随测随改。
创新互联建站是一家专注于网站建设、成都网站设计与策划设计,沅陵网站建设哪家好?创新互联建站做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:沅陵等地区。沅陵做网站价格咨询: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 是除去边框及标题栏部分的为工作区
'你要的应该就是这个了。
'设置窗体工作区的大小 例为400*300
Me.ClientSize = New Size(400,300)