Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: hiperlacze na formie - jak to sie robi???
anonim




Typ: Nie zarejestrowany
hiperlacze na formie - jak to sie robi???

Jak umiescic hiperlink do strony www oraz do adresu e-mailowego, czy jest taka kontrolka i jak sie nazywa? Co pod nia wpisac aby uruchomic Outlook i automatycznie wpisac adresata w odpowiednie pole oraz jak za pomoca takiego linku otworzyc strone o danym adresie www?

Pozdrawiam wszystkich I dziekuje za wszelka pomoc

28-06-2004 00:16
  
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Umieszczasz na formie np labela. następnie dodajesz zdarzenie click a w nim wpisujesz:

Shell("start.exe http://jakas_stronka.com " )
nie wiem czy to zadziala na XP - ewentualnie odrazu wpisz adres stronki

zeby przywołać domyslnego klienta poczty robisz podobnie:

Shell(" " )

Żeby to wszystko prezentowało się efektownie dodajesz jeszcze do labeli zdażenie MouseOver i w nim wpisujesz np

Label1.ForeColor = &HFF0000 'zmieni kolor na niebieski
Label1.FontUnderline = True 'doda linie pod napisem

i zdarzenie na formie mouse over a w nim na odwrót:

Label1.ForeColor = 0 'zmienia kolor na czarny
Label1.FontUnderline = False

[Post edytowany dnia 28-06-2004 00:28 przez m-a-x]


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

28-06-2004 00:27
Pokaż profil m-a-x  Wyślij email do m-a-x   
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Tak max, ale to potrafi "się sypać". Najbezpieczniej jest użyć funkcji API - ShellExecute. W module dajesz:

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
Public Const SW_NORMAL = 2

a tam gdzie chcesz wywołać adres (czy np. w zdarzeniu click):

X = ShellExecute(hwnd, "Open", "http://www.coderscity.pl/no-vb4all";, &O0, &O0, SW_NORMAL)

Jak chcesz wysłać e-mail:

X = ShellExecute(hwnd, "Open", "", &O0, &O0, SW_NORMAL)

Reszta jak powiedziałeś .


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


06-07-2004 10:51
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1