It seems like the MsgBox function ignores icons.
*Sub Test*
* Dim iReply As Integer iReply=MsgBox("Do you feel like pressing the
Yes button?", _ MB_YESNO OR MB_ICONQUESTION OR
MB_DEFBUTTON2, _ "Your choice")*
*End Sub*
I expect a message button with a Yes and a No button. the latter being
default. I also expect the message box to display a big question mark.
The constants I'm using are described in the file
”/usr/lib/libreoffice/help/en-US/text/sbasic/shared/03010102.html” (at
least on Manjaro Linux), and I will include them here:
MB_OK
0
Display OK button only.
MB_OKCANCEL
1
Display OK and Cancel buttons.
MB_ABORTRETRYCANCEL
2
Display Abort, Retry, and Ignore buttons.
MB_YESNOCANCEL
3
Display Yes, No, and Cancel buttons.
MB_YESNO
4
Display Yes and No buttons.
MB_RETRYCANCEL
5
Display Retry and Cancel buttons.
MB_ICONSTOP
16
Add the Stop icon to the dialog.
MB_ICONQUESTION
32
Add the Question icon to the dialog.
MB_ICONEXCLAMATION
48
Add the Exclamation Point icon to the dialog.
MB_ICONINFORMATION
64
Add the Information icon to the dialog.
128
First button in the dialog as default button.
MB_DEFBUTTON2
256
Second button in the dialog as default button.
MB_DEFBUTTON3
512
Third button in the dialog as default button.
Seems like all the MB_ICONxxx options are ignored.
I just want to find out if this is a bug or not. Maybe the problem is my
theme or something, so I just wonder if this works for anybody else.
Thanks.
Kind regards
Johnny Rosenberg