三九宝宝网宝宝百科宝宝知识

VB中动态生成和删除WEBBROWSER控件方法

02月16日 编辑 39baobao.com

[请教高手:如何在窗口中动态增加或删除控件]用 Controls.Remove(控件) 动态删除控件。注意:在VB中只能动态删除那些动态添加的控件;不允许删除在窗体设计器上布置的控件! 示例如下: (1)创建一个VB工程 (2)在Form1上布置两个C...+阅读

比较随意的方法是,在你的窗口上画一个webbrowser控件,定义一个名字,假设是wb,然后(关键)在index属性上输入0。这样这个控件的名字就是wb(0)。在程序中可以用一个counter变量标记你现在有多少个wb。比如在你需要新建一个webbrowser的时候,就这样:

load wb(counter)

counter = counter + 1

这样做的坏处大大的有,比如你现在有80个wb,但你需要删除第40个,那么自然可以使用unload wb(40),set wb(40) = nothing来做到,但是这样你就需要一个额外的数组变量来存放空余的下标。比如emp(1) = 40, emp(2) = 45,以表示这些下标的wb(i)为空,不能使用。改进的方法是当你需要new一个wb的时候,先查看emp()中是否有空余的下标,优先使用这些下标来建立新的wb。

另一个比较严谨的方法是使用collection,即集合对象,而非使用数组。这样,穷举和删除一个wb的时候也会比较方便。我主要详细的写这个,如果你觉得不太复杂,我推荐你使用这个方法,如果有疑问,我乐意进行进一步的回答。

为了控件能在窗体上被正确显示出来,理所当然的,我们仍然需要按上述方法在窗体上画一个wb(0)。

为了能使用集合,首先我们先新建一个

set wbcol = new collection

当需要添加一个wb的时候

load wb(counter)

wbcol.add wb(counter), "item" + cstr(counter)

counter = counter + 1

当需要删除一个wb的时候(假设要删除wb(i))

set wbwb = wbcol("item" + cstr(i))

unload wbwb

set wbwb = nothing

wbcol.remove "item" + cstr(i)

set wb(i) = nothing

当需要穷举所有wb的时候

for each wbcol as wbwb

'''wbwb即是所有列举出来的wb()

next

当需要调用其中一个wb的时候(假设是wb(i))

set wbwb = wbcol("item" + cstr(i))

以下为关联文档:

如何在android程序中动态的增加自定控件protected void onCreate(Bundle savedInstanceState) { super.onCreate(savedInstanceState); ViewGroup vg = new LinearLayout(this);//只要得到一个ViewGroup对象就可以...

Android中动态生成控件要源代码最好附上逻辑解释求大侠视Button b = new Button(getApplicationContext()); b.setText("adb"); b.setTextColor(Color.RED); b.setTextSize(22); b.setBackgroundColor(Color.WHITE); b.setOnClickLis...

android开发如何在相对布局中动态添加控件首先setMargin方法不是RelativeLayout的方法,而是RelativeLayout.LayoutParams的方法。 你应该这麽用: RelativeLayout layout = new RelativeLayout(this); layout.setLayout...

求解:android中如何实现动态插入控件直接给你上代码吧,写了我半个小时,经过了我的测试了的~运行下就能看到结果了~关键的remove的时候有给你写注释~布局的layout文件内容:---------------------------------------...

vb中怎么添加控件1、首先打开VB6.0,选择“标准EXE”。 2、然后按下键盘上的“Ctrl+T”来选择部件。 3、在其中找到“Microsoft Multimedia Control 6.0”选项。 4、点击左侧的小框框来选中...

vb如何实现在程序中一次生成大批控件sh(1).TextBox".Shape", "Shape_" & i) 用法如, "TextBox_" & I) '.Visible = True txtField(I).Enabled = True Next I 引用 txtField(I);设置控件的容器、位置、宽、高 Set txtFie...

在VB中如何动态创建控件讲话要文明点,特别是问问题时 给你两种方法 Option Explicit Dim oCtrl As Object '使得控件可以响应事件 Dim WithEvents MyBtn As CommandButton Private Sub Form_Load()...

vb中如何通过代码创建控件Option Explicit Private WithEvents NewButton As CommandButton '通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private Sub Command1_Click() If NewButton...

VB中如何timer控件进行倒计时1、程序加载时操作: Private Sub Form_Load() '窗体加载时自动进行 Timer1.Interval = 1000 '设置计时周期为1秒注意默认计时单位为毫秒,即1/1000秒 2、定义一个时间变量。可以...

推荐阅读
图文推荐