msgbox

[marimar]

merhaba msgbox mesaj kutusunun rengini değiştirebilirmiyiz

 

[Levent Menteşoğlu]

Değiştiremezsiniz.

 

[Mahmut Kök]

Renkli olması için kullanıcı önyüzü (userform) kullanabilirsiniz; ancak iletikutusu'na (msgbox) göre daha karmaşık gelebilir, evet-hayır gibi kullanımlar için kod eklemeniz gerekir.

 

[owlfurty]

evet degistirebilirsin al bunu kullan degerli dostum

Private Sub form_Timer () ' In Microsoft Access 2.0, the word
' "Private" will not appear in this
' line of the code.

Dim lngYellow As Long, lngWhite As Long
On Error GoTo Errhandler
lngYellow = RGB(255, 255, 0) 'Set lngYellow variable for
'yellow color.
lngWhite = RGB(255, 255, 255) 'Set lngWhite variable for white
'color.

If Screen.ActiveControl.Name <> myctrname Then ' If active
' control not
' equal to
' myctrname do
' next line.
Me(myctrname).BackColor = lngWhite ' Set myctrname
' variable to white
' BackColor.
Screen.ActiveControl.BackColor = lngYellow ' Set active color
' BackColor to
' yellow.
myctrname = Screen.ActiveControl.Name ' Set myctrname
' variable to
' active control
' name.
End If

Exit Sub

Errhandler:
If Err = 2465 Then ' If error is 2465 which is "Object-defined
' error."
Resume Next ' Resume running on next line after error.
ElseIf Err = 2474 Then ' If error is 2474 which is "No Control is
' active."
Resume Next
Else
MsgBox Err & " " & Error ' Show Error number and string of error
' value.
Exit Sub
End If

End Sub

 

[owlfurty]

ama sadece msgbox icin su renkler degisebilir

1. Tittle
2. Icon
3. Buttons
4. Default Button
5. Message (of course )

1.Baslik
2.Ikon
3.Tuslar\\
4.Extra tuslar
5.En extra tuslar