主题：引用第三控件下拉单击代码没用

窗口加载后AfterLoad事件代码如下：

Dim ct As New ButtonX
ct.text="打印报表"
ct.left=80
ct.Top=20
ct.width = 100
ct.Height = 23
Dim cI As New ButtonI
cI.Image = GetImage("新增.png")
cI.text="报表1"
ct.SubItems.add(cI)
Dim cI1 As New ButtonI
cI1.Image = GetImage("收回.png")
cI1.text="报表2"
ct.SubItems.add(cI1)
e.Form.Panel.Controls.Add(ct)
Dim cI3 As New ButtonI
cI3.Image = GetImage("不同意.png")
cI3.text="报表3"
ct.SubItems.add(cI3)
e.Form.Panel.Controls.Add(ct)

 

全局事件Click 代码哪儿不对，没作用呢

If e.Sender.name = "报表1" Then
    Forms("窗口2").Show
End If
If e.Sender.name = "报表2" Then
    Forms("窗口3").Show
End If
If e.Sender.name = "报表3" Then
    Forms("窗口4").Show
End If

 

 

引用第三方全局代码：

Public Interface ICommandSource
End Interface
Public Interface IButtonControl
End Interface
Public Class ButtonX
Inherits DevComponents.DotNetBar.ButtonX
Implements ICommandSource, IButtonControl
End Class

Public Interface IPersonalizedMenuItem
End Interface
Public Class ButtonI
Inherits DevComponents.DotNetBar.ButtonItem
Implements IPersonalizedMenuItem
End Class

这种只能在全局代码中绑定吗？

帮助这个有点看不懂，请老师写个我的这种呢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:下拉控件.rar

论坛朱老师指导下，弄出来了，需要的自己去优化吧

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:下拉控件1.rar

老师，请看看，为什么一样的代码，全局代码写到开发版里面就报错呢？

 

Public Interface ICommandSource

End Interface

Public Interface IButtonControl

End Interface

Public Class ButtonX

Inherits DevComponents.DotNetBar.ButtonX

Implements ICommandSource, IButtonControl

End Class

 

 

Public Interface IPersonalizedMenuItem

End Interface

Public Class ButtonI

Inherits DevComponents.DotNetBar.ButtonItem

Implements IPersonalizedMenuItem

End Class

 

Public Sub buttonItem1_Click(ByVal sender As Object, ByVal e As EventArgs)

Select Case sender.ToString()

    Case "报表1"

        Forms("窗口1").Show

    Case "报表2"

        Forms("窗口2").Show

    Case "报表3"

        Forms("窗口3").Show

End Select

End Sub

 

 

 

此主题相关图片如下：11.jpg