窗口变大控件也跟着变大！

Question

http://www.0554163.com/0.jpg
这个是图片大家看看啊！源码是Private Sub Form_Load()
WebBrowser1.Navigate ("localhost")
End Sub
Private Sub gb_Click()
End
End Sub
怎么实现啊！

Answer 1

WebBrowser1.Top= 20
  WebBrowser1.Left= 20  WebBrowser1.Width = me.Width - 40
  WebBrowser1.Height = me.Height - 40

Answer 2

上面的代码写在Form_Resize()里面

Answer 3

关机功能， 查找一个WINAPI吧， 不难做RESIZE 里要加一个 ON ERROR RESUME NEXT

Answer 4

'关机功能
Option ExplicitPrivate Sub Form_Load()
   App.TaskVisible = False
   Me.Hide
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   frmPWD.Show vbModal
   If frmPWD.txtPWD <> "test" Then
      Cancel = True
   End If
End SubfrmPWD为输入密码的窗体

Answer 5

注意：编译成Exe文件后才有效

Answer 6

不行啊能发一个源码让我学习下啊！[email protected]