[求助]控件动态提示信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图，有文件的地方是用CreateControl动态增加的LABLE控件，增加时我也设置了提示代码，我在全局代码里设置了当鼠标移动控件提示，但预览是怎么不提示呀？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新增控件动态提示.table

此主题相关图片如下：未命名.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编辑过]

我的全局事件设置了：e.sender.showToolTip(e.sender.tooltip),就是取不到上面设置的值。 lbl.ToolTip = dr("工序") & "内容"

Dim B2 As WinForm.Button = e.Form.Controls("Button2")
B2.ToolTip = "提示内容2"
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. BorderStyle = BorderStyle.FixedSingle
    lbl.TextAlign = ContentAlignment.middlecenter
    lbl.AutoSize = True
    lbl.Text = dr("工序")
    lbl.Left = 100 + x
    lbl.Top = 100
    If dr("是否完成") = True Then
        lbl.BackColor = color.green
    End If
    e.Form.AddControl(lbl)
    i = i+1
    x = x + 100
    lbl.ToolTip = dr("工序") & "内容"
Next

谢谢狐爸，我明白了；之前赋值时控件还没有添加到窗口，所以设置了也没用；

哦原来是这样的终于学会了

主题：[求助]控件动态提示信息