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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]LABL属性

共有1852人关注过本帖树形打印复制链接主题：[求助]LABL属性

blsu33

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]LABL属性 发帖心情

Post By：2017/6/30 13:31:00 [只看该作者]

老师，

为何代码设置labl的属性没有变化？

e.Form.Controls("Label1").BaseControl.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

blsu33

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/30 13:36:00 [只看该作者]

顶

[此贴子已经被作者于2017/6/30 13:43:51编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 14:27:00 [只看该作者]

代码设置没问题，label控件 none 和 Fixed3D 看起来都是一样的。

blsu33

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/30 15:02:00 [只看该作者]

哦怪不得看不出来

老师，

下面的代码为何没有在指定的位置显示FOXTABLE，难道是被覆盖了，怎么显示出来？

Label

MouseEnter事件代码

If e.Sender.name="Label1"

Dim fnt As New Font("黑体",20,FontStyle.Underline)

Dim X As Integer=System.Windows.Forms.Cursor.Position.X

Dim Y As Integer=System.Windows.Forms.Cursor.Position.Y

e.Form.Controls("Label1").Visible=False

Dim lbl As WinForm.Label=e.Form.CreateControl("放大",ControlTypeEnum.Label)

lbl.Visible=True

lbl.text = "Foxtable"

lbl.Left = x

lbl.Top = y

lbl.Font=fnt

e.Form.AddControl(lbl)

End If

[此贴子已经被作者于2017/6/30 15:06:10编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 15:48:00 [只看该作者]

mouseMove事件

Dim lbl As WinForm.Label
If e.form.controls.contains("放大") = False Then
    lbl=e.Form.CreateControl("放大",ControlTypeEnum.Label)
    lbl.Visible=True
    e.Form.AddControl(lbl)
End If

Dim fnt As New Font("黑体",20,FontStyle.Underline)
Dim X As Integer=e.x+e.sender.Left + 10
Dim Y As Integer=e.y+e.Sender.top + 10
lbl=e.Form.controls("放大")
lbl.Visible=True
lbl.text = "Foxtable"
lbl.Left = x
lbl.Top = y
lbl.Font=fnt