做个计划,写代码
http://www.foxtable.com/webhelp/scr/0657.htm
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name = Nothing AndAlso frm.text = "图片管理器" Then
Dim lbs = frm.Controls(0).controls(0).panel2.controls(0)
lbs.controls("Add").visible = False
lbs.controls("Open").visible = False
'Add
'Open
'Delete
'Clear
'NextRecord
'PrevRecord
'Manager
'Full
'Stretch
'SaveAs
'lblConnect
'lblUpdate
End If
End If