Как совместить два скрипта (см. внутри) - VB
Формулировка задачи:
как совместить эти два скрипта чтоб при вводе
"литр
"[COLOR="rgb(139, 0, 0)"] исполнялся первый код (API) [/COLOR]Решение задачи: «Как совместить два скрипта (см. внутри)»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д