[VB] Via Optionbuttons Templates opstarten

[Verwijderd]

Ik wil in een Form optionbuttons maken. Bijvoorbeeld voor Word de Templates "Eigentijdse brief.dot" en dergelijke.
Voor Excel Werkblad "Factuur" en dergelijke.

Het is dan de bedoeling dat ik dan de optionbutton van een Template/Werkblad selecteer.

En dan op een Commandbutton druk en dat dan Word, Excel of dergelijke opstart die deze Templates/Werkbladen ondersteund.

Ik heb het nog niet kunnen vinden hoe dit gedaan moet worden op internet. Misschien hebben jullie een idee hoe dit kan of waar ik dit kan vinden?

Bedankt!!!

[Verwijderd]

Maak ff duidelijk wat voor butttons je bedoelt!

wil je Radiobuttions of iets dergelijks?

[Verwijderd]

Op woensdag 27 februari 2002 12:04 schreef voetenzalf het volgende:
Maak ff duidelijk wat voor butttons je bedoelt!

wil je Radiobuttions of iets dergelijks?

Oke even een beschrijving van het Form:

Ik heb Optionbuttons (die dingen met die rondjes om ze te selecteren)

Ik wil dus Optionbuttons gebruiken om een Template te selecteren. Bijvoorbeeld "Eigentijdse brief.dot".

En een Optionbutton voor een werkblad voor Excel Bijvoorbeeld "Factuur.xlt".

(voor het gemak gebruik ik er maar even 2 Optionbuttons)

Als ik 1 van deze buttons selecteer, dan wil ik met gebruik van een CommandButton, dat VB de Template opstart met hij bijhorende programma.

Is het duidelijker zo?

[mulder]

Nou, je nick zegt het al F1.

- Je kan met Shell of ShellExecute werkebn
- Je kan een referentie naar Word of Excel maken

[Verwijderd]

even een stukkie uit mijn code gehaald...geloof dat dit alles is.

======

Dim objDocument As Object


Set objDocument = GetObject(, "Word.Basic")

If Err <> 0 Then
Set objDocument = CreateObject("Word.Basic")
End If


objDocument.AppMaximize "Microsoft Word", 1
objDocument.FileOpen gcWelkeFile

[Verwijderd]

Op woensdag 27 februari 2002 12:38 schreef evanwasbeek het volgende:
even een stukkie uit mijn code gehaald...geloof dat dit alles is.

======

Dim objDocument As Object


Set objDocument = GetObject(, "Word.Basic")

If Err <> 0 Then
Set objDocument = CreateObject("Word.Basic")
End If


objDocument.AppMaximize "Microsoft Word", 1
objDocument.FileOpen gcWelkeFile

Ziet er goed uit, maar hoe kan ik het gebruiken met de optionbuttons en commandbutton, ben helaas nog niet zo bedreven met VB.

[Crazy D]

Op woensdag 27 februari 2002 13:00 schreef F1 het volgende:
Ziet er goed uit, maar hoe kan ik het gebruiken met de optionbuttons en commandbutton, ben helaas nog niet zo bedreven met VB.

Dan zou ik eerst een beetje hobbyen met optiebuttons en commandbuttons, en gewoon msgboxjes tonen i.p.v. meteen documenten gaan openen...

[Verwijderd]

[quote
Dan zou ik eerst een beetje hobbyen met optiebuttons en commandbuttons, en gewoon msgboxjes tonen i.p.v. meteen documenten gaan openen...
[/quote]

Ik ben ook nu hobbyen bezig, maar ik dacht misschien dat er personen zijn die dit weten...
Maar ik sta open voor suggesties, tips en of oplossingen

[Verwijderd]

Je moet in de command1_click

eerst uitzoeken welke optionbutton op true staat

misschien door .... if optionbutton1.value = true then



als je dus weet welke optionbutton aan staat dan kun je dit gebruiken voor de verdere acties