Arkadaşlar Msgbox' ta ki mesajları nasıl renkli yazdırabiliriz..

MsgBox "Hoşgeldiniz...", vbOKOnly, "KARŞILAMA MESAJI"


Hoşgeldiniz yazısı kırmızı renkte olacak, yardımlarınız için şimdiden teşekkürler..

Bu mümkün ancak bunun için system renklendirme özelliğinin geçici olarak değiştirilmesi gerekiyor. Aldığım kaynakta aksi taktirde tüm pencerelerde bu rengin görüleceği söylenmiş. Kod içerisinde son bölümde bu işlem yapılmıştır. 

Sitede şöyle bir kod var. Bunu denemedim ama eminim çalışacaktır.

Option Explicit



#If Win64 Then

    Private Declare PtrSafe Function GetSysColor Lib "user32" _

        (ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function SetSysColors Lib "user32" _

        (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

#Else

    Private Declare Function GetSysColor Lib "user32" _

        (ByVal nIndex As Long) As Long

    Private Declare Function SetSysColors Lib "user32" _

        (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

#End If



Private Const COLOR_WINDOWTEXT As Long = 8

Private Const CHANGE_INDEX As Long = 1



Public Sub RunMe()

   Dim defaultColour As Long



   'Store the default system colour

   defaultColour = GetSysColor(COLOR_WINDOWTEXT)



   'Set system colour to red

   SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed

   MsgBox "Incorrect", , "Your result is..."



   'Set system colour to green

   SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbGreen

   MsgBox "Correct", , "Your result is..."



   'Restore default value

   SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, defaultColour



End Sub

teşekkürler MEHMET Hocam. deneyip geri bildirimde bulunacağım.

Mehmet hocam malesef olmadı.

O zaman örneğimi inceleyin. Sizin için hazırladım.

Teşekkürler mehmet hocam iyi ki varsınız.