Option Explicit Dim OldW&, OldH& Private Sub Form_Load() OldW = Me.Width: OldH = Me.Height End Sub
Private Sub Form_Resize() If Me.Width <> OldW Then Me.Width = OldW If Me.Height <> OldH Then Me.Height = OldH End Sub 谢了各位……我市初学者，想边框不可变，但是可以最小化按钮的！ minbutton = true, maxbutton = false boardstyle = 1 再加一行即可
Option Explicit Dim OldW&, OldH& Private Sub Form_Load() OldW = Me.Width: OldH = Me.Height End Sub
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......
