• このフォーラムは、www.cad3d.it/forum1 - イタリアのデザインコミュニティの機械翻訳です。いくつかの用語は正しく翻訳されていません。

vba でフィールド「入力リクエスト」を記入

  • Thread starter Thread starter Adahm
  • Start date Start date

Adahm

Guest
全てに

紙工場の「必須入力」フィールドをvbaコードで記入する方法はありますか?

脂肪: アルコール:
 
こんにちは。
今練習する時間がないのですが、ここで考える: e qui:明日は目指せてほしい。

お問い合わせ
 
私は上記のリンクで見つけたものに基づいて、私のテストから、この修正版(私は setpromptresulttext で行を追加)、テキスト関数を埋めます。
Code:
odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1'otb1 は titleblocks を参照します。
svalue を文字列として

odrawdoc = このアプリケーション.activedocument
osheet = odrawdoc.activesheet
oborder = osheet.border の
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock

odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
tb.formattedtext.startswith("<prompt readonly") の場合、
svalue = otb1.getresulttext(tb)
messagebox.show("property field:"&tb.text&vbcrlf&"value:"&svalue&vbcrlf&"prompted entry:"&tb.formattedtext、"prompted entry")

otb1.setpromptresulttext(tb、 "test riuscito")

端 もし
次へ
 
ilogic、vbaバージョン
Code:
サブメイン()


odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1 'otb1 は titleblocks を参照します
svalue を文字列として
stext を文字列として定義する

odrawdoc = thisapplication.activedocument を設定する
osheet = odrawdoc.activesheet を設定する
oborder = osheet を設定します。 ログイン
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock の設定


odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
テキスト = tb.formattedtext
strings.instr(stext) の場合、<prompt <="" readonly")=""> 0 それから
svalue = otb1.getresulttext(tb)
'messagebox.show("property field:"&tb.text&vbcrlf&"value:"&svalue&vbcrlf&"prompted entry:"&tb.formattedtext、"prompted entry")

コール otb1.setpromptresulttext(tb、 "test riuscito")

端 もし
次へ
エンドサブ</prompt>
 
お問い合わせ
もう一度読む喜びは何ですか。
情報のおかげで、私は遭遇しましたが、それはうまくいくことができませんでした。

ステートメントが意味するもの:
Code:
dim otb1 'otb1 は titleblocks を参照します
変数の型を指定しない?
割り当て行を実行できません。
Code:
コール otb1.setpromptresulttext(tb、 "test riuscito")
彼は言う: 「ルーチンコールまたは引数が有効でない」。
書店は必要ですか?

最後に、ilogicとvbaバージョンの2つのコードは等しいか間違っていますか?
お問い合わせ
 
その後、私は(ストピュッピドを言わない)と言うだろう。
dim otb は "base" オブジェクトを宣言します。実際には、vba エディタは " を置くときに何も提案しません。
宣言できます:
タイトルブロックとしてのdim otb

ルーチンがわからないので、オペレーティングシステムと発明者2022の非常に新鮮なインタレーションを持っているので、特定のライブラリが含まれているべきではありません。 多分あなたに働く最もexplicitステートメントで、しかし私はなぜ相違がなぜか正確に知りません!


最後に、ilogicとvbaバージョンの2つのコードは等しいか間違っていますか?
お問い合わせ
はい、構文の違いだけがあります: vba はオブジェクトの代入の set コマンドを望んでおり、呼び出しコマンドと最終的に(そう)検索関数文字列です。

これは、上記ですが、明示的な声明で、vbaで動作しています: 私はテーブルを作成しました、私は、入力要求とコードの開始を行うフィールドがあることを願っています
Code:
サブメイン()


odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1 は titleblock の 'otb1 参照として titleblocks
svalue を文字列として
stext を文字列として定義する

odrawdoc = thisapplication.activedocument を設定する
osheet = odrawdoc.activesheet を設定する
oborder = osheet を設定します。 ログイン
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock の設定


odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
テキスト = tb.formattedtext
strings.instr(stext) の場合、<prompt <="" readonly")=""> 0 それから
svalue = otb1.getresulttext(tb)
'messagebox.show("property field:"&tb.text&vbcrlf&"value:"&svalue&vbcrlf&"prompted entry:"&tb.formattedtext、"prompted entry")

コール otb1.setpromptresulttext(tb、 "test riuscito")

端 もし
次へ
エンドサブ</prompt>
行く方法を教えてください。
 
私はまた、明示的なステートメントを作るしようとしましたが、結果は同じです。
バージョン21を使用しています。
テキスト名を見ている線で「」を使う<prompt "<="" "foglio",="" che="" con="" ho="" io="" readonly"="" senza="" sostituito="">お問い合わせ
「<」を最初に入れたのはなぜですか? 理由はありますか?

テキストに「シート」のみを入れていましたが、これを見つけました </prompt>ニュース 「<>」という文字の存在や存在について議論する。それから私は「<foglio>お問い合わせ
私は書いたが、コードで:</foglio>
Code:
strings.instr(stext) の場合、<prompt <="" readonly")=""> 0 それから</prompt>
実際には、それが見つけたとき、それは条件付きコードを実行するので、それが動作するように思われます。
しかし、それが来るとき:
Code:
コール otb1.setpromptresulttext(tb、 "test riuscito")
停止します。

