none
[VB 2005] DrawString內的Brushes有沒有辦法動態的更改顏色 RRS feed

  • 問題

  • 各位老師好

    我今天想請問的是

     

    DrawString內的Brushes有沒有辦法動態的更改顏色

    例如

     

    程式碼區塊

     Dim P1g As Graphics = e.Graphics

    P1g.DrawString(Fix(X_String1), fontA, Brushes.White, x,y)

     

     

     

    這裡面的Brushes.White 不知有沒有辦法改顏色

    我想做一個按鈕是更改文字標籤顏色的按鈕來動態更改顏色

     

    謝謝各位老師

    2008年1月21日 上午 05:26

解答

  • Hi,

    不太確定你的"動態的"是要做到什麼樣的程度,下面程式碼可以參考看看

    程式碼區塊

    Dim B As New SolidBrush(Color.Blue)

     

        Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint

            Dim G As Graphics = e.Graphics

            G.DrawString("DrawString TEST", New Font("Arial", 14), B, 0, 0)

        End Sub

     

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            B.Color = Color.FromArgb(255, 155, 15, 0)

            Label1.Invalidate()

        End Sub

     

     

     

    2008年1月21日 上午 05:38
    版主

所有回覆

  • Hi,

    不太確定你的"動態的"是要做到什麼樣的程度,下面程式碼可以參考看看

    程式碼區塊

    Dim B As New SolidBrush(Color.Blue)

     

        Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint

            Dim G As Graphics = e.Graphics

            G.DrawString("DrawString TEST", New Font("Arial", 14), B, 0, 0)

        End Sub

     

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            B.Color = Color.FromArgb(255, 155, 15, 0)

            Label1.Invalidate()

        End Sub

     

     

     

    2008年1月21日 上午 05:38
    版主
  • 謝謝bauann老師

    我的問題解決了

    我現在可以更改文字的顏色了

    謝謝!

    2008年1月24日 上午 05:15