Presentasjon a la PowerPoint i VB.net

[rauma]

Held på å laga eit program i VB.net som skal visa ein del bileter med tekst. Pr. idag har me laga denne presentasjonen i PowerPoint. Korleis skal ein på ein best mogeleg måte få denne visninga inn i VB? Finst det verktøy under COM Components som kan nyttast?

 

Eit lite spørsmål til. Kan nokon forklara meg kva "shell" vert nytta til?

[aadnk]

Eit lite spørsmål til. Kan nokon forklara meg kva "shell" vert nytta til?

Man benytter Shell kommandoen når man skal kjøre en EXE-fil. Omtrent som dette her:

 

Shell "C:\Windows\System32\cmd.exe"

 

Når det gjelder presentasjonen, kan man sikkert bruke OLE-objektet for å få den inn i en form.

[rauma]

Takk for hjelp på vegen, men eg får ikkje dette til å fungere!!

 

Eg skal vise ei internettsidet i programmet mitt t.d. startsiden.no

 

Då skriv eg det slik:

 

Private Sub cmdStartsiden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStartsiden.Click

Shell("http://www.startsiden.no")

End Sub

 

 

men denne feilmeldinga kjem opp:

 

An unhandled exception of type 'System.IO.FileNotFoundException' occurred in microsoft.visualbasic.dll

 

Additional information: File not found.

 

Kva skal eg endre på??

 

[aadnk]

Hverken i VB "Classic" eller VB.NET kan man åpne internett-sider direkte med Shell-kommandoen. Du kan bare kjøre EXE-filer lokalt på datamaskinen. Men, du kan gå rundt dette ved å kalle "explorer.exe" med internett-siden som paramenter:

 

Shell("explorer.exe http://www.startsiden.no/")

 

Men da risikerer du at kun Internet Explorer åpnes opp, selv om en annen browser er satt til standard, og dette er noe vi absolutt bør unngå. Derfor bør du heller bruke følgende kode:

 

ShellExecute(Me.Handle.ToInt32, vbNullString, "http://www.startsiden.no/", vbNullString, "C:\", 1)

 

Husk å legg denne koden til i deklarerings-seksjonen (Under Public Class Form1 e.l):

 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer