Skip to main content

AccessTr.neT


Msgbox Yazısını Renkli Yapma

Msgbox Yazısını Renkli Yapma

#2
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
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Msgbox Yazısını Renkli Yapma - Yazar: te-kin - 06/07/2019, 15:30
Re: Msgbox Yazısını Renkli Yapma - Yazar: mehmetdemiral - 06/07/2019, 16:01
Cvp: Msgbox Yazısını Renkli Yapma - Yazar: te-kin - 06/07/2019, 17:10
Cvp: Msgbox Yazısını Renkli Yapma - Yazar: te-kin - 06/07/2019, 21:14
Cvp: Msgbox Yazısını Renkli Yapma - Yazar: te-kin - 11/07/2019, 13:08