ネット上では、 setpromptresulttext の他の例があり、様々なテキストや構文を編集するには、数年前に物事も同じように見えるので、バージョンの問題ではないと思います。
 
私はまた、明示的なステートメントを作るしようとしましたが、結果は同じです。
バージョン21を使用しています。
テキスト名を見ている線で「」を使う<prompt "<="" "foglio",="" che="" con="" ho="" io="" readonly"="" senza="" sostituito="">お問い合わせ
「<」を最初に入れたのはなぜですか? 理由はありますか?</prompt>
メッセージボックス行を有効にすると(正しい構文のvbaの下、他の違い!)
msgbox(プロパティフィールド: "&tb.text&vbcrlf&"値: "&svalue&vbcrlf&"入力エントリ: "&tb.formattedtext)

その書式化されたテキストは異なり、 xml 文字列を使用して、タイプフォント、サイズ、およびさまざまなタグを定義します。 今、私は一番下に来ていませんが、これらのタグの 1 つが、必要な入力 (入力されたエントリ) を見つけるのに役立ち、初期 "<" は xml のデミレータです。

読み方のみを調べると、エラーが出てくるので、読み込み専用では書きません。 お問い合わせ 例: "<prompt readonly" を探しの代わりに、" 値の入力" (私のプロパティフィールドの名前) を検索して、モデルからデータを取り、それで編集できない "description" ではなく "description" を検索すると、エラーが発生します。
 
msgbox の行を有効にした場合、この結果が得られます。
プロパティフィールド: フォグリオ
値: foglio
プロンプトエントリ: foglio
tb.formattedtext の値が他の人のように常に "シート" であるように見えます。
私はフィールドとどのように私はそれを呼んだかを示すためにあなたに写真のカップルを添付します, 多分あなたは私が間違っている場所を知っている.

私はまた、xlmで何かをしたコードを見つけました, 私は、私がアクティブにライブラリ "microsoft xml, v6.0" を必要とするコマンドラインで, しかし、私はそれが動作することができませんでした.

別の状況では、コマンドを使用します。
Code:
osheet.addtitleblock (onewtitleblockdef、spromptstrings) を呼ぶ
活性シートに軟骨を交換します。
spromprstring 変数は、"input request" のフィールドに埋めるために、カトリグリオに渡る値が保存される配列型の変数です。 そこには作品があります。 そのため、コードとしてできることと、同じことが読まれないということです。
私は間違っていますか?
 

Attachments

  • Immissione richiesta.JPG
    Immissione richiesta.JPG
    37.9 KB · Views: 3
  • Testo campo.JPG
    Testo campo.JPG
    74.2 KB · Views: 3
敏感なデータから自然にきれいにされたペーパーが付いているシートを、私の機械で試すために貼ることができますか。 コード、製紙、または何かの問題かどうかを確認する 私は私が私のテストでしたのと同じことをしたと言っています。
私に何が出てくるか:1650612107109.png1650612130770.png1650612281558.pngこのコードを使って(返済)
Code:
サブメイン()


odrawdocをdrawdocumentとして
シートとして dim osheet
発明者としてのdim tb。 テキストボックス
境界線としての境界
ボーダーデフはボーダーデフィンションとして
dim otb1 は titleblock の 'otb1 参照として titleblocks
svalue を文字列として
stext を文字列として定義する

odrawdoc = thisapplication.activedocument を設定する
osheet = odrawdoc.activesheet を設定する
oborder = osheet を設定します。 ログイン
ボーダーデフ = oborder.definition
otb1 = osheet.titleblock の設定


odrawdoc.activesheet.titleblock.definition.sketch.textboxesの各tbのために
テキスト = tb.formattedtext
'if strings.instr(stext), "<prompt <="" readonly")=""> 0 それから
strings.instr(stext, "prompt") <> の場合 0 それから
svalue = otb1.getresulttext(tb)
msgbox(プロパティフィールド: "&tb.text&vbcrlf&"値: "&svalue&vbcrlf&"入力エントリ: "&tb.formattedtext)

コール otb1.setpromptresulttext(tb、 "test riuscito")

端 もし
次へ
エンドサブ</prompt>
 
何が問題だったか気づいた!
カスタム入力欄の名前は「シート」でした。
問題は、私が「シート」と呼ぶラベルであっても、そのプログラムがスケッチに存在するテキストをスクロールするので、ラベルに止まったので、ラベルが読みやすく、値を変更できません。
そのため、すべてのバージョンでコードがうまくいきました。また、以前に試したコードも問題ありません。
あなたの時間を浪費するために私を許しますが、少なくとも私は問題を解決しました。
お問い合わせ
 

Forum statistics

Threads
46,674
Messages
380,976
Members
2
Latest member
loop80
このフォーラムは、www.cad3d.it/forum1 - イタリアのデザインコミュニティの機械翻訳です。いくつかの用語は正しく翻訳されていません。

Members online

No members online now.
Back
Top