Ich hoffe, dass das nicht nötig sein wird [...]
Für sie wäre es eine Zumutung, wenn sie mit dem Menu arbeiten müssten. Sie können eben noch nicht lesen.
Nix für ungut, aber daran sieht man das Du dich erstens nicht mit dem beschriebenen Weg befasst hast, und zweitens nicht den tieferen Sinn verstehst. Soll vorkommen, bist ja ein "Ausländer"
Nein keine Beleidigung, sondern nur eine andere Interpretation von Excel-User.
Das was ich beschrieben habe, wird nur von dir durchgeführt. Und dies wird dann in der Datei gespeichert. Das wird einmalig gemacht, und dann ist das bis auf weiteres fest in der Datei verankert. Der Anwender der Datei kommt damit überhaupt nicht in Kontakt, er weiß das gar nicht das da was ist, so fern er sich nicht mit diesem Office auskennt. Also deine Bedenken sind fehl am Platz.
die VBA-Version ist schon lange fertig und funktioniert einwandfrei
[...]
Es scheint mir, dass der Fehler nicht mehr vorkommt.
*hust-hust-hust*
Tja, so einfach ist das mit dem Umschreiben von VBA Makros zu StarBasis doch nun mal halt nicht. Und ganz ehrlich und wahrhaftig gesagt, ich möchte nicht in deiner Haut stecken. Mir persönlich wäre das einfach zu viel des guten mich mit 2 ähnlichen Programmiersprachen und deren Unterschiede auseinander zusetzen.
Aber nix desto trotz, muss ich dich da dringend auf verschiedenes hinweisen.
Fangen wir im Makro selber an, und zwar ganz am Anfang im Module1.
Code: Alles auswählen
Global PfadLesenlernen, StringPfadUndNameVLCexe, VLCParameter, AktuellerPfad, Erweiterung As String
1.
Warum muss das Global sein?
2.
Unter Excel mag das durchaus so Okay sein. Aber nicht unter StarBasic.
Es gibt eine sehr sehr wichtige Regel.
Jeder Variable muss eindeutig ein Typ zugeordnet werden. Geschieht das nicht, so wird der dementsprechenden Variablen automatisch der Typ Variant zugeordnet. Und diese automatik kann unter Umständen zu argen Problem führen.
Es gibt wohl auch ne Ausnahme, z.B. Array, aber die scheint hier jetzt nich zu zutreffen.
Und folglich ist es wirklich Ratsam die Variablen deklaration wie folgt durchzuführen.
Code: Alles auswählen
Global PfadLesenlernen As String, StringPfadUndNameVLCexe As String, VLCParameter As String, AktuellerPfad, Erweiterung As String
Warum zerpflückst Du den CreateUnoListener?
Code: Alles auswählen
Sub StartCaesarHandler
Dim sPrefix As String
Dim sService As String
sPrefix = "Caesar_"
sService = "com.sun.star.awt.XKeyHandler"
oCaesarCurrCont = ThisComponent.CurrentController 'Globale Variable.'
oCaesarHandler = CreateUnoListener(sPrefix, sService) 'Globale Variable.'
oCaesarCurrCont.addKeyHandler(oCaesarHandler)
Print "Caesar angemeldet!"
End Sub
Verstehe den Sinn nicht.
Code: Alles auswählen
If ZeigeMsgBox then
print "Pfeil-nach-rechts-Taste mit dem Code " + Numero + "Umschalttaste mit dem Code " + iMod
End If
Module2.Auswahl
Ich weiß nicht ob das in VBA so sein MUSS, aber wenn Du in StarBasic eine Sub in einem anderen Modul aufrufen willst, reicht es ganz einfach den Sub Namen anzugeben. Das dementsprechende Modul muss nicht angegeben werden. Also so rum.
Code: Alles auswählen
If ZeigeMsgBox then
print "Pfeil-nach-rechts-Taste mit dem Code " + Numero + "Umschalttaste mit dem Code " + iMod
End If
Auswahl
Da ich mich ehern ein bischen besser in Calc als im Writer auskenne, höre ich jetzt mit der weiteren Code Analyse auf. Obwohl, doch noch nicht so ganz. Denn
Ich bekomme eine Fehlermeldung, aber ohne Programmabsturz, die auch etwas anderes besagt. Und zwar wenn ich z.B. die Pfeil Taste nach rechts bewegt habe und die daraufhin erscheinende Textmeldung "Pfeil-nach-rechts-Taste mit dem Code ...." mit Ok bestätige kommt dann das dabei raus.
- fehlermeldung.png (27.7 KiB) 4928 mal betrachtet
Das liegt wohl einerseits daran das ich nicht Win10 habe, und anderseits das dann der dementsprechende Pfad zum VLC nicht korrekt ist. Ich habe wohl den VLC, der ist aber nicht installiert sondern als Portable auf der Platte.
Auch wenn ich so gesehen das Falsche Betriebssystem habe, so solltest Du wohl am besten noch eine Fehlerüberprüfung einbauen ob überhaupt VLC installiert ist. Ist nur mal so ein laut gesprochener Gedanke meinerseits.
Wie auch immer, ich wünsche dir von Herzen viel Erfolg bei der Umsetzung deines Vorhaben.
Gruß
balu
