1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Yazı Rengi Değiştirme


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Eklenecek Nesneler;
    CommonDialog1, Text1 (yazı buraya yazılacak)
    (Yazı yazıldıktan sonra text kutusuna tek tıklamada renk paleti geliyor ve istediğimiz rengi seçip yazı rengini değiştirebiliyoruz...)
    Kod:
    Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        CommonDialog1.Flags = &H2
        CommonDialog1.Action = 3
        If Button = 1 Then 'Sol Tus Basılı İse
            Text1.ForeColor = CommonDialog1.Color
        Else
            Text1.BackColor = CommonDialog1.Color
        End If
    End Sub