Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: jak to zrobic?
anonim




Typ: Nie zarejestrowany
jak to zrobic?

witam!
Jak zrobic cos takiego ze po nacisnieciu jakiego tekstu z strona www ona bedzie odpalana w przegladarce??
i nalepiej w czym to zrobic ten tekst? w labelu??

27-05-2004 18:58
  
wesol



Typ: neutral
Postów: 40
Zarejestrowany: Mar 2004
pisz jasniej i bez błędów, ale chodzi ci chyba o to:

czyli o zrobienie linka w progsie po którego kliknieciu otworzy się str. internetowa
wstawiasz na forma labelka i:
1. nazywa go Label1
Private Const SW_SHOWNORMAL = 1

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


Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim ret As Long
    If Button <> 1 Then Exit Sub
    ret = ShellExecute(Form1.hwnd, "open", "http://www.vb.uq.pl/"; & Chr(0), "", "", SW_SHOWNORMAL)' zamiast Form1 daj nazwę swojego forma
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Label1.Font.Underline = False Then
        Label1.Font.Underline = True
        Label1.ForeColor = RGB(26, 138, 224)
    End If
End Sub


[Post edytowany dnia 27-05-2004 21:14 przez wesol]


_____________________________________________
Odwiedź moja stronkę !!!

27-05-2004 21:13
Pokaż profil wesol  Wyślij email do wesol   Odwiedź stronę wesol       3542833
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

1) w dziale Tips są 2 różne przykłady na uruchomienie strony WWW
2) temat nic nie mówi jaki masz problem. Chyba zacznę usuwać posty (bez czytania) z tematami "POMOCY", "JAK TO ZROBIĆ", "POMÓŻCIE STUDENTOWI" itp.


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

29-05-2004 23:13
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1