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
二，可以直接用鼠标在Form1窗体右下角拖动，即可调整大小。
若你要让调试后的窗体全屏，找到Form1的Windowstate属性改成Maximizd。
我的回答希望对你有帮助~追问
是无框窗体
追答设置窗体的controlbox属性为false，设置窗体的FormBorderStyle 属性为Sizable，就可以改变窗体大小了。
追问不行啊
追答这样是可以的。具体情况你将程序和要求发到我邮箱67784270@qq.com。我来给你解决。
VB.NET鼠标拖动无边框窗体改变窗体大小
为了改变窗体的大小，需要添加一个Timer控件，以定时捕获鼠标在窗体中的位置。当鼠标位于窗体边缘时，改变鼠标的形状，以通知用户可以进行改变大小的操作。为此，将Timer控件的Interval属性设为100（即每过100毫秒检测一下鼠标位置），其他取默认值。在Form1的代码窗口中再添加下列两个函数，并定义两个自定义...
VB.NET改变无框窗体大小
改变大小用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 "use...
vb.net 无边框窗体的问题
设置窗体的text为空，设置窗体的controlbox属性为false，设置窗体的FormBorderStyle 属性为Sizable，就可以改变窗体大小了，并且可以在任务栏点击。
VB.NET中设定窗体大小
窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽，或者使用代码初始化控件。
vb.net能否通过代码使窗体最大化?
Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Set xlapp = CreateObject("excel.application")Set xlbook = xlapp.Workbooks.Open("路径和文件名 ")xlapp.Visible = True xlapp.WindowState = xlMaximized'***你要的应该就在这里 xlbook.activate End Sub ...
怎么用VB\/VB.net\/C#修改一个其他程序的窗口的边框样式?
\/\/\/ 使指定 「 <see cref="IntPtr"\/> 句柄」 窗体 边框样式变为无边框。 public static uint 无边框窗体(IntPtr 句柄) { uint style = API_窗口.GetWindowLong(句柄, GWL_STYLE);style &= ~WS_BORDER;style &= ~WS_THICKFRAME;return API_窗口.SetWindowLong(句柄, GWL_STYLE, style); ;...
vb.net none窗体移动
Public Class Form1 Private m_bDown As Boolean, m_stPTStart As Point Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown m_bDown = True m_stPTStart.X = e.X m_stPTStart.Y = e.Y End Sub Private Sub ...
VB.NET 拖动无边框窗体编程实例
As Point 以当前鼠标位置为基础 找出目标位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移动窗体 ...
求VBA中用户窗体(UserForm)如何自由调整大小~~~急
VBA的窗体的BorderStyle属性只有固定单边框样式 但是可以利用编写代码来实现自由调整大小Me.WidthMe.Height设置窗体宽高 tianqing20wen | 发布于2010-05-27 举报| 评论 1 0 UserForm不支持运行时调整大小,VB支持,VBA不支持 远风的梦想家 | 发布于2010-05-27 举报| 评论 0 0 ...
如何移动VB中的无边框窗体
1、无边框窗体也就是无标题栏窗体，对于这样的窗体移动需要编程实现。2、vb有两种办法实现，一直接编程实现，二调用windows API编程实现。3、这里示例直接编程实现：Option ExplicitDim BolIsMove As Boolean, MousX As Long, MousY As LongPrivate Sub Form_MouseDown(Button As Integer, Shift As ...
