как совместить два скрипта (см. внутри) - VB

  1. как совместить эти два скрипта чтоб при вводе "литр"[COLOR="rgb(139, 0, 0)"] исполнялся первый код (API) [/COLOR]


textual

Код к задаче: «как совместить два скрипта (см. внутри) - VB»

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub Command1_Click()
a = InputBox("Чего желаете ?")
If a = "хочу литр водки" Then
ShellExecute Form1.hwnd, "open", "c:\mydoc\пожалуйста.doc", 0, 0, 2
Else
MsgBox ("У нас только водка !")
End If
End Sub

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.857 из 5



Похожие ответы
  1. Пожалуйста кто скажет почему так и как исправить есть три текстбокса text(0),text(1),text(2) и есть одно текстовое поле result в цикле считает и проверяет если в одном из текстовых полей надпись on то добавляет +1 в поле result.text но почему то он пишет что текст on встречается 2 раза хотя я написал только в одном! Когда делаю ток один цикл без for j =1 to 2 то все работает правильно и показывает 1! Но мне именно надо два почему такой баг при использовании двух разных циклов одновременно???

  1. На форме находятся кнопка и текстовое поле. Вы вводите в текстовое поле следующий текст "88 умножить 77". Программа выдаст вам результат при любых целых числах. Ну а если вместо слова "умножить" вы поставите "плюс", то программа сложит заданные числа. А что тут такого особенного? - спросит читатель. Ничего. Если не считать, что нечто подобное я собираюсь поместить в файл для создаваемой мною разговорной программы с искусственным интеллектом. Отныне эта программа будет уметь оперировать с числами, например сравнивать их. примечание Конечно в реальной программе вопрос будет звучать примерно так "сколько будет если 77 умножить на 88" (но это мелочи) Всё познаётся в сравнении... или нет?

  1. Использую api GetOpenFileName для вызова диалога выбора файла Как сделать один фильтр по двум расширениям? (*.GIF *.7z) Еще вопрос: есть ли подобный диалог выбора католога, а не файла Сейчас использую SHBrowseForFolder, что не очень удобно в плане использования юзером

  1. Здравствуйте , подскажите пожалуйста , как записать в программном коде вод двух массивов , вот например что бы ввести один массив:

  1. Добрый день. Задача: Есть приложение, в данном случае, консольное. 1. Нужно получить фокус данного приложения. 2. Передать ему команду EXIT. 3. Сделать страшную вещь в виде бэкапа. 4. запустить приложение. 5. Передать очередную команду. Вопрос к Вам: как сделать первые два пункта?

  1. Даны два целых числа I, J и файл вещественных чисел, содержащий элементы прямоугольной матрицы (по строкам), причем первый элемент файла содержит количество столбцов матрицы. Вывести элемент матрицы, расположенный в I-й строке и J-м столбце (строки и столбцы нумеруются от 1). Если требуемый элемент отсутствует, то вывести 0.

  1. Имеется два текстовых поля у обоих одинаковый класс название TLabeledEdit Когда я вписываю текст в класс под названием TLabeledEdit то он вписывается только в один из них Вот часть этого кода

  1. Дано целое число N (> 2) и набор из N чисел. Найти два наименьших елемента из данного набора и вывести эти элементы в порядке возрастания их значений.

  1. Обновил свой блог ! где я веду разработку компонентов ниже картинки с достигнутыми результатами хотелось бы попросить помощи вот в чем... там есть диалог вызова цвета вызываемой функцией WinApi ChooseColor так вот надо придумать как задать ей цвет по умолчанию чтоб в квадратике того окна он был указан а также как предворительно перед вызовом задать координаты ? по умолчание окно цвета отображается в левом верхнем углу так-же любопытно как в подсказке отобразить предупреждающий значёк ? например значёк треугольника с восклицательным знаком ...