Вопрос по Inputbox

[Алексей К.]

Запрашиваю:
имя=inputbox("Введите имя",titul$)
Так вот если пользователь ничего не ввел и нажал <OK> то я отлавливаю через if имя="" then... типа "введите имя!!!"
А как отловить если нажал <Отмена> (переменная "имя" опять пустой будет)??? Т.е. уйти на End Sub после нажатия <Отмена>

[alibek]

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

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

If frmInputBox.InputText(ReturnText, FormCaption, InputBoxStyle, InputTitle, MaxTextLength, ListItems) Then
  ...
End If

P.S. Вспомогательные функции:

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

Declare Function SendMessage ...

Const WM_USER As Long = &H400&
Enum WindowMessageConstants
  cbFindString = &H14C&
  cbGetItemHeight = &H154&
  cbLimitText = &H141&
  emLimitText = &HC5&
  lbFindString = &H18F&
End Enum

Function FindByValue(ListControl As Control, Optional ByVal Value As String) As Long
Dim I As Long, msg As Long
If TypeOf ListControl Is ComboBox Then
  msg = WindowMessageConstants.cbFindString
  If Len(Value) = 0 Then Value = ListControl.Text
ElseIf TypeOf ListControl Is ListBox Then
  msg = WindowMessageConstants.lbFindString
Else
  Exit Function
End If
I = SendMessage(ListControl.hWnd, msg, -1&, ByVal Value)
FindByValue = I + 1
End Function


[GSerg]

А как же бубен?

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

if strptr(inputbox("enter something...")) then
  'нажали OK
else
  'нажали отмену
end if

[alibek]

Вот блин! А для кого же я старался?

[kazah_]

Вот блин! А для кого же я старался?

ну не знаю.. по моемуц слишко заумно...

[A.A.Z.]

А как же бубен?

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

if strptr(inputbox("enter something...")) then
  'нажали OK
else
  'нажали отмену
end if

Тьфу, блин, я столько времени му**лся над этим, а решение оказалось как в подписи Шамана...

[GSerg]

Ты не поверишь, но эта идея пришла мне сразу после того, как я собрался громко удивиться в том смысле, что, дескать, alibek прошляпил возвращаемое значение inputbox (почему-то мне показалось, что оно на манер такового у msgbox, то есть имеется vbCancel ), но вместо этого обнаружил стринг и страшно удивился

[Алексей К.]

Всем спасибо!