[Gelöst] Problem mit CheckBox

[CamuelSpenser]

Ahoi, hab hier ein kleines Problem das sich in mein Makro eingeschlichen hatt..

Hier erstmal der Code :

Code: Alles auswählen

REM  *****  BASIC  *****
REM Sichtkanten Makro
Option Explicit
Sub Sichtkanten(oEvent)
dim oAuslesen, oDocument, oSheet(5) as Object
dim oDraw(5), oForm(5), oControler  as Object
dim oCheckBox                       as Object  
dim iSicht, Z, I                    as Integer
dim oCBLib, oLib, oRan, sTesT       as String 
	oAuslesen     = oEvent.Source.Model.Name
	oDocument     = StarDesktop.CurrentComponent
	oSheet(0)     = oDocument.Sheets.GetByName("Plattenerfassung")
	oSheet(1)     = oDocument.Sheets.GetByName("Granit Modul")
	oSheet(2)     = oDocument.Sheets.GetByName("Durabo Modul")
	oSheet(3)     = oDocument.Sheets.GetByName("GlassStone Modul")
	oSheet(4)     = oDocument.Sheets.GetByName("HILFSTABELLE2")
	oSheet(5)     = oDocument.Sheets.GetByName("Bestellformular")
	oDraw(0)      = oSheet(0).DrawPage
	oDraw(5)      = oSheet(5).DrawPage
	oForm(0)      = oDraw(0).Forms.GetByIndex(0)
	oForm(5)      = oDraw(5).Forms.GetByIndex(0) 
	oControler    = oDocument.GetCurrentController
	Select Case Val(Right(oForm(0).getByName(oAuslesen).Name,1))
		Case 1	:	Z = 11 : oRan = "$B$2"  : oLib = "$F$2"
		Case 2	:	Z = 12 : oRan = "$H$2"  : oLib = "$L$2"
		Case 3	:	Z = 13 : oRan = "$B$7"  : oLib = "$F$7"
		Case 4	:	Z = 14 : oRan = "$H$7"  : oLib = "$L$7"
		Case 5	:	Z = 22 : oRan = "$B$13" : oLib = "$F$13"
	End Select
	sTest     = "Check Box " & Z
	oCheckBox = oControler.GetControl(oForm(5).GetByName(sTest))
	iSicht    = Val(oSheet(4).GetCellRangeByName(oRan).String)
	oCBLib    =     oSheet(4).GetCellRangeByName(oLib).String
	If iSicht > 1 Then
		If not(oSheet(1).GetRows().GetByIndex(Z).isVisible) Then
			For I = 1 To 3
				oSheet(I).GetRows().GetByIndex(Z).isVisible = True
			Next I
			oCheckBox.State = 0
		End If
	Else
		If oSheet(1).GetRows().GetByIndex(Z).isVisible Then
			For I = 1 To 3
				oSheet(I).GetRows().GetByIndex(Z).isVisible = False
			Next I
			oCheckBox.State = 1
		End If
	End If
End Sub

Beim Ausführen des Codes bekomme ich folgende Fehlermeldung :

BASIC-Laufzeitfehler.
Es ist eine Exception aufgetreten
Type : com.sun.star.container.NoSuchElementException
Message : .

In folgender Zeile :

Code: Alles auswählen

oCheckBox = oControler.GetControl(oForm(5).GetByName(sTest))

Nur versteh ich nicht warum ich nun die Fehlermeldung bekommen, weil in nem anderen Makro benutz ich genau die gleiche Funktion um danach die oCheckBox.State zu überprüfen.

Nun hier will ich schlussendlich wenn ich diese Fehlermeldung überwinden kann...
die CheckBox Sichtbar/Unsichtbar machen
den Text der CheckBox ändern und
die CheckBox Checken/Unchecken

*****
Nebenbei werden auch Zeilen in 3 anderen Blättern Versteckt/resp. angezeigt dies funktionniert tadellos und wurde auch gestestet bevor ich die CheckBox eingebaut habe.

Ps Datei im Anhang

[balu]

Hallo CamuelSpenser,

nachdem ich den Namen von 5 CheckBoxs überprüft hatte, hatte ich keine Lust mehr weiter nach deinem Problem zu suchen. Denn ich muss dich ernsthaft fragen:
"Willst Du dich selber verarschen?"

