7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zxwitsme 2003-09-16
- 打赏
- 举报
可以参考一下
http://expert.csdn.net/Expert/topic/1715/1715731.xml?temp=.7850458
http://expert.csdn.net/Expert/topic/1715/1715731.xml?temp=.7850458
northwolves 2003-09-16
- 打赏
- 举报
为菜单“CAIDAN”添加一标题为空的子菜单“KONG”，INDEX设为0
Private Sub KONG_Click(Index As Integer)
MsgBox "YOU SELECT MENU No" & Index
End Sub
Private Sub Command1_Click()
On Error Resume Next
For I = 0 To 10
Load KONG(I)
KONG(I).Visible = True
KONG(I).Caption = "No" & I
Next
End Sub
Private Sub KONG_Click(Index As Integer)
MsgBox "YOU SELECT MENU No" & Index
End Sub
Private Sub Command1_Click()
On Error Resume Next
For I = 0 To 10
Load KONG(I)
KONG(I).Visible = True
KONG(I).Caption = "No" & I
Next
End Sub
yijiansong 2003-09-16
- 打赏
- 举报
UP
yas 2003-09-16
- 打赏
- 举报
难题，可能非调用API不可吧!关注!!!
szwwhui 2003-09-16
- 打赏
- 举报
up
