想用form1上的command,控制form2,按下时添加Mdi窗体,并在窗体上添加Webbrowser控件,(是动态而不是先visable=false再=true)
困扰很久不得期解....谢谢
想用form1上的command,控制form2,按下时添加Mdi窗体,并在窗体上添加Webbrowser控件,(是动态而不是先visable=false再=true)
困扰很久不得期解....谢谢
你要创建的是MDI字窗体吧,在MDI字窗体里添加一个WebBrowser控件
要打开一个网页的时候New 一个这个窗体
比如你的MDI子窗体名叫Form1
新开网页的代码就是
Dim frm As Form1
Set frm=New Form1
frm.Show
你这种方法我试过.通常叫"克隆窗体".但结果不是我想要的.因为在克隆前Web加载的网页,在克隆之后,无法正常加载...可以参照下面的例子.
Option Explicit Private WithEvents btnObj As CommandButton Private Sub btnObj_Click() MsgBox "这是动态添加的按钮。" End Sub Private Sub Form_Load() Set btnObj = Controls.Add("VB.CommandButton", "btnObj") With btnObj .Visible = True .Width = 2000 .Caption = "Hello" .Top = 1000 .Left = 1000 End With End Sub 这里使用WithEvent指定动态添加的控件的事件。
但WEB属于哪个类,我找不到.而且添加MDI我也不会.
用控件数组就可以了,在窗体设计状态下添加一个WebBrowser控件,设置其index为0(即为控件数组)
要创建的时候用Load WebBrowser1(i)