|
|
|
новичок
участник
Last Login: 05.06.2000 5:52
Сообщ.: 3,
Visits: 34
|
|
| Как сделать ссылку из приложения? Любые варианты у кого есть, давайте :))
|
|
|
|
|
Junior Member
участник
Last Login: 09.06.2000 11:25
Сообщ.: 10,
Visits: 111
|
|
'*********************************************************
'*********************************************************
'*** ***
'*** Source code from site "Alphabet of Visual Basic" ***
'*** eMail: v1500mk@t-online.de ***
'*** URL: http://members.tripod.de/cmvb ***
'*** ***
'*********************************************************
'*********************************************************
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
|
|
|
|