Dim zcdd As WinForm.Button
Dim Value As String = "我的项目|增加项目|保存清单|导出报价|导出选型|导出汇总"
Dim sps() As Char = {"|"}
Dim Names() As String = Value.Split(sps)
Dim s As Integer = 2
Dim t As Integer = 5
For i As Integer = 0 To Names.length - 1
If i <> 0 Then
If i Mod 2 = 0 Then
s = 2
t = t + 31
Else
s = s + 66.5
End If
End If
Dim nm As String = Names(i)
zcdd = Forms("主窗_菜单").CreateControl(nm, ControlTypeEnum.Button)
zcdd.Text = nm
zcdd.name = nm
zcdd.Width = 66
zcdd.Height = 30
'zcdd.Left = e.Form.Controls("菜单页面").Tabpages("客户信息").Width - i * (68)
zcdd.Left = 2 + i * (68)
zcdd.Top = e.Form.Controls("菜单页面").Tabpages("客户信息").Height - 90 e.Form.Controls("菜单页面").Tabpages("客户信息").AddControl(zcdd)
zcdd.ToolTip = zcdd.Text '动态提示
Next
理论是向下排列,实际是横向的
If i Mod 2 = 0 Then
s = 2
t = t + 31
Else
s = s + 66.5
End If
这个好像没生效
从底部返推 是哪里除了问题