Notifikationer

Markér alle som læst Log ud

hirayz Nybegynder

16. december 2001 - 21:17 Der er 4 kommentarer og
3 løsninger

Åben hjemmeside

Hvordan åbner man en hjemmeside i internet explorer i VB???

Synes godt om

ncp Nybegynder

16. december 2001 - 21:28 #1

VB ? Visual Basic ?

Synes godt om

hirayz Nybegynder

16. december 2001 - 21:40 #2

ja VB = Visual Basic

Synes godt om

dr.truti Nybegynder

16. december 2001 - 21:41 #3

Private Const SW_SHOW = 5 \' Displays Window in its current size and position
Private Const SW_SHOWNORMAL = 1 \' Restores Window if Minimized or Maximized

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 Declare Function FindExecutable Lib \"shell32.dll\" Alias _
\"FindExecutableA\" (ByVal lpFile As String, ByVal lpDirectory As _
String, ByVal lpResult As String) As Long

Dim CurrentBrowser As String

rivate Sub Command1_Click()
Dim RetVal As Long

If CurrentBrowser = \"\" Then CurrentBrowser = FindBrowser
RetVal = ShellExecute(Me.hwnd, \"open\", CurrentBrowser, Command1.Tag, Dummy, SW_SHOWNORMAL)
If RetVal <= 32 Then \' Error
MsgBox \"Web Page not Opened\", vbExclamation, \"URL Failed\"
End If
End Sub

Private Function FindBrowser() As String
Dim FileName As String, Dummy As String
Dim BrowserExec As String * 255
Dim RetVal As Long
Dim FileNumber As Integer

\' First, create a known, temporary HTML file
BrowserExec = Space(255)
FileName = \"C:\\temphtm.HTM\"
FileNumber = FreeFile \' Get unused file number
Open FileName For Output As #FileNumber \' Create temp HTML file
Write #FileNumber, \"<HTML> <\\HTML>\" \' Output text
Close #FileNumber \' Close file
\' Then find the application associated with it
RetVal = FindExecutable(FileName, Dummy, BrowserExec)
BrowserExec = Trim(BrowserExec)
\' If an application is found, launch it!
If RetVal <= 32 Or IsEmpty(BrowserExec) Then \' Error
MsgBox \"Could not find associated Browser\", vbExclamation, \"Browser Not Found\"
Else
FindBrowser = BrowserExec
End If
Kill FileName \' delete temp HTML file
End Function

Denne kode finder din Default browser.... Den køre på nogle API kald...
Om 1 - 2 timer vil der vare massere der kommer med \"Shell\" koder men det skal siges til dem at de ikke virker på alle OS\'er.. Så derfor har jeg givet dig den helt store version!

Truti

Synes godt om

dr.truti Nybegynder

16. december 2001 - 21:42 #4

Du skriver URL\'en i Command1\'s Tag ( http://eksperten.dk/ )
Husk http://

Truti

Synes godt om

torbenmelander Nybegynder

16. december 2001 - 21:47 #5

http://visualbasic.about.com/c/ht/01/02/How_Execute_HTML_Files0981466409.htm?terms=html ... men det er vel noget af det samme .....

Synes godt om

johs_j Novice

16. december 2001 - 23:11 #6

\'Denne linie starter JyllandsPostens hjemmeside
Shell \"start http://www.jp.dk\", vbHide

\'Denne linie vil åbne dit mailprogram og indskrive modtageradr.
Shell \"start mailto:mmm@ofir.dk\", vbHide

Synes godt om

torbenmelander Nybegynder

26. december 2001 - 11:38 #7

Tak for point :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS