４つのテキストボックスにある文字をBASICでつなぎたいのです。

edit

暇人さん。いつもありがとうございます。
どうしようもない私にお付き合いくださって、感謝しています。

====

ご返答ありがとうございます。ほっとしています。
以前の質問に対して全くレスがつかないままなので心配してました。

＝＝＝＝
ひとつめ
＝＝＝＝

で、、これ↓ですが、
フォームで実施する「レイアウト作業」にとんでもないバグ？があるみたいです。

com.sun.star.container.NoSuchElementExceptionってどういうエラー？
そのForm1にCCという名前のコントロールはちゃんと存在していますか？

oField1 = oForm.getByName("AA")
oField2 = oForm.getByName("BB")

oField3 = oForm.getByName("CC")

フォーム内のレイアウトを修正するとき、
ラベルフィールドと、テキストボックスフィールドをグループ化して移動しますよね？
でないと、ひとつひとつ動かさねばならず、グチャグチャになります。

これやると、つまりグループ化をすると、
フィールドの名前が強制的に初期化されてしまうのです。

いろいろ試しましたが、テキストボックスの場合は、
必ず全てで再現するわけではなく、約半数のテキストボックスがそうなります。

ですが再現するテキストボックスは、何度試しても必ず初期化されます。
今回の場合、"AA" "BB" は初期化されず、"CC" が初期化されていました。

何度試しても、"CC" だけ、必ず名前が初期化されてしまいます。
他にもたくさんありましたが、マクロを設定しない限りは普通に動きます。

最悪なのはチェックボックスです。ほぼ１００％初期化されます。
探せば同じ症状のコントロールが他にもあるかもしれません。

いずれにしても、フォーム内のコントロールのグループ化をすべて解除し
消えていたコントロールの名前をつけ直したら、ここは通るようになりました。

＝＝＝＝
ふたつめ
＝＝＝＝
結局、うんうんと言いながら徹夜してしまいました。
文字の接続が、わかりません。

少しいじると、別のエラーが発生する繰り返しです。
わからないことだらけで降参です。教えてください。

現在は以下の状態です。
"AA" "BB" "CC" "DD" を空間無しで繋いで
"AABBCCDD" を oField4 に貼り付けたいです。

以下の左側 "@" で止まります。

BASIC ランタイムエラー.
'380'
プロパティ値が正しくありません。

と出ます。

デバッグがそこで止まるのと、
その先のデバッグの仕方がまるでわからず、"@"以下の行は検証できていません。

------------

------------

Sub ConcatAABBCCDD()

Dim oForm As Object

Dim oField0 As Object
Dim oField1 As Object
Dim oField2 As Object
Dim oField3 As Object
Dim oField4 As Object

Dim document As Object
Dim dispatcher As Object

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:RecRefresh", "", 0, Array())

oForm = ThisComponent.Drawpage.Forms.getByName("ABCDフォーム")
Doc = ThisComponent
DocCtl = Doc.getCurrentController()

oField0 = oForm.getByName("AA")
oField1 = oForm.getByName("BB")
oField2 = oForm.getByName("CC")
oField3 = oForm.getByName("DD")

oField4 = oForm.getByName("EE")

Dim AaBbCcDd As Object
Dim AaBbCcDdText(3) As String

@ AaBbCcDdText(0) = oField0
AaBbCcDdText(1) = oField1
AaBbCcDdText(2) = oField2
AaBbCcDdText(3) = oField3

AaBbCcDd = Join(AaBbCcDdText,"")

CtlView = DocCtl.GetControl(oField0, oField1, oField2, oField3, oField4)
CtlView.Text = AaBbCcDdText

dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:RecRefresh", "", 0, Array())

End Sub

==========

よろしくおねがいします。

ふたつめ

多分、型が違う

Dim AaBbCcDd As String ' 型をStringに変更
Dim AaBbCcDdText(3) As String

AaBbCcDdText(0) = oField0.Text
AaBbCcDdText(1) = oField1.Text
AaBbCcDdText(2) = oField2.Text
AaBbCcDdText(3) = oField3.Text

AaBbCcDd = Join(AaBbCcDdText,"")
CtlView.Text = AaBbCcDd '代入する変数を変更

