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
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
