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
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......
