文件名称：VB 6.0 使用Line方法画网格线.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 05:13:31
VB源码-字符处理
VB 6.0 使用Line方法画网格线，文字下面的网格背景线，是基于VB中的Line方法绘制出来的，学习一下简单的VB绘图技巧，核心代码： Private Sub Form_Load() Show Scale (0, 0)-(10, 10) '自定义坐标系 BackColor = RGB(255, 255, 255) '设置窗体背景色 For i = 1 To 9 Line (0, i)-(10, i), QBColor(1) '画出九条横线 Line (i, 0)-(i, 10), QBColor(1) '画出九条竖线 Next i FontSize = 28 '设置属性 foreclor = QBColor(2) m = "开源爱好者" Form1.CurrentX = Form1.ScaleWidth / 2 - TextWidth(m) / 2 '水平居中 Form1.CurrentY = Form1.ScaleHeight / 2 - TextHeight(m) / 2 '垂直居中 Print m '在窗体*输出文字 End Sub 绘制的网格线效果请参见下图所示。
【文件预览】：
srcfans.com
----Line方法画网格线()
--------Form1.frm(1015B)
--------E309.vbw(50B)
--------MSSCCPRJ.SCC(189B)
--------E309.vbp(684B)