[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2022-02-02 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

Aaron Gerber  changed:

   What|Removed |Added

 Status|UNCONFIRMED |RESOLVED
 Resolution|--- |INVALID

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-18 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

--- Comment #7 from Julien Nabet  ---
(In reply to Mike Kaganski from comment #6)
> (In reply to Julien Nabet from comment #5)
> > Mike: thought you might have some opinion here.
> 
> I'm sorry, I don't quite see on which question my opinion is needed.
> 
> There's a user error of using non-declared/defined variable YESNOCANCEL,
> which evaluates to 0 when used without Option Explicit.
> 
> There's a (unrelated) wrong entry in help, already fixed by you in bug
> 146299 :)
> 
> There's some misunderstanding mentioned in comment 4, but I don't quite see
> what is wanted there.
> 
> There's also a bug (IMO) related to enums not fully supported in Option
> Compatible - see bug 145753 comment 3. But that is outside of scope of this.
Ok I hadn't read comment 1 from Himajin10.

So there are 2 ways to provide the option:
- MB_ABORTRETRYIGNORE when no VBASupport or VBASupport = 0
- Buttons:= vbYesNoCancel when VBASupport = 1

About the comment 3, I don't know.

Sorry for the noise then.

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-18 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

--- Comment #6 from Mike Kaganski  ---
(In reply to Julien Nabet from comment #5)
> Mike: thought you might have some opinion here.

I'm sorry, I don't quite see on which question my opinion is needed.

There's a user error of using non-declared/defined variable YESNOCANCEL, which
evaluates to 0 when used without Option Explicit.

There's a (unrelated) wrong entry in help, already fixed by you in bug 146299
:)

There's some misunderstanding mentioned in comment 4, but I don't quite see
what is wanted there.

There's also a bug (IMO) related to enums not fully supported in Option
Compatible - see bug 145753 comment 3. But that is outside of scope of this.

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-18 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

Julien Nabet  changed:

   What|Removed |Added

 CC|olivier.hallot@libreoffice. |mikekagan...@hotmail.com
   |org |

--- Comment #5 from Julien Nabet  ---
Olivier: I put you in cc of the other bugtracker but since I created another
bugtracker for the doc part, don't hesitate to uncc yourself.

Mike: thought you might have some opinion here.

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-18 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

--- Comment #4 from himajin100...@gmail.com ---
1. Honestly Speaking, I still haven't found the mechanism with which our
Runtime makes the enum members in ooo.vba.VbMsgBoxStyle.

2. Secondly, though we can access MB_YESNOCANCEL IN STARBASIC
https://opengrok.libreoffice.org/xref/core/basic/source/runtime/stdobj.cxx?r=0d563373#584

but not in MS-VBA because the constant comes from winuser.h, which is for C++,
not for MS-VBA.
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-messagebox

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-18 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

Julien Nabet  changed:

   What|Removed |Added

   See Also||https://bugs.documentfounda
   ||tion.org/show_bug.cgi?id=14
   ||6299

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-18 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

Julien Nabet  changed:

   What|Removed |Added

 CC||olivier.hallot@libreoffice.
   ||org, serval2...@yahoo.fr

--- Comment #3 from Julien Nabet  ---
Reading this
https://help.libreoffice.org/latest/en-US/text/sbasic/shared/03010102.html
you should rather use:
iResponse = MsgBox("Are there special notes that need to be added to this
report?", MB_YESNOCANCEL, "Special Notes")
Could you give it a try?

BTW, there's an error in the documentation, it's not MB_ABORTRETRYCANCEL but
MB_ABORTRETRYIGNORE

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-17 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

--- Comment #2 from Leslie  ---
"I'm somewhat annoyed that I couldn't highlight the information in the About
window to copy and paste here"   

Additionally, there is a button on the About window that copies the information
needed to the clipboard.

-- 
You are receiving this mail because:
You are the assignee for the bug.

[Libreoffice-bugs] [Bug 146282] msgBox only displays "OK" button

2021-12-17 Thread bugzilla-daemon
https://bugs.documentfoundation.org/show_bug.cgi?id=146282

--- Comment #1 from himajin100...@gmail.com ---
I believe this report should be marked NOTABUG or INVALID.

Correct code would be like the following.
===


Option Explicit
Option VBASupport 1 ' without this line vbYesNoCancel is not defined.

Sub Message_Box_Test
dim iResponse as Integer
dim strNotes as String

' Correct Enum member would be vbYesNoCancel, not YESNOCANCEL
' Also, I added colon to indicate named parameter.
iResponse = MsgBox("Are there special notes that need to be added to
this report?", Buttons:= vbYesNoCancel, "Special Notes")
If iResponse = 7 Then
MsgBox "No"
ELSEIF iResponse = 2 Then
Exit Sub
ELSE
strNotes = inputBox("Enter the special notes as they should
appear:", "Special Notes")
END IF

msgBox strNotes
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.