だとどうです？あ、これらoField0とかはテキストボックスだと仮定しています。

MS OfficeのVBAだと、多分各コントロールにデフォルトプロパティが設定されていて、今回の代入文など、演算がオブジェクトの型を要求しないために処理が実行できないときは、そのデフォルトプロパティが利用されたものとして再度評価を行うような仕組みがあります。(文法からそのオブジェクト自身に対する演算なのか、デフォルトプロパティの内容に対する演算なのか判断できなくなってしまうため、VB6にはSet構文やIs演算子が必要になっているわけですね。VB.NETでも移行する者たちのため多分こういうものは使えるようになっていますが、デフォルトプロパティを前提としない設計を中心にしているせいか、これらの構文を全く使わなくても大丈夫なようになっているはずです) VBAからStarBasicに移行する人たちのためか、Option VBASupport 1のとき、一部だけ使えるようにしているのですが、StarBasicではこれらのコントロールにはデフォルトプロパティが設定されていないようです。個人的には初心者に媚びへつらっただけの悪い機能だと思っており、毎回ちゃんとTextプロパティを参照する形で書くことを勧めたいです。

これやると、つまりグループ化をすると、 フィールドの名前が強制的に初期化されてしまうのです。

気分に余裕のあるときに検証してみたいです。

以前の質問に対して全くレスがつかないままなので

自分は単純に答えがわからなかったんです。odsやodtのときは当該構文で出来るようなんですけどね… 実は一回手元で成功したんですが、その際IDEがクラッシュしてしまい、復元されてきたものに、成功したコードが含まれておらず、かつ、そのコードを再び書き上げることが出来ず、調査が難航しています。

あ、これらoField0とかはテキストボックスだと仮定しています。

↓↓ ご推察のとおりです。
全てテキストボックスです。

実は、教えていただいた以下ですが、既に試していました。
それでも同じ場所で止まってしまうのです。

DimAaBbCcDdAsString' 型をStringに変更

Dim AaBbCcDdText(3) As String

AaBbCcDdText(0) = oField0.Text
AaBbCcDdText(1) = oField1.Text
AaBbCcDdText(2) = oField2.Text
AaBbCcDdText(3) = oField3.Text

AaBbCcDd = Join(AaBbCcDdText,"")
CtlView.Text = AaBbCcDd '代入する変数を変更

これで出てくるメッセージは以下です。

BASIC ランタイムエラー.
'423'
Text

ちなみにエラーメッセージは変わっています。
型が Object のままだと、エラーメッセージは以下です。

BASIC ランタイムエラー.
'380'
プロパティ値が正しくありません。

ここで、更に試したことがあります。
Option VBASupport 1 をREMしてみました。

以下のようにメッセージ文が変わります
まさか、、Textプロパティ？メソッドが、無い？？？
なんてことは考えにくいと思うのですが。。

REM Option VBASupport 1 すると。
正しくありません。→見つかりません。に変わったのです？？？

BASIC ランタイムエラー.
次のプロパティまたはメソッドが見つかりません: Text。

自分はOption VBASupport 1は外して物事を考えることが多いです。今の実装だとエラーメッセージではなくエラー番号が出てしまいますし、前述のデフォルトプロパティのせいで本来の原因とは違うエラーメッセージが表示されたりして厄介なので。

次のプロパティまたはメソッドが見つかりません: Text

LibreOffice自体のC++のコードを読んだわけではありませんが、このプロパティが見つからないということは、「自分がその変数に代入されているものがテキストボックスだ誤解しているが、実は違うものが入っている」可能性があると考えてます。

自分なら、oField0をウォッチウィンドウに放り込んで中身を確認してみます。SupportedServiceNamesやImplementationNameが何になっているのか確認するわけですね。まぁ文字列とかだったらそのプロパティとかはないわけですが。

また、再現する最小限のファイルが作れ、個人情報等を含まず、俺に見られてもいいファイルを準備できるなら、そのファイルをどこかにアップロードして、「ちょっとhimajin100000さんや、実際のファイル提供するから再現するか、した場合何が原因か調べてくれんかのう？」という風にするのもアリです。まぁ解決できる保証はできないのですが。