如下图,有文件的地方是用
CreateControl动态增加的LABLE控件,增加时我也设置了提示代码,我在全局代码里设置了当鼠标移动控件提示,但预览是怎么不提示呀?
此主题相关图片如下:未命名.jpg
代码是写的Afterload事件里的。
Dim xm As String = DataTables("项目").DataRows(0)("项目")
Dim gx As String
Dim drs As List (of DataRow) = DataTables("工序").Select("项目 = '" & xm & "'" ,"工序")
Dim x,y,i As Integer '定义控件的位移大小
x = 0
y = 0
i = 1
Dim lbl As WinForm.Label
For Each dr As DataRow In drs
lbl = e.Form.CreateControl("lable" & i, ControlTypeEnum.Label)
lbl.AutoSize = True
lbl.Text = dr("工序")
lbl.ToolTip = dr("工序") & "内容"
lbl.Left = 100 + x
lbl.Top = 100
If dr("是否完成") = True Then
lbl.BackColor = color.red
End If
e.Form.AddControl(lbl)
i = i+1
x = x + 100
Next
[此贴子已经被作者于2013-3-3 22:43:38编辑过]