none
請教DrawLine(VB2005) RRS feed

  • 問題

  • Dim g As Graphics = Me.PictureBox1.CreateGraphics
            g.DrawLine(Pens.Blue, 0, 100, 100, 110)

    因為角度的關係
    上面這段程式碼所畫出的直線會變成一截一截的
    看起來不是很直
    請問是否有甚麼方法可以讓他看起來直一點
    謝謝

    2007年5月21日 上午 10:30

解答

  • 建議你翻一下電腦圖學的基本概論。

    這是受螢幕解析度影響而決定,跟程式碼無關。

    2007年5月21日 下午 03:46
    版主

所有回覆

  • 建議你翻一下電腦圖學的基本概論。

    這是受螢幕解析度影響而決定,跟程式碼無關。

    2007年5月21日 下午 03:46
    版主
  • 我幫你測試過了,真的是會一截一截的

    用我這個試試吧,幫你畫出兩條嚕

      Dim g As Graphics = e.Graphics
            '建立黑筆
            Dim pen1 As New Pen(Color.Black)
            Dim top As Integer = 30
            Dim left As Integer = 30
            Dim width As Integer = Me.Width
            Dim height As Integer = Me.Height - 25 '取得表單高度(扣除標題列)
            Dim i As Integer = 0
            g.DrawLine(pen1, left, top, left, height - top)
            g.DrawLine(pen1, left, height - top, width - left, height - top)

     

    有個地方,Dim height As Integer = Me.Height - 25 這裡,為什麼要減25,這沒個一定,不過減25大概是扣除標題

    列之後的高度(做專案經驗得來= ="")

     

     

                                                                                                                                                                                   馬小玲
    2007年5月23日 下午 04:29