[vb] Form Closen

[Jaspertje]

Hoi allemaal..

Mn pa vroeg vanmiddag of ik een executable kon maken die word kon openen direct naar een word document door middel van een parameter..

Ik met mijn ASP kennis ging ermee aan de slag en heb (eindelijk ) na een paar keer te roepen het kan niet.. een mooi ding geschreven.. Alleen heb ik nog iets wat mij niet lukt en wat ik ook niet kon vinden (of ik snapte het niet).. De exe doet het en opent via de Run ook het goede bestand.. alleen als ik dan in het taakbeheer kijk, zie ik daar de naam van de Exe staan.. terwijl mn word document geopend is enzo.. de code zover:

Visual Basic .NET:

Private Sub Form_Load()
    'Created by Jasper Heus mail:[e-mail]
    'Purpose: Open word document with extra parameter to specify the path
    
    Dim sCommandLine As String
    Dim WordDocument As String

    sCommandLine = Command()     ' dit levert de command line op in sCommandLine
    WordDocument = sCommandLine

    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Open(WordDocument)
    wdApp.Visible = True
    
    Set wdApp = Nothing
    Set wdDoc = Nothing
End Sub

als er meer opmerking zijn graag, ik heb op school 10 weken vb gehad dus was best trots

[editje]
Ik had dit gevonden, maar kom er niet helemaal uit

code:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   Cancel = -1
End Sub

[/editje]

[ Voor 11% gewijzigd door Jaspertje op 28-01-2003 22:38 ]

[whoami]

Ehm, ik snap eigenlijk het nut van dat programma niet.... Wat is er nu makkelijker om gewoon te dubbelklikken op het word-document om het te openen? Word start op, juiste document wordt geladen enz...

[Jaspertje]

whoami schreef op 28 januari 2003 @ 22:39:
Ehm, ik snap eigenlijk het nut van dat programma niet.... Wat is er nu makkelijker om gewoon te dubbelklikken op het word-document om het te openen? Word start op, juiste document wordt geladen enz...

Ik heb ook geen flauw idee, mn pa vroeg het.. en ik maak het.. Ze willen het includen in de code van hun denk ik

[Sponge]

Hmm, ik snap je probleem niet helemaal?

Als je een form wilt weghalen kan je dat doen dmv

Unload (formnaam)

Als je helemaal geen form nodig hebt, kan je ook in een module een "Sub Main" maken, waar je bovenstaan de code in zet, bijv:

code:

Public Sub Main()
Openworddocumentenzo
End Sub

Dan zet je on der de project properties het startup object op "Sub Main", en dan heb je de form niet eens meer nodig in je hele project!

Nou ja, als dit niet is wat je wilt, dan gaarne iets specifieker zijn

(of, onzichtbaar maken: Formnaam.hide)

[Jaspertje]

41.6C.6D.61.72 schreef op 28 januari 2003 @ 22:42:
Hmm, ik snap je probleem niet helemaal?

Als je een form wilt weghalen kan je dat doen dmv

Unload (formnaam)

Als je helemaal geen form nodig hebt, kan je ook in een module een "Sub Main" maken, waar je bovenstaan de code in zet, bijv:

code:

Public Sub Main()
Openworddocumentenzo
End Sub

Dan zet je on der de project properties het startup object op "Sub Main", en dan heb je de form niet eens meer nodig in je hele project!

Nou ja, als dit niet is wat je wilt, dan gaarne iets specifieker zijn

(of, onzichtbaar maken: Formnaam.hide)

Mijn dank is erg groot je snapte me presies en die sub main is wat ik dus eigelijk zocht

[johnwoo]

In 5 regels:

Visual Basic .NET:

Private Const SW_SHOWNORMAL = 1

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

Public Sub Main()
   ShellExecute 0, "open", Command$, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Opent ieder document met de juiste applicatie.