1 | 'Classes/System/Windows/Forms/MessageBox.ab
|
---|
2 |
|
---|
3 | #require <Classes/System/Windows/Forms/misc.ab>
|
---|
4 | #require <Classes/ActiveBasic/Windows/Windows.ab>
|
---|
5 |
|
---|
6 | Namespace System
|
---|
7 | Namespace Windows
|
---|
8 | Namespace Forms
|
---|
9 |
|
---|
10 | Enum MessageBoxButtons
|
---|
11 | OK = MB_OK
|
---|
12 | OKCancel = MB_OKCANCEL
|
---|
13 | AbortRetryIgnore = MB_ABORTRETRYIGNORE
|
---|
14 | YesNoCancel = MB_ABORTRETRYIGNORE
|
---|
15 | YesNo = MB_YESNO
|
---|
16 | RetryCancel = MB_RETRYCANCEL
|
---|
17 | End Enum
|
---|
18 |
|
---|
19 | Enum MessageBoxIcon
|
---|
20 | None = 0
|
---|
21 | Hand = MB_ICONHAND
|
---|
22 | Question = MB_ICONQUESTION
|
---|
23 | Exclamation = MB_ICONEXCLAMATION
|
---|
24 | Asterisk = MB_ICONASTERISK
|
---|
25 | Warning = MB_ICONWARNING
|
---|
26 | Error = MB_ICONERROR
|
---|
27 | Information = MB_ICONINFORMATION
|
---|
28 | Stop = MB_ICONSTOP
|
---|
29 | End Enum
|
---|
30 |
|
---|
31 | Enum MessageBoxDefaultButton
|
---|
32 | Button1 = MB_DEFBUTTON1
|
---|
33 | Button2 = MB_DEFBUTTON2
|
---|
34 | Button3 = MB_DEFBUTTON3
|
---|
35 | End Enum
|
---|
36 |
|
---|
37 | Enum MessageBoxOptions
|
---|
38 | None = 0
|
---|
39 | DefaultDesktopOnl = MB_DEFAULT_DESKTOP_ONLY
|
---|
40 | RightAlign = MB_RIGHT
|
---|
41 | RtlReading = MB_RTLREADING
|
---|
42 | ServiceNotification = MB_SERVICE_NOTIFICATION
|
---|
43 | End Enum
|
---|
44 |
|
---|
45 | Class MessageBox
|
---|
46 | Public
|
---|
47 | Static Function Show(text As String) As DialogResult
|
---|
48 | Show = Show(Nothing, text, "", MessageBoxButtons.OK, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
49 | End Function
|
---|
50 |
|
---|
51 | Static Function Show(owner As IWin32Window, text As String) As DialogResult
|
---|
52 | Show = Show(owner, text, "", MessageBoxButtons.OK, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
53 | End Function
|
---|
54 |
|
---|
55 | Static Function Show(text As String, caption As String) As DialogResult
|
---|
56 | Show = Show(Nothing, text, caption, MessageBoxButtons.OK, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
57 | End Function
|
---|
58 |
|
---|
59 | Static Function Show(owner As IWin32Window, text As String, caption As String) As DialogResult
|
---|
60 | Show = Show(owner, text, caption, MessageBoxButtons.OK, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
61 | End Function
|
---|
62 |
|
---|
63 | Static Function Show(text As String, caption As String, buttons As MessageBoxButtons) As DialogResult
|
---|
64 | Show = Show(Nothing, text, caption, buttons, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
65 | End Function
|
---|
66 |
|
---|
67 | Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons) As DialogResult
|
---|
68 | Show = Show(owner, text, caption, buttons, MessageBoxIcon.None, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
69 | End Function
|
---|
70 |
|
---|
71 | Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon) As DialogResult
|
---|
72 | Show = Show(Nothing, text, caption, buttons, icon, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
73 | End Function
|
---|
74 |
|
---|
75 | Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon) As DialogResult
|
---|
76 | Show = Show(owner, text, caption, buttons, icon, MessageBoxDefaultButton.Button1, MessageBoxOptions.None)
|
---|
77 | End Function
|
---|
78 |
|
---|
79 | Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton) As DialogResult
|
---|
80 | Show = Show(Nothing, text, caption, buttons, icon, defaultButtion, MessageBoxOptions.None)
|
---|
81 | End Function
|
---|
82 |
|
---|
83 | Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton) As DialogResult
|
---|
84 | Show = Show(owner, text, caption, buttons, icon, defaultButtion, MessageBoxOptions.None)
|
---|
85 | End Function
|
---|
86 |
|
---|
87 | Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions) As DialogResult
|
---|
88 | Show = Show(Nothing, text, caption, buttons, icon, defaultButtion, options)
|
---|
89 | End Function
|
---|
90 |
|
---|
91 | Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions) As DialogResult
|
---|
92 | 'Show = ActiveBasic.Windows.Detail._System_MessageBox(owner.Handle, StrPtr(text), StrPtr(caption), buttons As DWord Or icon As DWord Or defaultButtion As DWord Or options As DWord) As DialogResult
|
---|
93 | End Function
|
---|
94 |
|
---|
95 | ' Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, displayHelpButton As Boolean) As DialogResult
|
---|
96 | ' Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String) As DialogResult
|
---|
97 | ' Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String) As DialogResult
|
---|
98 | ' Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String, navigator As HelpNavigator) As DialogResult
|
---|
99 | ' Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String, navigator As HelpNavigator) As DialogResult
|
---|
100 | ' Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String, keyword As String) As DialogResult
|
---|
101 | ' Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String, keyword As String) As DialogResult
|
---|
102 | ' Static Function Show(text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String, navigator As HelpNavigator, param As Object) As DialogResult
|
---|
103 | ' Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions, helpFilePath As String, navigator As HelpNavigator, param As Object) As DialogResult
|
---|
104 | End Class
|
---|
105 |
|
---|
106 | End Namespace 'Forms
|
---|
107 | End Namespace 'Widnows
|
---|
108 | End Namespace 'System
|
---|