主题：[求助]过来学习学习绘制，某一列我想让他变成好看的框框里面是文字，该怎么写代码？

参考

http://www.foxtable.com/webhelp/scr/1493.htm

http://www.foxtable.com/webhelp/scr/1482.htm

要学会自己写代码

http://www.foxtable.com/webhelp/scr/1482.htm

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)
        Dim sf As new StringFormat
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center
        e.Graphics.DrawRectangle(n,x,e.y + 2,w,h)
        e.Graphics.DrawString(msg,fnt,Brushes.black,  new Rectangle(e.x, e.y, e.width, e.height), sf)
        e.Text = ""
        e.EndDraw()
    End If
End If