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

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

null@example.com (Parazit) — Thu, 26 Jan 2017 09:03:41 +0000

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

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

null@example.com (Flasher) — Thu, 26 Jan 2017 08:40:09 +0000

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

null@example.com (Parazit) — Thu, 26 Jan 2017 08:34:12 +0000

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

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

null@example.com (Flasher) — Thu, 26 Jan 2017 08:03:42 +0000

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

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

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

null@example.com (Parazit) — Thu, 26 Jan 2017 07:57:00 +0000

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

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

null@example.com (Flasher) — Thu, 26 Jan 2017 07:52:14 +0000

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

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

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

null@example.com (Parazit) — Thu, 26 Jan 2017 03:58:31 +0000

Как мне вызвать функцию с помощью метода 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