Wie soll das Makro z.B. die Check Box 11 finden, wenn Du 20 mal Check Box 1 hast?
Und auf die nächste Frage werde ich dir selber antworten.
Wo um Himmelswillen ist denn die Check Box 11?
Antwort.
Die gibt es nirgendwo! Die existiert nicht!
Damit nicht genug. Ich brauchte nur 20 sekunden um festzustellen das Du in der Datei insgesammt 21 CheckBoxs mit der Nummer 1 hast. Also 20 mal in ein und demselben Blatt, und 1 mal auf einem anderen Blatt.

Also wenn Du 21 mal Check Box 1 hast, dann wird es auch keine Check Box 12, Check Box 13 ... geben.

Nur, ob das dein Problem lösen wird, weiß ich noch nicht. Bring das mit den CheckBoxs und deren Nummer erstmal in Ordnung, dann sehen wir (Du) weiter.
Viel Spaß dabei .



Gruß
balu

[CamuelSpenser]

hoppla mein Fehler hatte vergessen in der Beispiel-Datei die CheckBox Namen zu ändern ^^

Hab dies nun korrigiert und im Anhang ist nun die Richtige Datei mit den umbenannten Checkboxen

Nun das Problem hatt sich hierdurch allerdings nicht erledigt, bekomme weiterhin die gleiche Fehlermeldung.. hat also leider nicht geholfen.

In der Richtigen Datei haben die CB's alle die korrekten Namen.

Hab auch schon bissle rumgetestet aber leider keine Lösung gefunden ^^

Um noch ein paar Erklärungen dazu zu geben also :

- Auslösende Elemente sind die 5 DropDown Listen im Blatt "Plattenerfassung"
- Zeilen werden manipuliert in den 3 Modul Blättern (dies funktionniert)
- CheckBox'en betreffen die 5 ersten auf dem Blatt "Bestellformular" hinter APL-Kantentyp



Lg Camuel


Edit :

Hab ma was getestet und zwar wenn ich das ganze so eingebe :

Code: Alles auswählen

oTest     = oForm(5).GetByName("Check Box 11")
	oCheckBox = oControler.GetControl(oTest)

müsste er doch eigentlich schon bei dei oTest = .... -Zeile rummeckern,dass es das Objekt nicht gibt oder? ... Die Fehlermeldung bleibt weiterhin der gleichen Zeile bei oCheckBox = ....

[balu]

Hallo CamuelSpenser,

ich blick momentan auch noch nicht so richtig durch. Aber ich geb dir mal Hausaufgaben auf, damit Du selber durch beobachten und experementieren vielleicht etwas feststellst.

Schneide deine betroffenen CheckBoxen aus, also nicht markieren und kopieren, sondern markieren und ausschneiden, und füge diese dann im Blatt "Plattenerfassung" irgendwo unterhalb der Zeile 25 ein.

Ändere im Makro folgende Zeile

Code: Alles auswählen

	oSheet(5)     = oDocument.Sheets.GetByName("Bestellformular")

auf das hier ab.

Code: Alles auswählen

	oSheet(5)     = oDocument.Sheets.GetByName("Plattenerfassung")

Und nun klicke die List Box 1 (auf der Zelle A25) an, und wähle einen Eintrag aus. BEOBACHTE die eben eingefügten CheckBoxen!

Wie dein Problem abgestellt werden kann, weiß ich nicht, da ich mich mit der Drawpage noch nicht so auskenne.

dass es das Objekt nicht gibt

Ich sage erst mal nur so viel: Das Objekt gibt es!



Gruß
balu

[CamuelSpenser]

Ahoi balu

So hab eben mal nen Test gewagt wie du es beschrieben hast.... und siehe da es funktionniert wie du gesagt hast
Und genauso wie du gesagt hast es Existiert....nur nicht da wo es soll >.<

also "muss" das Problem bei der Verlinkung auf das Bestellformular auftreten wenn ich das jetzt richtig verstehe... was genau Draw.Page eigentlich bewirkt weiss ich selbst nicht?..
Hab nur gemerkt dass es an manchen stellen benötigt wird, da ich sonst die weiteren Funktionen nicht weiter nutzen kann...

Jetzt muss ich noch weiter nachforschen wie ich diese Problem nun beheben kann... ^^

********
Kurze Frage Nebenbei... hab in nem weiteren Makro ein kleines Problem und zwar :

Code: Alles auswählen

