ࡱ> Root Entry  ԡ`   wRoot Entry  B^$W2W ݩW@"CompObj` iOle ~persist elements" }w H !I#$%&'()*+,-./0123456789:;<=>?@ABCDEFGJLMNOPQRSTUVWXYZ[\]^_`aSfxPreview"JSfxDocumentInfo  o_SummaryInformation( j@BasicManager2 haStarBASIC@W.WSfxWindowsg,Star Framework Config File6ehDrawingLayer ;I SfxStyleSheetsQheQXQSwPageStyleSheetsQ$StarWriterDocument&StandardK,wSW4HDR.$0`6C(364D(BUILD:1085)(SV364)]DAdrebuchADRESSEN!M Frameformat ZeichenformatTextformatvorlageStandard  berschrift Textkrper  berschrift 2  berschrift 3  berschrift 4 berschrift 5AbsenderNumerierungszeichen5 Quelltext Internet LinkRoot 15 Grafik DrawObject 17 StarOffice 18Standard  Abbildung Tabelle Textd#01 j) stardiv.dicZ standard.dic FN Tc$EHerzlich Willkommen zur Installation des Demo-Programmes Hi There!!w:=T|$ZWie Du Dir vorstellen kannst, tut das Programm Hi There! gar nicht viel. Es dient vielmehr als Vorwand fr die Demonstration einer Installationsroutine. Diese installiert eine StarBasic-Bibliothek (HiThere), die in diesem StarWriter-Dokument enthalten ist, im StarOffice. Das Programm ist danach auch unabhngig von diesem Dokument verfgbar.w03Ts$hZustzlich ist das ffnen dieses Dokuments mit dem automatischen Start der Installation verbunden. Der Anwender hat dann die Wahl, ob er gleich installieren will, oder ob er erst diese Dokumentation lesen will. Hat er die zweite Mglichkeit gewhlt, so ist es ihm an dieser Stelle erlaubt, nach der anstrengenden Lektre das Programm doch noch zu installieren:TS$SA @A80o-:SA PA PT$Achtung!T$Diese ganze Routine, insbesondere auch der automatische Start, ist ja ganz nett. Ob es aber Sinn macht, den Anwender mit automatisch startenden Makros zu verunsichern, ist fraglich. Ich habe dies hier lediglich zu Demo-Zwecken eingebaut.T$Auch ist zu beachten, dass die Ausfhrung von Makros in Dokumenten, welche ber HTTP oder FTP geladen wurden, blicherweise nicht mglich ist. blicherweise deshalb, weil jeder Anwender selber darber entscheiden kann...T$ BeschreibungT8$-Dieses SW-Dokument enthlt zwei Bibliotheken:T%5*Standard: enthlt die InstallationsroutineSAPQdddlRn(. n(. 6n(. Qn(. ln(. Tv5?HiThere: die Bibliothek, die im System installiert werden soll.SAPQdddlwT$Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.A8 A8 A8  w   T$InstallIt bernimmt die eigentliche Installation der Bibliothek HiThere im System. Der Rest der Routinen dient hauptschlich der Dialog-Steuerung.A8 w AT $iT$ 4Letzte nderung: Copyright 1998 by Michael Hergerl:SAPAP<d<dd<A1PN(G../images/sologo.gifA PAPxAP<A PANPX*http://www.stardivision.de/_topCreated using StarOffice!A0 A38 &4mailto:mherger@jo-sac.chw#.JBHL-660BHL-660LPT1:winspoolBHL-660/ 01G |pc XXA4X5e ''''UU88y-'?F7y-'Ux,@&P˜Ux,@&?,,x,W,x,W,x, ,, ,x,:W,x,: ,,,x, ,UQx8) 1,UQx8) ,x,t ,x,: d ,x,!,x,#,x,:-U&?<xvZࡱ>   !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfiklmnpqrstuvwxyz{|SW4HDR.$0`6!M Frameformat ZeichenformatTextformatvorlageStandard  berschrift Textkrper  berschrift 2  berschrift 3  berschrift 4 berschrift 5AbsenderNumerierungszeichen5 Quelltext Internet LinkRoot 15 Grafik DrawObject 17 StarOffice 18Standard  Abbildung Tabelle TextqStandardStandardd #'##0.00 CCC#'##0.00 CCC$ TT.MM.JJJJTT.MM.JJJJStandardStandardd #.##0,00 CCC#.##0,00 CCC TT.MM.JJJJTT.MM.JJJJ'StandardStandardd(' #'##0.00 CCC#'##0.00 CCC4' TT.MM.JJJJTT.MM.JJJJB$j~j~j~Pp 299 SAAP.AAPndnddnAPndndSAAP.AAPndnddnAPndndZࡱ> SWG, A<  #$%&'()*./0123456789:;<=>?@ABCDGHK  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFQRSTU0 !'@sX'8@ Courier New ArialXX$'"@dUXX' @X'@#X'@BXA'2*@tdxddxdXX7S;@X8S<@X9S=@XR'D@X.r3VzP$' '(l. . D . . . . . `#. '. 8,. 0. 5. |9. =. 6')2~ (NumerierungszeichenNumerierungszeichen Quelltext Quelltext@'5 Internet Link Internet Link@!''GrafikGrafik@;7S<8S=9S>> StandardStandard@ berschriftStandard Textkrper@''2A'DR'  TextkrperStandard Textkrper@2A' berschrift 2 berschrift Textkrper' ''  berschrift 3 berschrift Textkrper''  berschrift 4 berschrift Textkrper@' ''  berschrift 5 berschrift Textkrper''AbsenderStandardAbsender@ 'RE,xࡱ> OXOutdevItemPool 1   )     &'()*+,-./06789:;UVWXYZ[\]c !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstt      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefd 0O P]EditEngineItemPool 6f 01 P?DrMd JoeMl00Y$0b6$0 DrLy HellDrLy HeavenDrPg X4aa VCControls  -0@VX @p@StandardX&@StartManualInstallX @ @ @  @" @8@V:X@x X@vX@X @@X@X!@= MS Sans SerifX@_ X@~X@XG@3Ich will "Hi There!" nun aber endlich installieren!X##2@.Standard.Install.ManualInstallX%% @H88 @^;;G@ install.sdwStandard.Install.ManualInstallX-Ck -Oq6Ut1 P# JoeMy-'DrML DrOb SDVC&: " : ja##;;DrXXDControlsgg,$StandardDrXXMDࡱ> Star Framework Config FileZ  install.sdwStandard.Install.AutoInstall !9ࡱ*2,max,688;748;100;568;568;12208;6943;0;0,1ࡱHiThereWriterDocument " LV 3 MwVLwVStarWriterDocument&A $ 5w=TX|TXjia4Standard LIBIMBEDDED LIBIMBEDDEDaHiThere LIBIMBEDDED LIBIMBEDDEDࡱ> Oh+'0 h t 15@j:@J@D.W@& BLMichael HergerMichael HergerSfxDocumentInfoMichael Herger 0oMichael Herger $06 uK Info 0 Info 1 Info 2 Info 3 0`<ࡱ> 88/ ࡱ> ࡱ>  B^$WTextStarWriter 4.0soffSVGDI*.A  88/&8)/)8& )&/ )NArial NMS Sans Serif NArial  ^EEHerzlich Willkommen zur Installation des Demo-Programmes Hi There!!NTimes New Roman NArial NTimes New Roman  sSpZWie Du Dir vorstellen kannst, tut das Programm Hi There! gar nicht viel. Es dient vielmehr als Vorwand fr die Demonstration einer Installationsroutine. Diese installiert eine StarBasic-Bibliothek (HiThere), die in diesem StarWriter-Dokument enthalten ist, im StarOffice. Das Programm ist danach auch unabhngig von diesem Dokument verfgbar. spq|ZWie Du Dir vorstellen kannst, tut das Programm Hi There! gar nicht viel. Es dient vielmehr als Vorwand fr die Demonstration einer Installationsroutine. Diese installiert eine StarBasic-Bibliothek (HiThere), die in diesem StarWriter-Dokument enthalten ist, im StarOffice. Das Programm ist danach auch unabhngig von diesem Dokument verfgbar. smZWie Du Dir vorstellen kannst, tut das Programm Hi There! gar nicht viel. Es dient vielmehr als Vorwand fr die Demonstration einer Installationsroutine. Diese installiert eine StarBasic-Bibliothek (HiThere), die in diesem StarWriter-Dokument enthalten ist, im StarOffice. Das Programm ist danach auch unabhngig von diesem Dokument verfgbar. " xhZustzlich ist das ffnen dieses Dokuments mit dem automatischen Start der Installation verbunden. Der Anwender hat dann die Wahl, ob er gleich installieren will, oder ob er erst diese Dokumentation lesen will. Hat er die zweite Mglichkeit gewhlt, so ist es ihm an dieser Stelle erlaubt, nach der anstrengenden Lektre das Programm doch noch zu installieren: ? yhZustzlich ist das ffnen dieses Dokuments mit dem automatischen Start der Installation verbunden. Der Anwender hat dann die Wahl, ob er gleich installieren will, oder ob er erst diese Dokumentation lesen will. Hat er die zweite Mglichkeit gewhlt, so ist es ihm an dieser Stelle erlaubt, nach der anstrengenden Lektre das Programm doch noch zu installieren: \ nhZustzlich ist das ffnen dieses Dokuments mit dem automatischen Start der Installation verbunden. Der Anwender hat dann die Wahl, ob er gleich installieren will, oder ob er erst diese Dokumentation lesen will. Hat er die zweite Mglichkeit gewhlt, so ist es ihm an dieser Stelle erlaubt, nach der anstrengenden Lektre das Programm doch noch zu installieren:NArial  !dAchtung!NTimes New Roman  xDiese ganze Routine, insbesondere auch der automatische Start, ist ja ganz nett. Ob es aber Sinn macht, den Anwender mit automatisch startenden Makros zu verunsichern, ist fraglich. Ich habe dies hier lediglich zu Demo-Zwecken eingebaut. ytDiese ganze Routine, insbesondere auch der automatische Start, ist ja ganz nett. Ob es aber Sinn macht, den Anwender mit automatisch startenden Makros zu verunsichern, ist fraglich. Ich habe dies hier lediglich zu Demo-Zwecken eingebaut. mAuch ist zu beachten, dass die Ausfhrung von Makros in Dokumenten, welche ber HTTP oder FTP geladen wurden, blicherweise nicht mglich ist. blicherweise deshalb, weil jeder Anwender selber darber entscheiden kann... npAuch ist zu beachten, dass die Ausfhrung von Makros in Dokumenten, welche ber HTTP oder FTP geladen wurden, blicherweise nicht mglich ist. blicherweise deshalb, weil jeder Anwender selber darber entscheiden kann...NArial  % BeschreibungNTimes New Roman  FL--Dieses SW-Dokument enthlt zwei Bibliotheken: 1. C+**Standard: enthlt die Installationsroutine v2. X+v??HiThere: die Bibliothek, die im System installiert werden soll.  }Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte. (~Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte. \ (Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.NCourier NewNTimes New Roman NCourier New  ( Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.NTimes New Roman   (Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte. (Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.NCourier New N(Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.NTimes New Roman  (*Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte. E~Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte. b i1Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte. b Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.NCourier New b  Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.NTimes New Roman  b Die erste enthlt gleich mehrere Routinen, die sich um die Installation kmmern. Alle fhren durch den gleichen, mehrseitigen Dialog im AutoPilot-Stil. AutoInstall ist mit dem Ereignis OnOpen dieses Dokuments verknpft. Es zeigt eine zustzliche Seite im AutoPilot an, welche eine Abfrage enthlt, ob die Installation berhaupt durchgefhrt werden soll. Danach luft es gleich ab, wie wenn man mit obigem Knopf ManualInstall gestartet htte.NCourier New ! InstallIt bernimmt die eigentliche Installation der Bibliothek HiThere im System. Der Rest der Routinen dient hauptschlich der Dialog-Steuerung.NTimes New Roman  ! gInstallIt bernimmt die eigentliche Installation der Bibliothek HiThere im System. Der Rest der Routinen dient hauptschlich der Dialog-Steuerung. #q#InstallIt bernimmt die eigentliche Installation der Bibliothek HiThere im System. Der Rest der Routinen dient hauptschlich der Dialog-Steuerung.NTimes New Roman NTimes New Roman NTimes New Roman  M '4Letzte nderung: Copyright 1998 by Michael Herger M'4Letzte nderung: Copyright 1998 by Michael Herger !'24.03.98 M (4Letzte nderung: Copyright 1998 by Michael Herger M(%4Letzte nderung: Copyright 1998 by Michael HergerNTimes New Roman NTimes New Roman NTimes New Roman  M(&4Letzte nderung: Copyright 1998 by Michael Herger88/)< " < " K! "! K! K < " < < " K " "! " < " " NArialNArialNArialNTimes New Roman (88/)& )&BMF6(c$f̙ff33f3̙f̙f̙f3f3fff33333f3fff3fffff3                                                            ࡱ> ice.StarWriterDocument.49qࡱSBX sb  HiThere StarBASICSBX ARSBX AR SBX ARSBX bm HiMainStarBASICModuleSBX AR7SBX em%MainSBX AR SBX ARBM MNHiMainSCA?Sub Main Beep MsgBox("Hello Stars!", 64, "Hi there!") End SubPC1EAB@A+ST@ !(MainBeepHello Stars!Hi there!MsgBox2c%bqqࡱ> SBX sb , Standard StarBASICSBX ARSBX AR SBX AR?CV e-  InstallDlgDialoga  VCControls  04@Xp@ Forward InstallDlg FrameControl1CommandButton1Back StartInstallLabel2Label1Label3 Label4 Label5 Label6 Label7 Label8Label9Label10Label11Label12DontStartInstallLabel13XXX+X>XRX\XnXzXXXXXXXXXXXX @ @ @ @@XF@%  XXXX&X. @O@ H w4 x   yXXXX&X.X6X>XFXNXVX^Xf@x      hXXXX&X.X6X>XFXNXVX^XfXnXvX~XXXR@)pIXXXX&X.X6R@Ii-XXXX&X.X6 @@X@XX+@+ MS Sans SerifXX!"@Y XX@|X@X @ @,@  << &ZurckDemo-Installation &Weiter >> &AbbrechenJa, Installation fortsetzen!im Modul "HiMain" starten.7Herzlich Willkommen zur Installation der Demo-Anwendung Hi There! <Herzlich Willkommen zur Demo-Installation der Demo-Anwendung Cdie beiliegende Dokumentation und Installationsanleitung studieren? EHerzlich Willkommen zur automatischen Installation der Demo-Anwendung EWollen Sie die Installation fortsetzen oder erst mal unterbrechen und #Nein, Installation nicht ausfhren!HEs wird nun automatisch die Bibliothek "HiThere.sbl" in Ihrem StarOfficeIinstalliert. Starten Sie die Installation durch einen Klick auf "Weiter"!DHerzliche Gratulation! "Hi There" wurde erfolgreich auf Ihrem SystemHinstalliert! Sie knnen es jederzeit durch Ausfhren der Prozedur "Main"Uuups!ADa scheint ein Fehler bei der Installation aufgetreten zu sein...Ja, Installation ausfhren!XXX5X;XKX[X}XXXX+XtXX X3XXXXhXtX @ @       XXXX&X.X6X>XFXNXVX^XfXnXvX~XXX @  @3 @S XX @q @ X @ @ X @  @  @ @& X$$@F X%%c@ Standard.Install.ForwardClickedStandard.Install.BackClickedXXX9&&@ X''@ X((@X))@5X**@UX++@uX,,@X--@X22@X33@X44 @55 @%66@AX;;@ install.sdwStandard.Install.ForwardClicked install.sdwStandard.Install.BackClickedXXH- r.z 5l< R @ V l   - C c  2 R r 2H^~ Pa$$%%&&''(())**++,,--223366SBX AR SBX AR SBX AR; CV x  FrameControl:a  SBX AR SBX AR SBX ARCV n  CommandButtona%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV n  CommandButtona%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV n  CommandButtondaSBX AR SBX AR SBX ARCV v LabeldaSBX AR SBX AR SBX ARCV v Label^a   SBX AR SBX AR SBX ARCV v Label^a   SBX AR SBX AR SBX ARCV v Label^a   SBX AR SBX AR SBX ARCV v Labelda  SBX AR SBX AR SBX AR CV v Label^a   SBX AR SBX AR SBX AR CV v Label^a  SBX AR SBX AR SBX AR CV v Label^a  SBX AR SBX AR SBX AR CV v Label^a  SBX AR SBX AR SBX AR CV v Label^a SBX AR SBX AR SBX ARCV v Labelda  SBX AR SBX AR SBX ARCV v Labelda  SBX AR SBX AR SBX ARCV t  OptionButtondaSBX AR SBX AR SBX ARCV t  OptionButtonda SBX AR SBX AR SBX ARSBX bm < InstallStarBASICModuleSBX ARSBX em. ManualInstall 6SBX em, AutoInstallSBX em* InstallIt\SBX em- UpdateButton4SBX em:SetStepNextStep@SBX em/ForwardClicked7ISBX em, BackClickedKQSBX AR SBX ARBM<  MN InstallSC`^' Wurde Installation durch ffnen des Dokuments gestartet? Dim lAutoInstall as Boolean ' Installation automatisch nach ffnen des Dokuments Sub AutoInstall lAutoInstall = True InstallIt() End Sub ' manuelle Installation: durch Anwender gestartet Sub ManualInstall lAutoInstall = False InstallIt() End Sub ' Installationsdialog starten und schliessen Sub InstallIt InstallDlg.Load() SetStep(Iif(lAutoInstall, 1, 2)) InstallDlg.Show() InstallDlg.Unload() End Sub ' Step des Dialoges festlegen Sub SetStep(NextStep%) InstallDlg.CurrentStep = NextStep% UpdateButton() End Sub ' Knpfe aktualisieren: "Zurck" nur anbieten, wenn berhaupt mglich Sub UpdateButton ' Currentsteps: ' 1: Begrssung nach automatischem Start ' 2: erste Seite der eigentlichen Installation ' 3: Installation abgeschlossen ' 4: Installation fehlgeschlagen If InstallDlg.CurrentStep < 3 Then If InstallDlg.CurrentStep = 1 Then ' von erster Seite geht's nie zurck! InstallDlg.Back.Enabled = False Else ' von zweiter Seite nur zurck, wenn automatische Installation InstallDlg.Back.Enabled = lAutoInstall End If ' Weiter sollte es immer gehen InstallDlg.Forward.Caption = "&Weiter >>" Else ' Installation abgeschlossen/fehlgeschlagen: Dialog schliessen, zurck mglich InstallDlg.Back.Enabled = True InstallDlg.Forward.Caption = "&Schliessen" End If End Sub Sub ForwardClicked Select Case InstallDlg.CurrentStep Case 1 If InstallDlg.StartInstall.Value Then SetStep(2) Else InstallDlg.Hide() End If Case 2 If Application.AddLibrary(ActiveDocument.FullName, 0, True, "HiThere") Then SetStep(3) Else SetStep(4) End If Case Else ' Fertig, Dialog schliessen InstallDlg.Hide() End Select End Sub Sub BackClicked If InstallDlg.CurrentStep = 4 Then SetStep(2) Else SetStep(InstallDlg.CurrentStep - 1) End If End SubPCE E  +    +   BB    +  +%  B Gf&  BG1(    EK+    .   AE1    2   A4+78  '9BE:   G;B E=  >E|?BEl@   B A GTAB EdCB DE|G  (I+KL  BGMB EO  B Q++ST# (6<GLPX]bir~ "',8lAutoInstallAutoInstallTrueInstallItManualInstallFalseInstallDlgLoadIifSetStepPAR2ShowUnloadNextStepCurrentStepUpdateButtonBackEnabledForwardCaption&Weiter >>&SchliessenForwardClickedStartInstallValueHideApplicationActiveDocumentFullNameHiThereAddLibraryPAR3PAR4PAR5BackClicked2c%bqqࡱ>