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...)
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