Как сделать ссылку из приложения??? - VB
Формулировка задачи:
Как сделать ссылку из приложения? Любые варианты у кого есть, давайте )
Решение задачи: «Как сделать ссылку из приложения???»
textual
Листинг программы
'********************************************************* '********************************************************* '*** *** '*** Source code from site "Alphabet of Visual Basic" *** '*** eMail: [email]v1500mk@t-online.de[/email] *** '*** URL: [url]http://members.tripod.de/cmvb[/url] *** '*** *** '********************************************************* '********************************************************* 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) Private Declare Function GetDesktopWindow Lib "user32" _ () As Long Const SW_SHOWNORMAL = 1 Private Sub Label1_Click() 'при клике на Label происходит вызов функции и передаются _ следующие параметры: _ 1.идентификатор десктопа (где запускать файл?) _ 2.команда "Open" - т.к. можно вставить и "Print" (что делать с ним?) _ 3.путь к файлу - надпиь Label (где искать?) _ 4.пропущенный параметр, т.к. файл этот - документ, а не исполняемый _ 5.директория, используемая в случае надобности по умолчанию _ (куда складывать?) _ 6.константа, означающая запуск в нормальном режиме (как запускать?) Call ShellExecute(GetDesktopWindow, "Open", _ Label1.Caption, "", "c:", SW_SHOWNORMAL) End Sub Private Sub Label2_Click() 'при клике на Label происходит вызов функции и передаются _ следующие параметры: _ 1.идентификатор десктопа (где запускать файл?) _ 2.команда "Open" - т.к. можно вставить и "Print" (что делать с ним?) _ 3.путь к файлу - надпиь Label (где искать?) _ 4.пропущенный параметр, т.к. файл этот - документ, а не исполняемый _ 5.директория не нужна (куда складывать?) _ 6.константа, означающая запуск в нормальном режиме (как запускать?) 'Call ShellExecute(0&, "Open", "mailto:" + Label2.Caption, "", "", 1) 'здесь eMail с "сабжем" Call ShellExecute(0&, "Open", "mailto:" + Label2.Caption + _ "?Subject=" + "VB-вопросы", "", "", 1) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д