AccessTr.neT
Msgbox Yazısını Renkli Yapma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Msgbox Yazısını Renkli Yapma (/konu-msgbox-yazisini-renkli-yapma.html)

Sayfalar: 1 2


Msgbox Yazısını Renkli Yapma - te-kin - 06/07/2019

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


Re: Msgbox Yazısını Renkli Yapma - mehmetdemiral - 06/07/2019

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



Cvp: Msgbox Yazısını Renkli Yapma - te-kin - 06/07/2019

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


Cvp: Msgbox Yazısını Renkli Yapma - te-kin - 06/07/2019

Mehmet hocam malesef olmadı.


RE: Msgbox Yazısını Renkli Yapma - mehmetdemiral - 08/07/2019

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


Cvp: Msgbox Yazısını Renkli Yapma - te-kin - 11/07/2019

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