| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 图形编程 >> 实例分析正文
最新推荐 更多内容
VB.Net制表的实例
VB.Net制表的实例
作者:ilu    来源:乐博网整理     更新时间:2009-8-24

乐博网lob.cn提示:此代码运行环境为vb.net2008

VB.Net制表的代码:

Public Class Form1
    '设置制表位控制文本项的输出位置
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim MyText = " 姓名" & ControlChars.Tab & "测试字段1" & ControlChars.Tab & "测试字段2" & ControlChars.Tab & "测试字段3" & vbCrLf
        MyText = MyText + "小王" & ControlChars.Tab & "95" & ControlChars.Tab & "81" & ControlChars.Tab & "92" & vbCrLf
        MyText = MyText + "小陈" & ControlChars.Tab & "78" & ControlChars.Tab & "84" & ControlChars.Tab & "75" & vbCrLf
        MyText = MyText + "小东" & ControlChars.Tab & "84" & ControlChars.Tab & "76" & ControlChars.Tab & "82" & vbCrLf
        MyText = MyText + "小黑" & ControlChars.Tab & "85" & ControlChars.Tab & "92" & ControlChars.Tab & "66" & vbCrLf
        MyText = MyText + "小黄" & ControlChars.Tab & "83" & ControlChars.Tab & "91" & ControlChars.Tab & "75" & vbCrLf
        MyText = MyText + "乐博网" & ControlChars.Tab & "75" & ControlChars.Tab & "88" & ControlChars.Tab & "82" & vbCrLf
        Dim MyFontFamily As New FontFamily("宋体")
        Dim MyFont As New Font(MyFontFamily, 10, FontStyle.Regular, GraphicsUnit.Point)
        Dim MyRect As New Rectangle(25, 70, 280, 110)
        Dim MyBrush = New SolidBrush(Color.FromArgb(255, 0, 128, 255))
        Dim MyFormat As New StringFormat()
        Dim MyTabArray As Single() = {60, 80, 80}
        MyFormat.SetTabStops(0, MyTabArray)
        e.Graphics.DrawString(MyText, MyFont, MyBrush, MyRect, MyFormat)
        'Dim Pen = Pens.Gray
        'e.Graphics.DrawRectangle(Pen, MyRect)
    End Sub
End Class

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.Net显示Tree图像的实例
    VB.Net显示Forest图像的实例
    VB.Net创建自绘式按钮的实例
    VB.Net图像文件中装入图像的实例
    VB.Net图像文件添加透明文字的实例
    VB.Net图像文件旋转变换的实例
    VB.Net图像文件剪切变换的实例
    VB.Net图像文件缩放变换的实例
    VB.Net图像文件平移变换的实例
    VB.Net图像文件单色变换的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]