Модальность Msgbox !

[EvilCoder]

<DELETE>

[Approximator]

Как избежать модальности Msgbox...

Заведи свою форму.

[EvilCoder]

<DELETE>

[alibek]

Покажи его через API и в качестве родителя укажи NULL

[TEH3OP]

Покажи его через API и в качестве родителя укажи NULL

Нуна сделать новый проект и на форме одну кнопку "Command1".

Вот так:

Код: Выделить всё

Private Enum MB_Enum
    MB_ABORTRETRYIGNORE = &H2&
    MB_APPLMODAL = &H0&
    MB_CANCELTRYCONTINUE = &H6&
    MB_COMPOSITE = &H2
    MB_DEFAULT_DESKTOP_ONLY = &H20000
    MB_DEFBUTTON1 = &H0&
    MB_DEFBUTTON2 = &H100&
    MB_DEFBUTTON3 = &H200&
    MB_DEFBUTTON4 = &H300&
    MB_DEFMASK = &HF00&
    MB_ERR_INVALID_CHARS = &H8
    MB_FUNC = &H4000
    MB_HELP = &H4000&
    MB_ICONASTERISK = &H40&
    MB_ICONERROR = &H10&
    MB_ICONEXCLAMATION = &H30&
    MB_ICONINFORMATION = MB_ICONASTERISK
    MB_ICONMASK = &HF0&
    MB_ICONQUESTION = &H20&
    MB_ICONSTOP = &H10&
    MB_ICONWARNING = MB_ICONEXCLAMATION
    MB_MISCMASK = &HC000&
    MB_MODEMASK = &H3000&
    MB_NOFOCUS = &H8000&
    MB_OK = &H0&
    MB_OKCANCEL = &H1&
    MB_PRECOMPOSED = &H1
    MB_RETRYCANCEL = &H5&
    MB_RIGHT = &H80000
    MB_RTLREADING = &H100000
    MB_SERVICE_NOTIFICATION = &H40000
    MB_SERVICE_NOTIFICATION_NT3X = &H40000
    MB_SETFOREGROUND = &H10000
    MB_SYSTEMMODAL = &H1000&
    MB_TASKMODAL = &H2000&
    MB_TYPEMASK = &HF&
    MB_USEGLYPHCHARS = &H4
    MB_USERICON = &H80&
    MB_YESNO = &H4&
    MB_YESNOCANCEL = &H3&
End Enum

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, ByRef lpText As Byte, ByRef lpCaption As Byte, ByVal wType As MB_Enum) As Long

Private Sub Command1_Click()
    Dim lngAPIReturn As Long
    Dim abytText() As Byte
    Dim abyteCaption() As Byte
   
    abyteCaption = "Вот в чём вопрос!" & vbNullChar
    abytText = "Быть или не быть?" & vbNullChar
               
    MessageBox 0&, abytText(0), abyteCaption(0), MB_ICONQUESTION + MB_YESNO
End Sub



[EvilCoder]

<DELETE>

[GSerg]

Так значение функции-то...

[EvilCoder]

<DELETE>

[A.A.Z.]

Ну почему?

Код: Выделить всё

Retval = MessageBox(0&, abytText(0), abyteCaption(0), MB_ICONQUESTION + MB_YESNO)

Это ж ведь функция

[Ennor]

В принципе, по-хорошему для таких вещей переопределяется диалоговая оконная процедура. Но как это привязать к басику... Наверное, сложнее, чем свою форму сделать

[EvilCoder]

<DELETE>