Серый форум — VBS: Метод PopupMenu из библиотеки svcsvc.dll

Re: VBS: Метод PopupMenu из библиотеки svcsvc.dll

2017-01-26T09:03:41Z

Вот то, что мне нужно. Спасибо.

Re: VBS: Метод PopupMenu из библиотеки svcsvc.dll

2017-01-26T08:40:09Z

Select Case CreateObject("Svcsvc.Service").PopupMenu("Один" & vbCr & "Два" & vbCr & "Три")
	Case "Один" One
	Case "Два"  Two
	Case "Три"  Three
End Select

Sub One:   MsgBox "выбран 1" End Sub
Sub Two:   MsgBox "выбран 2" End Sub
Sub Three: MsgBox "выбран 3" End Sub

Re: VBS: Метод PopupMenu из библиотеки svcsvc.dll

2017-01-26T08:34:12Z

Flasher, задача стоит вызвать конкретную функцию.
Предпологается, что у меня будут несколько пунктов меню. Я выбрал один, запустилась связанная с ним функция.
Я выбрал другой, запустилась уже совсем другая функция. Я выбрал третий, запустилась третья.

Re: VBS: Метод PopupMenu из библиотеки svcsvc.dll

2017-01-26T08:03:42Z

Такой замысел?:

MsgBox CreateObject("Svcsvc.Service").PopupMenu("Один" & vbCr & "Два" & vbCr & "Три", 0)

Re: VBS: Метод PopupMenu из библиотеки svcsvc.dll

2017-01-26T07:57:00Z

Flasher, я там уже читал. Как мне вызвать функцию? Мне надо, чтобы сработала функция "ккк".

Re: VBS: Метод PopupMenu из библиотеки svcsvc.dll

2017-01-26T07:52:14Z

Библиотека svcsvc.dll и её объектная модель

Тема перенеса в родной раздел.

VBS: Метод PopupMenu из библиотеки svcsvc.dll

2017-01-26T03:58:31Z

Как мне вызвать функцию с помощью метода PopupMenu, которая находится в библиотеке svcsvc.dll?

Set SvcService = CreateObject("Svcsvc.Service")
funk = "kkk|kkk"

Sel = SvcService.PopupMenu(funk, 0)
'MsgBox Sel

Function kkk()
MsgBox "kkk"
End Function

Function aaa()
MsgBox "aaa"
End Function