如何动态添加Webbrowser及Mdi窗体
想用form1上的command,控制form2,按下时添加Mdi窗体,并在窗体上添加Webbrowser控件,(是动态而不是先visable=false再=true)
困扰很久不得期解....谢谢
想用form1上的command,控制form2,按下时添加Mdi窗体,并在窗体上添加Webbrowser控件,(是动态而不是先visable=false再=true)
困扰很久不得期解....谢谢
你这种方法我试过.通常叫"克隆窗体".但结果不是我想要的.因为在克隆前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我也不会.