向 VB 母版询问删除控件的问题

似乎唯一的选择是从属性中选择它。

加载添加的控件可以通过卸载来消除，但在设计时添加的控件不能消除，并且可以在不显示的情况下 visual=false：

private sub command1_click()on error resume next

for each ctl in controlsif is picture1 then = falsenext

end sub

控制对象不能重复加载，错误信息很清楚

如果要解决： 1：属性调用错误：应该是slim游戏不是lbound j不能是0哪里的错误是

修改如下：如果 >=1 那么

for j = 1 to

unload label1(j)

unload text1(j)

unload text2(j)

next j

2. 添加错误处理：

private function newlist(newnum as integer)

on error goto er:

if >=1 then

for j = 1 to

unload label1( j)

unload text1(j)

unload text2( j)

next j

end if

for i = 1 to newnum

load label1(i)

load text1(i)

load text2(i)

label1(i).top = label1(i - 1).top + 360

text1(i).top = text1(i - 1).top + 360

text2(i).top = text1(i - 1).top + 360

label1(i).visible = true

text1(i).visible = true

text2(i).visible = true

next i

exit function

er:msgbox "装载损坏，销钉丢失"以前。

end function

您只需要记下已加载的小部件数组的下标，以防止加载小部件时出现重复，并且可以使用该数组进行记录。

控制数组的操作不需要 remim 语句，这很容易混淆。

1.例如，可以任意加载check1（1），加载check1（100），可以使用语句查看上一个会话，这里是100。

2. 您无法访问未添加或卸载的中间控件，因为它们不存在。 但是它们可以再次加载，例如，如果您使用 unload check1（1） 卸载添加的小部件元素，您可以再次加载它，或者您可以直接加载 check1（101）。

例如，删除中间控件并添加新控件时，新控件的索引不是缺少的空控件，而是最后一个索引。

假设当前最大索引为 6，删除 3。

然后再加一遍，就会生成数字 6 控件，这显然是错误的，因为数字 5 已经存在了，而你的目的是加数字 3，所以会出错，并解释为什么删除最后一个索引并重新添加它没有错。

溶液。 第一种是创建一个数组，将现有控件标记为 1，将不存在的控件标记为 0，并在创建或删除控件时检测此数组，以确定应创建哪个标签数组。

第二种使用错误判断：为正在测试的控件设置属性，然后捕获错误并进一步处理它，类似于第一个。 但是，它的效率较低。

问题是什么。

数据控件的记录集集中有 delete 方法，但是在空集中使用 delete 方法会导致错误，所以最好添加一个判断"name='" & "'"

if > 0 then

msgbox "删除成功"

end if

数据控制？ 查看映像是 ADODC 控件，使用的是 SQL 数据库还是 Access？

你没有说任何具体的事情。 数据控件可以删除记录，就像有删除方法一样。

REM 必须使用 Access 数据库（在 Office 中可用），这在 Excel 数据库中是无法实现的。

private sub command1_click()

dim k as integer

i = msgbox("是否删除'" & "'", vbyesno, "信息提示")

if i = 6 then

do while not

if "name").value = then

k = k + 1

end if

loopif k = 0 then

msgbox "未找到符合条件的记录", vbokonly, "删除记录"

elsemsgbox "删除" & k & "记录", vbokonly, "删除记录"

end if

end if

end sub

'做出判断。

if(<>"") then

e =if msgbox("是否要删除该项目”。" & e & "“什么？ ", 48 + 4) = 6 then

end if

elsemsgbox("您已选择 Vacant。 ")

end if

如果您只是处理 null 字符，则可以在删除它之前确定要删除的值是否为 null。

dim stra() as string, strb() as string

dim dels as integer, news as integer

stra = split(, vbcrlf)dels = 1 '您计划删除的数量。

news = ubound(stra) -1 - dels '新数组的数量。

redim strb(news)

for n = 0 to news

strb(n) = stra(n)

next join(strb, vbcrlf)

使用 split to vbcrlf 将字符分隔到数组中，接下来是读取前 n 个数组变量的内容并将它们重新分配给它们。

使用控件动态删除控件）。注意：在VB中，只有那些动态添加的控件才能动态删除; 不允许删除表单设计器上布置的控件！

下面是一个示例：1）创建一个VB项目。

2） 在 form1** 上放置两个 command（3） 表单。

option explicit

声明要动态添加和删除的控件。

dim x as label

--'动态添加标签控件。

--private sub command1_click()if x is nothing then

set x = "", "label1")150, 150

true "这是一个动态添加的标记"

trueend if

end sub

动态删除控件。

private sub command2_click()if x is nothing then exit subx

set x = nothing

end sub

private sub form_load()= "添加控件"

删除控件"end sub

4）运行。表单开始。

单击“添加控件”按钮。

单击“删除控件”按钮。

动态添加小部件有两种方式，一种是添加小部件，另一种是动态添加成员到已有的小部件组。

方法 1：将事件 cmd 调暗为 commandbutton

set cmd=""","cmd1")

之后，您可以设置 cmd1 的属性。

方法二：先在设计窗口创建一个控件数组成员，比如一个名为cmd1（0）的按钮，然后用load方法在程序中加载新的团队成员，比如load cmd1（1），load cmd1（2）...之后，您可以设置其属性。

乘以 15 是两个坐标单位的换算，VB 的默认坐标单位是 Tiwp （Ti），Ti 和像素的换算关系是：15 Ti = 1 像素。

删除：

删除控件：卸载 [object]（运行时）。