Second Life Blog

Posts Tagged 'VB'

Bruk følgende fremgangsmåte for å opprette et Visual Basic program som åpner Office-dokumenter:

1. Start Visual Basic og opprett en ny standard prosjekt. Form1 opprettes som standard.
2. Fra Prosjekt-menyen, komponenter til å velge åpne dialogboksen Components.
3. I dialogboksen Components, legger referanser til Microsoft Common Dialog Control og Microsoft Internet Controls.
4. Klikk OK for å legge til elementer i verktøykassen.
5. Legg til en forekomst av WebBrowser kontroll, CommonDialog kontroll, og en CommandButton i Form1.
6. Deretter legger du til følgende kode i Code-vinduet for Form1:

    Command1_Click() Dim sFileName As String ' Find an Office file... With CommonDialog1 .FileName = "" .ShowOpen sFileName = .FileName End With ' If the user didn't cancel, open the file... If Len(sFileName) Then Set oDocument = Nothing WebBrowser1.Navigate sFileName End If End Sub Private Sub Form_Load() Command1.Caption = "Browse" ' For the 2007 Microsoft Office documents, change the .Filter parameter of the ' With CommonDialog1 statement to: ' .Filter = "Office Documents " & _ '      "(*.docx, *.xlsx, *.pptx)|*.docx;*.xlsx;*.pptx" With CommonDialog1 .Filter = "Office Documents " & _ "(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt" .FilterIndex = 1 .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly End With End Sub Private Sub Form_Unload(Cancel As Integer ) Set oDocument = Nothing End Sub Private Sub WebBrowser1_NavigateComplete2( ByVal pDisp As Object , _ URL As Variant ) On Error Resume Next Set oDocument = pDisp.Document MsgBox "File opened by: " & oDocument.Application.Name End Sub Option Explicit Dim oDocument som objekt Private Sub Command1_Click () Dim sFileName Som String "Finn en Office-fil ... Med CommonDialog1. Filnavn =" ". ShowOpen sFileName =. Filnavn End With 'Dersom brukeren ikke avbryte, åpne filen ... Hvis Len (sFileName) Da Set oDocument = Ingenting WebBrowser1.Navigate sFileName End If End Sub Private Sub Form_Load () Command1.Caption = "Bla gjennom" 'for 2007 Microsoft Office-dokumenter, endre. Filter parameter i "Med CommonDialog1 uttalelse til: '. Filter = "Office-dokumenter" & _ "(*. docx, *. xlsx, *. pptx) | *. docx, *. xlsx, *. pptx" Med CommonDialog1. Filter = "Office Dokumenter "& _" (*. doc, *. xls, *. ppt) | *. doc, *. xls, *. ppt ". FilterIndex. = 1 Flags = cdlOFNFileMustExist Eller cdlOFNHideReadOnly End With End Sub Private Sub Form_Unload ( Avbryt As Integer) Set oDocument = Nothing End Sub Private Sub WebBrowser1_NavigateComplete2 (ByVal pDisp som objekt, _ URL som Variant) On Error Resume Next Set oDocument = pDisp.Document MsgBox "Filen åpnes av:" & oDocument.Application.Name End Sub 

7. Trykk F5 for å kjøre prosjektet. Når du velger du Bla gjennom, Åpne dialogboks vises der du kan navigere til et Word-, Excel eller PowerPoint-fil.
8. Velg Åpne, og dokumentet skal åpnes i WebBrowser kontrollen.
9. En melding kommer frem som viser navnet på Office-programmet som åpnet filen.