Нужна помощь

[Riter]

Подскажите как можно в msgboxe поменять имена кнопок на свои. Желательно на примере.

[codemaster]

проще написать свой MSGBox

[Riter]

Тогда возникает другой вопрос, как сделать чтобы программа ждала пока ненажмут кнопку?

[codemaster]

попробуй так

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

' код формы frmDlg
Option Explicit
Public m_OK As Boolean

Private Sub cmdCancel_Click()
   m_OK = False
    Hide
End Sub

Private Sub cmdOK_Click()
  m_OK = True
    Hide
End Sub

Private Sub Form_Load()
m_OK = False
'
  CenterForm Me
  '
End Sub


Public Sub CenterForm(frm As Form)

  frm.TOp = (Screen.height - frm.height) / 2
  frm.Left = (Screen.width - frm.width) / 2
 
End Sub



простейший код вызова диалога

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

'
.........
  Dim fDlg As frmDlg
  Set fDlg = New frmDlg
   
    With fDlg
       '
       ' товой код инициалищзации диалога
       .Show vbModal
       If .m_OK Then
         '
         'товой код обр.
         '
       End If
    End With
 

Unload fDlg
Set fDlg = Nothing

.......


P.S.В диалог можно запросто добавить CheckBox

[Konst_One]

она и так ждет , если ты бейсиковским MsgBox-ом пользуешься

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

dim ret as VbMsgBoxResult

ret=vba.MsgBox("OK?",vbOKCancel,"Понятно?")
if ret=vbOk then
'все ок

else
'не то нажал

end if
debug.print ret


[Riter]

Спасибо за помощь щас попробую

[Riter]

Оно то ждет, но тогда как мне изменить кнопку Ok на привет допустим?

[codemaster]

Оно то ждет, но тогда как мне изменить кнопку Ok на привет допустим?

напиши на кнопке "привет"

[Riter]

Все равно штото я несильно догнал с кодом

[codemaster]

Все равно штото я несильно догнал с кодом

Ты о чем ? что собственно не понятно ?
Создал форму frmDlg кинул кнопки на форму

[Riter]

Все разобрался спасибо за помощь