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.