Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]控件叠加


  共有2569人关注过本帖树形打印复制链接

主题：[求助]控件叠加
帅哥哟，离线，有人找我吗？
江南小镇
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/18 23:11:00 [只看该作者]

老师，好了代码重复声明了。

Dim txt2 As WinForm.TabControl

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/19 9:51:00 [只看该作者]

老师，添加标出的代码报错

Dim txt5 As WinForm.Panel
txt5 = e.Form.CreateControl("Panel3", ControlTypeEnum.Panel)
txt5.BackColor =  Color.Crimson               '背景颜色
txt5.BorderStyle = BorderStyle.Fixed3D      '边框样式
txt5.Dock = 5
For i As Integer = 1 To 5
    Dim r5 As WinForm.Control = Forms("分区面板").Controls("面板3" & i)
    r5.Top = 150
    r5.left = 150 + 100 * (i-1)
    r5.BaseControl.font = new Font("微软雅黑",12.5,FontStyle.Regular)
    r5.TextAlign = TextAlignEnum.TopCenter    
    txt5.AddControl(r5)
Next
e.Form.Controls("SplitContainer1") .Panel2.AddControl(txt5)
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1712 积分：11426 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/19 21:39:00 [只看该作者]

老师，动态生成按钮的这两个事件的代码怎样操作。


MouseEnter

鼠标进入控件的时候执行

If e.Form.Controls("SplitContainer1").Panel2.Collapsed = True Then

Else

    e.Sender.Width = 12

    e.Sender.Left = e.Form.Controls("SplitContainer1").Panel1.Width - 4

    e.Sender.TopMost = True

End If

MouseLeave

鼠标离开控件的时候执行。

If e.Form.Controls("SplitContainer1").Panel2.Collapsed = True Then

    e.Sender.Width = 12

    e.Sender.Left = e.Form.Controls("SplitContainer1").Panel1.Width - 12

    e.Sender.TopMost = True

Else

    e.Sender.Width = 4

    e.Sender.Left = e.Form.Controls("SplitContainer1").Panel1.Width

    e.Sender.TopMost = True

End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/19 21:52:00 [只看该作者]

回12楼，不是什么控件都有TextAlign属性，好像只有文本框和标签有
 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03613 秒, 4 次数据查询