Button link-VB

Miko · Napísal **Miko**: 19.03.2009 9:49

ahojte potreboval by som spravit vo vb : Bud ked kliknem na button aky code aby sa po kliknuti napojil na Counter strike server. Alebo ako spravit button ktory ta presmeruje na nejaku page

max-m · Napísal **max-m**: 19.03.2009 9:53

toto by malo frcat:

Kód:

Private Sub cmdOpen_Click()
    ShellExecute 0, vbNullString, "http://www.vbweb.co.uk/", vbNullString, vbNullString, vbNormalFocus
End Sub

Miko · Napísal autor témy **Miko**: 19.03.2009 10:07

Error 1 Name 'ShellExecute' is not declared. C:\Documents and Settings\Miko\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 4 9 WindowsApplication1

max-m · Napísal **max-m**: 19.03.2009 10:13

treba deklarovat:

Kód:

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 

Miko · Napísal autor témy **Miko**: 19.03.2009 10:18

cele to bude takto

Kód:

Public Class Form1
    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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ShellExecute(0, vbNullString, "http://www.vbweb.co.uk/", vbNullString, vbNullString, vbNormalFocus)
    End Sub
End Class

ale nefunguje
ako ono ukaze ale neotvori mi prehliadac

max-m · Napísal **max-m**: 19.03.2009 10:34

tak skus takto:

Kód:

Public Class Form1
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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ShellExecute  (0, "open", "http://www.vbcodesource.info", vbNullString, vbNullString, 1)
    End Sub
End Class

Miko · Napísal autor témy **Miko**: 19.03.2009 10:37

Neotvori mi prehliadac

max-m · Napísal **max-m**: 19.03.2009 10:59

tak este takto:

Kód:

Public Class Form1
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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
  ExecLink "http://google.com", vbNormalFocus
End Sub

Private Sub ExecLink(Url As String, style As VbAppWinStyle)
  Shell "explorer.exe " & Url & "", stlye
End Sub
End Class

Miko · Napísal autor témy **Miko**: 19.03.2009 11:21

nic nespravi kokos sak neni nieco jednoduche ako spravit button a otvori sa ti nejaka stranka

max-m · Napísal **max-m**: 19.03.2009 12:15

aky mas VB?

Miko · Napísal autor témy **Miko**: 19.03.2009 12:43

Patkoo · Napísal **Patkoo**: 19.03.2009 16:46

Kód:

System.Diagnostics.Process.Start("http://www.google.com")

Miko · Napísal autor témy **Miko**: 20.03.2009 22:14

fuu konecne nieco spravne vdaka ti moc

Button link-VB

Podobné témy