Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Простенький вопросик. Добавлено: 26.11.03 01:40  

Автор вопроса:  Ворон | ICQ: 178095693 

Как разместить на форме ссылку на мыло, при клике на которую будет открываться дефолтный почтовик?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #1 		Добавлено: 26.11.03 03:34

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) As Long
Const SW_SHOWNORMAL = 1

'почта

Private Sub Label1_Click()
ShellExecute hwnd, "open", "mailto:justas@bk.ru", vbNull, vbNull, vbNormal

End Sub

'web

Private Sub Label1_Click()
ShellExecute hwnd, "open", "http://www.justas.newmail.ru", vbNull, vbNull, vbNormal

End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #2 		Добавлено: 26.11.03 03:44

забыл сказать:

на форму лэйбл положи, задай цвет ему синенький, шрифт подчёркнутый, и иконку у мышки в виде руки вот...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам