动态添加按钮时,如何先判断是否存在,不存在才动态添加呢?
动态添加按钮时,如何先判断是否存在,不存在才动态添加呢?Private Sub cmdadd_Click()
Dim i As Integer
Dim cmdw As Integer
cmdw = cmd1(0).Width
cmd1(0).Visible = True
For i = 1 To 10
'如何先进行判断,如果动态添加了,就不加了
Load cmd1(i) '如果第二次运行就会出现,因为已经创建了
cmd1(i).Tag = "A" 'tag标记
cmd1(i).Top = cmd1(i - 1).Top
cmd1(i).Left = cmd1(i - 1).Left + cmdw + 10
cmd1(i).Visible = True
Next
End Sub