none
要如何在按下一個Button之後,畫上100條直線? RRS feed

  • 問題

  • 要如何在按下一個Button之後,在PictureBox畫上100條直線?(任意的)
    (我的VB是2005的Express版)
    2009年9月4日 上午 11:02

解答

  • 在 PictureBox 上產生 Graphics 物件後,使用它的 DrawLine() 就可以畫線,畫多少條就呼叫多少次(當然繪製的點要不同才看的出來)。
    小人物一枚。
    • 已標示為解答 Sally150 2009年9月28日 下午 12:23
    2009年9月4日 上午 11:16
    版主
  • 可不可以給我程式碼?
    • 已標示為解答 Sally150 2009年9月28日 下午 12:23
    2009年9月4日 上午 11:21
  • HOW TO:在 Windows Form 上繪製線條
    http://msdn.microsoft.com/zh-tw/library/cyh3c8h8(VS.80).aspx

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
            Dim formGraphics As System.Drawing.Graphics
            formGraphics = Me.PictureBox1.CreateGraphics()
            formGraphics.DrawLine(myPen, 0, 0, 200, 200)
            myPen.Dispose()
            formGraphics.Dispose()
        End Sub

    參考以上...
    • 已標示為解答 Sally150 2009年9月5日 下午 02:19
    2009年9月4日 下午 01:28

所有回覆

  • 在 PictureBox 上產生 Graphics 物件後,使用它的 DrawLine() 就可以畫線,畫多少條就呼叫多少次(當然繪製的點要不同才看的出來)。
    小人物一枚。
    • 已標示為解答 Sally150 2009年9月28日 下午 12:23
    2009年9月4日 上午 11:16
    版主
  • 可不可以給我程式碼?
    • 已標示為解答 Sally150 2009年9月28日 下午 12:23
    2009年9月4日 上午 11:21
  • HOW TO:在 Windows Form 上繪製線條
    http://msdn.microsoft.com/zh-tw/library/cyh3c8h8(VS.80).aspx

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
            Dim formGraphics As System.Drawing.Graphics
            formGraphics = Me.PictureBox1.CreateGraphics()
            formGraphics.DrawLine(myPen, 0, 0, 200, 200)
            myPen.Dispose()
            formGraphics.Dispose()
        End Sub

    參考以上...
    • 已標示為解答 Sally150 2009年9月5日 下午 02:19
    2009年9月4日 下午 01:28