| |
Mene pa zanima, kako bi lahko v visual basic naredil tako, da bi ti ob kliku na gumb odprlo spletno stran.
spremenil: realife (6.4.2011 ob 15.34.18)
|
| |
| |
Google->Visual Basic Hyperlink
|
| |
| |
Bi mi lahko kdo razložil naslednjo kodo:
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 lblURL_DragDrop(Source As Control, X As Single, Y As Single)
If Source Is lblUrl Then
With lblUrl
.Font.Underline = False
.ForeColor = vbBlack
' Call ShellExecute(0&, vbNullString, "Mailto:" & .Caption, vbNullString, vbNullString, vbNormalFocus)
Call ShellExecute(0&, vbNullString, .Caption, vbNullString, vbNullString, vbNormalFocus)
End With
End If
End Sub
Private Sub lblURL_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If State = vbLeave Then
With lblUrl
.Drag vbEndDrag
.Font.Underline = False
.ForeColor = vbBlack
End With
End If
End Sub
Private Sub lblURL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblUrl
.ForeColor = vbBlue
.Font.Underline = True
.Drag vbBeginDrag
End With
End Sub
Našel sem jo na tej strani:
http://www.developerfusion.com/code/253/....
|
| |
| |
Sicer se ne spoznam ravno na Visual Basic, vendar mislim, da ta koda sploh ni v vb jeziku.
Tam je nekako tako:
Me.TextBox2.Text=Me.TextBox1.Text
V tvoji kodi pa ni pik in ne deluje mi kot vb jezik.
Res da ima End If
End Sub
Ne vem, nisem siguren, naj kdo drug pove če imam prav.
LP,
aleksy
|
| |
| |
Na žalost, aleksy, ti moram povedati, da se motiš. Koda je spisana v Visual Basic-u.
Koda je napisana za Visual Basic 6, zato v Visual Basic 2008, ki je osnovan na .NET, ne bo delovala.
Na kratko, pa ta koda simulira hyperlink, ki je na vpisan na Label, za zagon brskalnika pa uporablja funkcijo ShellExecute, ki je definirana v standardni knižnjici shell32.dll, ki je del Windows okolja.
|
| |
| |
Zunanje aplikacije lahko v Visual Basic-u zaženeš z naslednjim ukazom:
System.Diagnostics.Process.Start("ime_programa" )
Tako lahko zaženeš Beležnico z ukazom:
System.Diagnostics.Process.Start("notepad.exe")
Prav tako pa lahko s tem ukazom odpreš tudi spletno stran, na primer:
spremenil: podtalje (15.6.2009 ob 22.21.52)
|
| |
| |
Hvala vam za pomoč.
|
| |
| |
Sicer se ne spoznam ravno na Visual Basic, vendar mislim, da ta koda sploh ni v vb jeziku.
Tam je nekako tako:
Me.TextBox2.Text=Me.TextBox1.Text
V tvoji kodi pa ni pik in ne deluje mi kot vb jezik.
Res da ima End If
End Sub
Ne vem, nisem siguren, naj kdo drug pove če imam prav.
LP,
aleksy
Kot je že omenil podtalje, je koda spisana za VB 06. Sploh pa to s pikami nima nič veze. Koda, ki si jo ti spisal je za vb 08 in si je mogoče bolj navajen, tam je preprosto Text2.Text = Text1.Text. Pa še to mislim, da ni čisto pravilno.
Pa zdaj preidimo k temi.
Možnost, ki jo je napisal podtalje v vseh pogledih ustreza postavljenim pogojem.
Postavi se pa še druga možnost, da v program vstaviš WebBrowser, ki je v bistvu komponenta IE. V njem lahko direktno v programu odpiraš spletne strani, in sicer:
Lep pozdrav
|
| |
| |
Option Explicit
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 OpenFile(sURL As String)
Dim nRetVal As Long
If sFile = "" Then Exit Sub
ShellExecute nRetVal, "open", sURL, "", "", 1
End Sub
Private Sub Command1_Click()
OpenFile "http://www.slo-hacker.com"
End Sub
Meni pa, ko to kodo vstavim, napiše napako za to spremenljivko:
sFile
|
| |
| |
Option Explicit
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 OpenFile(ByVal sURL As String)
Dim sFile As Long
Dim nRetVal As Long
If sFile = "" Then Exit Sub
ShellExecute(nRetVal, "open", sURL, "", "", 1)
End Sub
Private Sub Command1_Click()
OpenFile("http://www.slo-hacker.com")
End Sub
To bi sedaj moralo delovati. Prej si izpustil vrednost spremenljivke.
p.s: Kje si našel to kodo?
spremenil: Erco (24.6.2009 ob 14.37.23)
|
| |
Prikazujem 1 od skupno 2 strani |
|
