有如下表:新建一个窗口,增加一个按钮控件,按钮代码如下
Dim x As Integer = 0
Dim y As Integer = 0
For i As Integer = 0 To 3 '列出全部
If i Mod 2 = 0 Then
y += 30
x = 0
Else
x += 160
End If
Dim lbl As WinForm.label
lbl = e.Form.CreateControl("label" & i, ControlTypeEnum.label)
lbl.text = Tables("表A").Cols(i).Caption
lbl.Left = 10 + x
lbl.Top = 10 + y
lbl.Width = "600"
lbl.Height = "260"
e.Form.AddControl(lbl)
Next
输出如图
现在想要实现如下效果
在鼠标单击不同行时,显示当前行的人员信息,单个增加控件可以实现这种效果,但是想用动态增加控件的方式,不知道能不能实现,自己试没成功,求实现效果的代码