システムwiki

フォームのリストボックスにPDFファイル名を表示する

Rev12 解決済 最終更新日:2021-06-14 04:04

こんにちは専門家

私のフォームの私のリストボックスにPDFファイル名を見ることができる方法はありますか?

誰もがここでスレッドから検索しようとするのに役立ちますが、運がなかったのですが.

rev12

返信リスト(回答:7)

7 #
DanielP 2

あなたはを使うことができます DIR機能 ファイルをループしてリストボックスに追加するには.リストボックスをに切り替えるのを忘れないでください 値リスト行ソースの種類とフォームのロードイベントを使用して、すべてを入力します.

プライベートサブフォーム名()
Error goto error_handler
DIM SPATHとして文字列としての
DIM SFILEとして文字列

spath= "c:\users\daniel\documents \"
sfile= dir(spath&"*.pdf")
sfile<>vbnullstring
sfile<>"の場合」そしてSFILE<>".."それから
me.yourlistboxName.additem sfile

の場合は終了 sfile= dir
ループ

error_handler_exit:
次の
SUB

を終了します

error_handler:
msgbox "次のエラーが発生しました"&vbcrlf&vbcrlf&_
"エラー番号:"&err.number&vbcrlf&_
"エラー出典:form_load"&vbcrlf&_
"エラー説明:"&err.description&_
スイッチ(ERL= 0、 ""、ERL<>0、VBCRLF&"行番号:"&ERL)_
、vbokonly + vbcritical、 "エラーが発生しました！"
RESUME ERROR_HANDLER_EXIT
終了SUB

また、これは単純なリストのために機能しますが、多くのファイルがある場合は、最初にファイル名をtableにプッシュし、それでもリストボックスを入力するためのtableを使用する必要があります.

応答7# ->にスキップ
6 #
Rev12

下のコンパイルエラーに欠けているものをお願いしますか?

行ソースタイプのタブで見つかった場合は?

プライベートサブフォーム名()
Error goto error_handler
薄暗い ストリングとして
Dim Sfile ストリングとして
spath= "c:\testfile \"
sfile= dir(spath&"*.pdf")
sfile<>vbnullstring
sfile<>"の場合」そしてSFILE<>".."それから
Me.txtListFilenames.Additem SFILE<<

-ここでのハイライト「エラー:メソッドまたはデータ」 メンバーが見つかりません "

の場合は終了 sfile= dir
ループ

..............................

応答6# ->にスキップ
5 #
DanielP

TXTListFileNamesはあなたのリストボックスの名前ですか?

応答5# ->にスキップ
4 #
Rev12

はい、それは私のリストボックスの名前ですか?

プロパティタブで見つけることができる行ソースはどうですか?

ありがとう

応答4# ->にスキップ
3 #
Rev12

リストボックス名を修正する必要がありますか?

rev12

応答3# ->にスキップ
2 #
DanielP 1

見て解剖をしてください https://www.devhut.net/wp-content/uploads/2018/05/listpdfs_demo.zip.

√
応答2# ->にスキップ
1 #
Rev12

あなたのとても親切な助けを借りてくれてありがとう.

私はそれを作業しました、そして、私はちょうどTXTBOXを代理版の代わりに

の代わりにしていました

これでTXTBOXをLstBoxに変更して、それは動作します.

もう一度ありがとう.

√

関連質問