REM oAuslesen = oEvent.Source.Model.Name 
REM diese Zeile funktionniert in mehreren Makro's nur in diesem nicht, bekomme die fehlermeldung : "Falsche Verwendung eines Objektes"
REM jedoch funktionniert folgende Zeile Problemlos
oAuslesen     = val(right(oEvent.Source.Model.Name,1))
REM oAuslesen war Anfangs als Object definiert aber da ich damit diverse Probleme hatte hab ich es als Integer definiert

Lg Camuel

[balu]

Hallo CamuelSpenser,

und siehe da es funktionniert wie du gesagt hast

Hab ich nirgendwo erwähnt oder gesagt.
Aber schön und gut das Du wohl meine Beobachtungen bestätigen kannst.

also "muss" das Problem bei der Verlinkung auf das Bestellformular auftreten wenn ich das jetzt richtig verstehe

Nein!
Es geht nicht um die Verlinkung, das ist ja wohl was ganz anderes, sondern um das richtige ansprechen eines entfernten Objekts welches sich nicht auf der gleichen Drawpage befindet von wo es angesprochen wird. So seh ich das zumindest.

was genau Draw.Page eigentlich bewirkt weiss ich selbst nicht?

Dannenhoefer?
Aber davon abgesehen, alle Zeichenelemente, seis ein gezeichnetes Rechteck oder eine Listbox, befinden sich nicht in der Zelle, sondern auf der Zelle (auch wenn man sie in den Hintergrund stellen kann). Und diese besondere Ebene ist die Drawpage. Und um nun ein solches Element, z.B. Rechteck, ansprechen zu können gibt es diesen Befehl (oder wie auch immer).

Kurze Frage Nebenbei

Ich werd nich so recht schlau daraus welche Sub Du in deinem Makro meinst.
Aber ein genereller Tipp: Besorg dir xray! Weiteres dazu steht hier im Forum.



Gruß
balu

[CamuelSpenser]

lol k man kann auch bissle aneinander vorbeireden (:

Also deinen Ratschlag n bissle beherzigend hab ich nochma was anderes versucht :

Code: Alles auswählen

	sTest     = "Check Box " & Z
	oTest     = oForm(5).GetByName(sTest)
	msgbox(oTest.State)

hier hab ich in der MessageBox den richtigen Wert stehen je nachdem ob die CheckBox gechecked oder unchecked ist. Heisst also, dass es mir sehr wohl gelingt die CheckBox anzusprechen jedoch, ist es mir nicht möglich die Kontrolle über eben diese zu Erlangen, folglich muss ich dir zustimmen dass es nicht an der Verlinkung liegt....

Okay danke für die Erklärung ;D

*grübel*

LG

[balu]

Na'bend CamuelSpenser,

lol k man kann auch bissle aneinander vorbeireden (:

Wie meinen? Ich nicht verstehn.


Bis das ich deinen Code verstanden habe, ist ne halbe Ewigkeit vergangen. In meinen Augen ist er stellenweise sehr unübersichtlich geschrieben. Aber nun gut, Du musst ja da den Durchblick behalten.

Ich habe aber dennoch das Problem gelöst , nach dem ich hier im Forum gesucht hatte und einen Thread gefunden hatte der mir den richtigen Denkanstoß gab.

IM Makro folgende Zeile

Code: Alles auswählen

	oCheckBox = oControler.GetControl(oForm(5).GetByName(sTest))

auf das hier ändern.

Code: Alles auswählen

	oCheckBox = oForm(5).GetByName(sTest)

Und nun sei Glücklich und Froh!


Gruß
balu

[CamuelSpenser]

uiiii vielen Danke balu bist mein Lebensretter :D

und besonders dein Tipp mit dem xRay-Tool war genial ^^

hatte nämlich nun auf Dannenhofer noch nachgeschaut wie ich ne CB verstecken kann, jedoch wie dort beschrieben geht es bei mir nicht ^^
hab jedoch bei Dannenhofer die Label funktion der CB gut erklärt vorgefunden
durch das xRay hab ich aber das gefunden was ich brauche dazu :

Code: Alles auswählen

sTest     = "Check Box " & Z
oCheckBox = oForm(1).GetByName(sTest)
oCheckBox.EnableVisible = True

btw ich weiss dass mein Code bissle zu wünschen übrig lässt, ist aber nicht so einfach wenn man unter Zeitdrucksteht ^^
muss Heute fertig werden und hab noch 6 Makro's von VBA zu StarBasic zu übersetzen

Ich danke dir aber vielmals für deine Hilfe

Lg Camuel