主题：第三方的代码 这个咋改? 也是论坛BIn的例子

这个我知道 问题 是下拉按钮 不知道怎么写了?

  原来的代码是这样的

Dim  ts As new Windows.Forms.ToolStrip
Dim  tsi As new Windows.Forms.ToolStripDropDownButton("页面集合")
Dim tsi1 As new Windows.Forms.ToolStripButton("页面1")
Dim tsi2 As new Windows.Forms.ToolStripButton("页面2")
Dim  tsi3 As new Windows.Forms.ToolStripButton("页面3")
AddHandler tsi1.Click, AddressOf Button_Click
AddHandler tsi2 .Click, AddressOf Button_Click
AddHandler tsi3 .Click, AddressOf Button_Click
tsi.DropDownItems.Add(tsi1)
tsi.DropDownItems.Add(tsi2)
tsi.DropDownItems.Add(tsi3)
ts.Items.Add(tsi)
e.Form.baseform.Controls.Add(ts)

AddHandler tsi1.Click, AddressOf Button_Click  这句代码

在这边如何改?

AddHandler ts.Click, AddressOf Button_Click        这个地方这么写?

  就是下拉按钮的代码如何赋予?

  我觉得也是对的,但是提示什么New  一类的出错 通不过.

此主题相关图片如下：qq拼音截图未命名.png

Dim  ts As New Windows.Forms.ToolStrip
ts.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
e.Form.baseform.Controls.Add(ts)
Dim tsi As System.Windows.Forms.ToolStripDropDownButton
Dim s As String
Dim drs As List(Of DataRow)
s = DataTables("表C").GetComboListString("第一列")
Dim Values() As String = s.Split("|")
For i As Integer = 0 To Values.Length -1
    tsi = New System.Windows.Forms.ToolStripDropDownButton(Values(i))
    drs = DataTables("表C").Select("[第一列] = '" & Values(i) & "'")
    For Each dr As DataRow In drs
        Dim tsi1 As  New System.Windows.Forms.ToolStripButton
        tsi1.Name =(dr("第二列"))
        tsi1.Text =(dr("第二列"))
        tsi.DropDownItems.Add(tsi1)
        AddHandler tsi1.Click, AddressOf Button_Click
    Next
    ts.Items.Add(tsi)
   ' AddHandler tsi.Click, AddressOf Button_Click
Next

  这样改了,我纠结死了原来就对的,是为了传递代码才改的.