- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]LABL属性 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103091)
-- 发布时间：2017/6/30 13:31:00
-- [求助]LABL属性
老师，
为何代码设置labl的属性没有变化？
e.Form.Controls("Label1").BaseControl.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-- 发布时间：2017/6/30 13:36:00
--
顶
[此贴子已经被作者于2017/6/30 13:43:51编辑过]
-- 发布时间：2017/6/30 14:27:00
--
代码设置没问题，label控件 none 和 Fixed3D 看起来都是一样的。
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2017/6/30 15:55:00
--
Dim X As Integer=e.x+e.sender.Left + 10 ‘以前没这么写过，有点问题
此主题相关图片如下：qq图片20170630155416.png
-- 发布时间：2017/6/30 16:34:00
--
放错事件了吧，mouseMove事件
-- 发布时间：2017/6/30 16:43:00
--
的确是放错了。多谢了。