主题：【求助】窗体动态按钮如何同时设置图标与其按钮执行的代码

Dim cmd As New SQLCommand

cmd.CommandText = "Select 代码 From {权限} Where 账号 = '" & czy & "' and 工具栏名='" & e.Sender.Name & "' and 可用=true"

Dim code As String = cmd.ExecuteScalar

if code > "" then

dim n as string = e.form.name & e.Sender.Name 

Functions.remove(n )

Functions.Add(n ,Code)
Functions.Complie()

else

msgbox(“没有代码”)

end if