alt11 alt12

[SUVERMO]

Hallo forumleden

Hoe kan men in de Msgbox van Macro1 de tekens "?" vervangen door ♂ en ♀.

 

[edmoor]

De MsgBox is niet compatible met die tekens:
Gebruik dit eens in een module:

#If Win64 Then
    Private Declare PtrSafe Function MessageBoxW Lib "User32" (ByVal hWnd As LongPtr, ByVal lpText As LongPtr, ByVal lpCaption As LongPtr, ByVal uType As Long) As Long
#Else
    Private Declare Function MessageBoxW Lib "User32" (ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal uType As Long) As Long
#End If

Public Function MsgBoxW(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String = "Microsoft Excel") As VbMsgBoxResult
    MsgBoxW = MessageBoxW(Application.hWnd, StrPtr(Prompt), StrPtr(Title), Buttons)
End Function

Sub FemaleMaleSymbols()
    MsgBoxW ChrW(9792) & " - " & ChrW(9794)
End Sub

Kijk hier voor de decimale waarden van de verschillende tekens:
https://en.wikipedia.org/wiki/Gender_symbol

 

[SUVERMO]

Beste edmoor

bedankt voor uw oplossing
toch nog een vraag
Hoe kan men bekomen dat voor de tekens ♂ en ♀ het lettertype Arial gebruikt wordt. Is het mogelijk om de kleur en grootte van deze tekens te wijzigen?

 

[edmoor]

Dat gaat niet.
Dit zijn de mogelijkheden van MessageBoxW:
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-messageboxw

Voor wat je wilt kan je een eigen messagebox maken middels een userform.
Daarin kan je een TextBox plaatsen.
Deze kent ook de tekens ChrW(9792) en ChrW(9794)

 

[SUVERMO]

bedankt Edmoor,
ik ga het proberen

 

[SUVERMO]

Goede morgen Edmoor

het lukt mij niet
heeft u een voorbeeld of een link naar voorbeelden?

 

[edmoor]

Kijk eens naar dit voorbeeldje:
Bekijk bijlage Suvermo.xlsm

 

[SUVERMO]

heel veel dank, ik ga proberen

 

[edmoor]

Omdat je verder nog niet hebt gereageerd heb ik de userform nog wat opgeleukt zodat deze meer lijkt op een echte MsgBox:
Bekijk bijlage MsgSuv.xlsm

 

[SUVERMO]

Super, dat is pas echte service

nogmaals bedankt voor uw oplossing