|
Dim ls As List(Of String) = DataTables("表A").GetValues("第一列", "第一列 is not null")
Dim t As Double = 0
Dim l As Double = 0
Dim m As Integer = ls.count Mod 3
For i As Integer = 0 To ls.Count - m - 1
Dim btn As WinForm.button
btn = e.Form.CreateControl("button" & ls(i), ControlTypeEnum.Button)
btn.Text = ls(i)
If i = 0 Then
t = 100
l = 0
Else If i Mod 3 = 0
t += 150
l = 0
Else
l += 220
End If
btn.width = 200
btn.height = 100
btn.Left = l
btn.Top = t
e.Form.AddControl(btn)
Next
Dim w As Double = (640 - (m-1)*20) / m
l = 0
t += 150
For i As Integer = ls.Count - (ls.count Mod 3) To ls.Count - 1
Dim btn As WinForm.button
btn = e.Form.CreateControl("button" & ls(i), ControlTypeEnum.Button)
btn.Text = ls(i)
btn.width = w
btn.height = 100
btn.Left = l
btn.Top = t
l += w + 20
e.Form.AddControl(btn)
Next
|
加好友 
发短信
Post By：2015/7/5 14:24:00 [显示全部帖子]
