[求助]可否设置Panel控件出现网格，Panel内控件导出为图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]可否设置Panel控件出现网格，Panel内控件导出为图片

共有3738人关注过本帖树形打印复制链接主题：[求助]可否设置Panel控件出现网格，Panel内控件导出为图片

小美菜

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

加好友

发短信

等级：三尾狐帖子：654 积分：4971 威望：0 精华：0 注册：2016/1/16 22:42:00

[求助]可否设置Panel控件出现网格，Panel内控件导出为图片 发帖心情

Post By：2021/6/14 18:57:00 [只看该作者]

[求助]可否设置Panel控件出现网格，Panel内控件导出为图片（整个Panel内控件）

有点蓝

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

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/14 21:47:00 [只看该作者]

网格可以设置背景图实现

Dim p As WinForm.Panel = e.Form.Controls("Panel1")

p.basecontrol.BackgroundImage = getimage("5SUR63KA0RBT0031.jpg")

p.basecontrol.BackgroundImageLayout = 3

保存图片参考

Dim panel1 = e.Form.Controls("Panel1").basecontrol

Dim NewBitmap As new Bitmap(cint(panel1.Width), cint(panel1.Height))

panel1.DrawToBitmap(NewBitmap, new Rectangle(0, 0,NewBitmap.Width, NewBitmap.Height))

NewBitmap.Save("D:\问题\控件\111.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

NewBitmap.Dispose()

小美菜

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

加好友

发短信

等级：三尾狐帖子：654 积分：4971 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2021/6/15 8:34:00 [只看该作者]

谢谢蓝老师，请问网格线图片有什么要求？5SUR63KA0RBT0031.jpg这个文件不是内置的吧，我用了，没有显示网格！另外，设置好网格线后要关闭网格线，又怎么操作？谢谢

有点蓝

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

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/15 8:49:00 [只看该作者]

改为自己需要的任意图片即可，上面代码仅仅是做个例子，不存在什么内置图片

关闭就清空背景图即可

小美菜

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

加好友

发短信

等级：三尾狐帖子：654 积分：4971 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2021/6/15 22:51:00 [只看该作者]

蓝老师，你的方法高出来的网格线，不是太好，我用下列方法，可是只有横线（也就是第二个for循环）可以显示，第一个显示一个点，我查过PnlDraw 、dWidth都是正常的，请问第一个for循环，为何绘制的是一个点

Dim PnlDraw As WinForm.Panel = e.Form.Controls("PnlDraw")

Dim dWidth As Integer = e.Form.Controls("CombWidth").text

For i As Integer = 1 To Tables(e.Form.Name & "_TblTitle").Cols.Count - 1

Dim oLine As WinForm.Line = e.Form.CreateControl("Lny" & i , ControlTypeEnum.Line)

oLine.LineColor = Color.White

oLine.TopMost = True

oLine.DashStyle = DashStyleEnum.Dot

oLine.SetBounds(i * dWidth , 0 , 1 , PnlDraw.Height )

PnlDraw.AddControl(oLine)

For i As Integer = 1 To Tables( e.Form.Name & "_TblTask").Rows.Count - 1

Dim oLine As WinForm.Line = e.Form.CreateControl("Lnx" & i , ControlTypeEnum.Line)

oLine.SetBounds(0 , i * 20 , PnlDraw.Width , 1)

oLine.TopMost = True

oLine.DashStyle = DashStyleEnum.Dot

oLine.LineColor = Color.White

PnlDraw.AddControl(oLine)

有点蓝

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

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/15 23:04:00 [只看该作者]

代码放在什么事件？

有点蓝

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

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/15 23:06:00 [只看该作者]

调试一下：

msgbox(PnlDraw.Height)

For i As Integer = 1 To Tables(e.Form.Name & "_TblTitle").Cols.Count - 1

Dim oLine As WinForm.Line = e.Form.CreateControl("Lny" & i , ControlTypeEnum.Line)

oLine.LineColor = Color.White

oLine.TopMost = True

oLine.DashStyle = DashStyleEnum.Dot

oLine.SetBounds(i * dWidth , 0 , 1 , PnlDraw.Height )

msgbox(oLine.Width & "," & oLine.Height)

PnlDraw.AddControl(oLine)

msgbox(oLine.Width & "," & oLine.Height)

小美菜

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

加好友

发短信

等级：三尾狐帖子：654 积分：4971 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2021/6/16 11:11:00 [只看该作者]

msgbox(i & "A," & oLine.LEFT & "," & oLine.ToP & "," & oLine.Width & "," & oLine.Height)

PnlDraw.AddControl(oLine)

msgbox(i & "B," & oLine.LEFT & "," & oLine.ToP & "," & oLine.Width & "," & oLine.Height)

结果显示：{1A，30，0，1，625；1B，30，0，1，625} {2A，60，0，1，625；2B，60，0，1，625}

从显示结果看没问题呀！代码放在一个Button的click事件中

有点蓝

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

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/16 11:16:00 [只看该作者]

把线条宽度设置大了看看

oLine.SetBounds(i * dWidth , 0 , 5, PnlDraw.Height )

下一主题 >> << 上一主题

主题：[求助]可否设置Panel控件出现网格，Panel内控件导出为图片