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 ......