1 Тема от Parazit (изменено: Parazit, 2017-01-26 11:59:50)

  • Parazit
  • Заблокирован
  • Неактивен

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

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

2 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

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

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

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

3 Ответ от Parazit

  • Parazit
  • Заблокирован
  • Неактивен

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

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

4 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

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

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

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

5 Ответ от Parazit (изменено: Parazit, 2017-01-26 13:04:32)

  • Parazit
  • Заблокирован
  • Неактивен

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

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

6 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

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

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
+ Parazit

7 Ответ от Parazit

  • Parazit
  • Заблокирован
  • Неактивен

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

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