重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
窗体初始化时,设定Windowstate= maximized.
成都创新互联公司专业提供成都机柜租用服务,为用户提供五星数据中心、电信、双线接入解决方案,用户可自行在线购买成都机柜租用服务,并享受7*24小时金牌售后服务。
窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽,或者使用代码初始化控件。
改变大小用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
从来只有高分辨率下为低分辨率环境开发程序的。既然开发环境是低分辨率,那就只能利用代码初始化各个控件的位置和大小了。随测随改。
简单一点的方式是,在MDI主窗体内添加一个picturebox控件,然后在这个picturebox中添加一个image控件。
Picture1的属性:
1.Align=top
2.Appearance=flat
3.BordeStyle=None
4.TabStop=false
Image1的属性:
1.Stretch=true
在MDI窗体的resize事件中添加如下代码:
Private Sub MDIForm_Resize()
Me.Picture1.Height = Me.Height
End Sub
在Picture1控件的resize事件中添加如下代码:
Private Sub Picture1_Resize()
Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height
End Sub
'窗体有个属性ClientSize 是除去边框及标题栏部分的为工作区
'你要的应该就是这个了。
'设置窗体工作区的大小 例为400*300
Me.ClientSize = New Size(400,300)
From1.Height = "100" '窗体高度
From1.Width = "100" '窗体宽度
From1.Location = New Point(500, 100) ’移动窗体(横坐标,纵坐标)