| Autor | Správa |
|---|
Miko
Užívateľ
Založený: 14.01.2009
Príspevky: 76
 |  Zaslal: Št 19.03.09 10: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
Užívateľ
Založený: 17.01.2008
Príspevky: 650
Bydlisko: Žilina
| | Zaslal: Št 19.03.09 10:53 | |
toto by malo frcat:
| kód: | Private Sub cmdOpen_Click()
ShellExecute 0, vbNullString, "http://www.vbweb.co.uk/", vbNullString, vbNullString, vbNormalFocus
End Sub |
|
_________________
Mac Book Pro 15.4", CPU: Intel Core 2 Duo 2.8 GHz, RAM: 4GB DDR3, HDD: 500 GB, VGA: 512MB GDDR3, OS: Mac OS X Lion; Mobil: iPhone 3GS 16GB | |
    |
|
Miko
Užívateľ
Založený: 14.01.2009
Príspevky: 76
| | Zaslal: Št 19.03.09 11: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
Užívateľ
Založený: 17.01.2008
Príspevky: 650
Bydlisko: Žilina
| | Zaslal: Št 19.03.09 11: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 |
|
_________________
Mac Book Pro 15.4", CPU: Intel Core 2 Duo 2.8 GHz, RAM: 4GB DDR3, HDD: 500 GB, VGA: 512MB GDDR3, OS: Mac OS X Lion; Mobil: iPhone 3GS 16GB | |
|
|
Miko
Užívateľ
Založený: 14.01.2009
Príspevky: 76
| | Zaslal: Št 19.03.09 11: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
Užívateľ
Založený: 17.01.2008
Príspevky: 650
Bydlisko: Žilina
| | Zaslal: Št 19.03.09 11: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 |
|
_________________
Mac Book Pro 15.4", CPU: Intel Core 2 Duo 2.8 GHz, RAM: 4GB DDR3, HDD: 500 GB, VGA: 512MB GDDR3, OS: Mac OS X Lion; Mobil: iPhone 3GS 16GB | |
|
|
Miko
Užívateľ
Založený: 14.01.2009
Príspevky: 76
| | Zaslal: Št 19.03.09 11:37 | |
|
|
|
max-m
Užívateľ
Založený: 17.01.2008
Príspevky: 650
Bydlisko: Žilina
| | Zaslal: Št 19.03.09 11: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 |
|
_________________
Mac Book Pro 15.4", CPU: Intel Core 2 Duo 2.8 GHz, RAM: 4GB DDR3, HDD: 500 GB, VGA: 512MB GDDR3, OS: Mac OS X Lion; Mobil: iPhone 3GS 16GB | |
|
|
Miko
Užívateľ
Založený: 14.01.2009
Príspevky: 76
| | Zaslal: Št 19.03.09 12:21 | |
nic nespravi kokos sak neni nieco jednoduche ako spravit button a otvori sa ti nejaka stranka |
| |
|
|
max-m
Užívateľ
Založený: 17.01.2008
Príspevky: 650
Bydlisko: Žilina
| | Zaslal: Št 19.03.09 13:15 | |
aky mas VB? |
_________________
Mac Book Pro 15.4", CPU: Intel Core 2 Duo 2.8 GHz, RAM: 4GB DDR3, HDD: 500 GB, VGA: 512MB GDDR3, OS: Mac OS X Lion; Mobil: iPhone 3GS 16GB | |
|
|
Miko
Užívateľ
Založený: 14.01.2009
Príspevky: 76
| | Zaslal: Št 19.03.09 13:43 | |
|
|
|
Patkoo
Užívateľ
Založený: 02.11.2008
Príspevky: 85
| | Zaslal: Št 19.03.09 17:46 | |
| kód: | | System.Diagnostics.Process.Start("http://www.google.com") |
|
| |
|
|
Miko
Užívateľ
Založený: 14.01.2009
Príspevky: 76
| | Zaslal: Pi 20.03.09 23:14 | |
fuu konecne nieco spravne vdaka ti moc |
| |
|
|
|
