Skip to main content

AccessTr.neT


Msgbox Yazısını Renkli Yapma

Msgbox Yazısını Renkli Yapma

Çözüldü #1
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..
Cevapla
#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
#3
teşekkürler MEHMET Hocam. deneyip geri bildirimde bulunacağım.
Cevapla
#4
Mehmet hocam malesef olmadı.
Cevapla
#5
O zaman örneğimi inceleyin. Sizin için hazırladım.
.rar RENKLİ MSGBOX.rar (Dosya Boyutu: 26,85 KB | İndirme Sayısı: 28)
İnadına, ille de Accesstr.net...
Cevapla
#6
Teşekkürler mehmet hocam iyi ki varsınız.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task