PhoneNumber$ = "(123) 456-7890"

Open "COM2" For Output As #1 'or COM1

    Print #1, "ATDT" & PhoneNumber$ & Chr$(13)

Close #1

Const WM_USER = &H400

Const CB_FINDSTRING = (WM_USER + 12)

Const CB_FINDSTRINGEXACT = (WM_USER + 24)

Const CB_SHOWDROPDOWN = (WM_USER + 15)

Const CB_GETDROPPEDSTATE = (WM_USER + 23)

Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Поместите следующий код в событие keypress вашего combo box:

Dim flgIsdropped As Long

Dim lngRetval As Long

If KeyAscii = 13 Then

    combobox.ListIndex = SendMessageByString(combobox.hWnd, CB_FINDSTRING, 0,combobox.Text)

Exit Sub

End If

flgIsdropped = SendMessageByNum(combobox.hWnd, CB_GETDROPPEDSTATE, 0, 0)

If Not flgIsdropped Then

    lngRetval = SendMessageByNum(combobox.hWnd, CB_SHOWDROPDOWN, True, 0)

End If

Поместите следующий код в событие lostfocus вашего combo box:

combobox.ListIndex = SendMessageByString(combobox.hWnd, CB_FINDSTRING, 0, combobox.Text)

    Эти проверки в программе необходимы, чтобы определить, был ли список уже раскрыт или это нужно еще сделать. Как только список раскрыт, Windows будет сама "листать" его, чтобы искать строку, которая соответствует тому, что ввел пользователь. Недостаток в использовании этого метода - то, что даже при том, что Windows показывает строку, которая была найдена, я не знаю, как заставить Windows её выделить.

Другой способ должен использовать текстовое поле и список. Поместите следующий код в событие change текстового поля:

listbox.ListIndex = SendMessageByString(listbox.hWnd, LB_FINDSTRING, 0, Text1.Text)

(LB_FINDSTRING is WM_USER+16)

Если Вы хотите найти точное соответствие, то константа:

Нам потребуется несколько функций API и констант.

Public Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Const MF_BYPOSITION = &H400&

И три строки кода.

SystemMenu = GetSystemMenu (hWnd, 0) 'получаем описатель меню

Res = RemoveMenu(SystemMenu,6, MF_BYPOSITION) 'удаляем разделительную линию

Res = RemoveMenu(SystemMenu,6, MF_BYPOSITION) 'удаляем меню

Вот и всё. Теперь Ваше окно из системного меню закрыть невозможно!

Sub Form_Load () 
    If App.PrevInstance Then 
        MsgBox "Программа уже работает! 
        End 
    End If 
End Sub

    Второй путь посложнее. Нужно вместо завершения программы передать фокус на предыдущую копию! Как же это сделать? Здесь тоже есть два пути, первый - использование AppActivate, которая может активизировать приложение по его заголовку:

Sub Form_Load () 
    Dim sTitle As String
    If App.PrevInstance Then
        sTitle = Me.Caption
        Me.Caption = Hex$(Me.hWnd)
        AppActivate sTitle
        End
    End If
End Sub

   В этом коде мы определяем свой заголовок, а потом активизируем предыдущую копию программы , изменив свой заголовок на любой другой. Но... опять но... а Вы уверены, что у второй копии заголовок тот же, что и у второй? Вспомните Microsoft Word, да и вообще, по рекомендациям Microsoft каждая программа должна содержать в своем заголовке имя файла, с которым ведется работа! Что же делать? Есть методы и на этот счет, но о них в другой раз.

Вопрос-Ответ

Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.