Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]过来学习学习绘制，某一列我想让他变成好看的框框里面是文字，该怎么写代码？


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

主题：[求助]过来学习学习绘制，某一列我想让他变成好看的框框里面是文字，该怎么写代码？
帅哥哟，离线，有人找我吗？
zto001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1476 积分：10491 威望：0 精华：0 注册：2018/10/16 11:42:00 		[求助]过来学习学习绘制，某一列我想让他变成好看的框框里面是文字，该怎么写代码？  发帖心情 Post By：2019/3/25 17:30:00 [显示全部帖子]


[求助]

①、某一列我想让他变成好看的框框里面是文字，该怎么写代码？

上传不了文件，网上找了张图。类似于下面这样的按钮文字。外面是有颜色的框框，里面是有颜色的文字


图片点击可在新窗口打开查看

②、我想某一列类似于消息提醒一样有红色圆点内为数字，该怎么写代码？

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1476 积分：10491 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/3/26 10:00:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：图片.png
图片点击可在新窗口打开查看
就是做成这样的。表格里面做成这样

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


加好友 发短信
等级：六尾狐 帖子：1476 积分：10491 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/3/27 9:42:00 [显示全部帖子]

绘制方框标签
If e.Col.Name = "第一列"  Then
    e.StartDraw()

    Dim msg As String=e.Text 
    Dim tl As Integer = e.Text.Length
    If tl>0 Then
        Dim w As Integer = e.Width -4
        Dim h As Integer = e.Height-4
        Dim x As Integer = e.x + (e.Width - w)/2
        Dim n As Pen
        Dim fnt As New Font("楷体",9,FontStyle.Bold)
        Dim br As Brush
                    n = New Pen(Color.Green,2)
            br = New SolidBrush(color.Green)
     
        e.Graphics.DrawRectangle(n,x,e.y + 2,w,h)
        e.Graphics.DrawString(msg,fnt,br,x + 1,e.y + 4)
        e.Text = ""
        e.EndDraw()
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1476 积分：10491 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/3/27 9:44:00 [显示全部帖子]

画实心圆怎么画？
还有上面有个问题就是如果字长度超出单元格长度字会显示在外面，如果固定单元格长度，直接取部分显示的字，部分单元和会拉长又不好看。而且没有居中显示
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.16309 秒, 5 次数据查询