Как сделать ссылку из приложения??? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы