Question

我使用vb .net创建了一个小的无边框表单。表单包含三个方形按钮。表格的大小是（93,31）。在表单的设计过程中一切都很好，但是当我运行程序时，表单的大小会增加到某种程度（98,34）。我甚至在表单的autosize属性之间切换true和false，以检查是否是问题的原因但是dint help。
如何阻止表单调整大小？

修改
我通过将表单的FormBorderStyle属性设置为None

来使表单无边框

这是代码

Public Class OSD_Dialog

Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer

' The folllowing three subs are helpfull in making the form dragable

  Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    drag = True
    mousex = Windows.Forms.Cursor.Position.X - Me.Left
    mousey = Windows.Forms.Cursor.Position.Y - Me.Top
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    If drag Then
        Me.Top = Windows.Forms.Cursor.Position.Y - mousey
        Me.Left = Windows.Forms.Cursor.Position.X - mousex
    End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    drag = False
End Sub

'The following sub is helpful in creating an outline on the border of the form

 Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    MyBase.OnPaintBackground(e)

    Dim rect As New Rectangle(0, 0, Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)

    e.Graphics.DrawRectangle(Pens.White, rect)
End Sub

Private Sub OSD_Dialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TopMost = True
    Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)

    Me.BackColor = Color.Red
    TransparencyKey = BackColor

End Sub

Answer 1

将此添加到您的Form_Load事件：

Me.Size = New Size(93, 31)

同时确保您在设计时将AutoScaleMode设置为“无”

border in form在运行时在vb .net中自动调整大小

1 个答案: