当前位置: 源码素材网 » VB教程 » 详情页

VB绘制网格线,绘制网格

  •   时间:2019-03-11
  • 概述:网格

VB绘制网格,如截图所示,点击按钮即可绘制出网格线段,核心代码如下:

Private Sub Command1_Click()    '绘制
    Dim X, Y, i, j As Integer
    Picture1.Refresh
    Picture1.AutoRedraw = False
    Picture1.ForeColor = vbWhite
    If Txt_H.Text = "" Or Txt_W.Text = "" Then
       MsgBox "请输入要显示的网格的大小!", vbInformation, "源码爱好者"
    Else
        X = Int(Picture1.ScaleWidth / Val(Txt_W.Text))
        Y = Int(Picture1.ScaleHeight / Val(Txt_H.Text))
        For i = 1 To Val(Txt_H.Text) + 1
            Picture1.Line (X * i, 0)-(X * i, Picture1.Height - 1)
            Picture1.Line (0, Y * i)-(Picture1.Width - 1, Y * i)
        Next
    End If
End Sub
Private Sub Command2_Click()    '清空
    Picture1.AutoRedraw = False
    Picture1.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Unload Me
End Sub

绘制网格,在窗体中绘制出一定长宽的网格状几何线,像一张网一样。

    相关内容:

    相关声明:

      若“VB绘制网格线,绘制网格”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。