PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 1050 | 98/03/26 17:56:57 | RE(13)::複数ファイル処理です By てとらぽっと |
| 1047 | 98/03/26 10:26:10 | RE(12):複数ファイル処理です By nari |
| 1046 | 98/03/26 10:22:49 | RE(11):なんとかできました＆サンプルスクリプト By nari |
| 1042 | 98/03/25 16:59:36 | RE(10):複数ファイル処理です By てとらぽっと |
| 1040 | 98/03/25 16:40:01 | RE(9):おめでとうございます！！！ By Taka |
| 1039 | 98/03/25 16:10:31 | RE(8):なんとかできました＆サンプルスクリプト By てとらぽっと |
| 1024 | 98/03/24 22:15:40 | RE(7):pbm_dropfiles がアヤシイと思う By Taka |
| 1018 | 98/03/24 18:25:02 | RE(6):MDIフレームにファイルをドロップしたい(APIの質問) By nari |
| 1017 | 98/03/24 18:22:33 | RE(5):MDIフレームにファイルをドロップしたい(APIの質問) By nari |
| 1006 | 98/03/24 12:20:36 | RE(4):コールできました、あ、エラー? By てとらぽっと |
| 992 | 98/03/23 18:56:28 | RE(3):コールできました、あ、エラー? By Taka |
| 987 | 98/03/23 18:26:45 | RE(2):コールできました、あ、エラー? By てとらぽっと |
| 970 | 98/03/23 13:01:28 | RE(1):ムム、やってますね? By Taka |
| 967 | 98/03/23 12:09:31 | MDIフレームにファイルをドロップしたい(APIの質問) By てとらぽっと |
カテゴリ：旧電子会議室
日付：1998年03月25日 16:59 発信者：てとらぽっと
題名：RE(10):複数ファイル処理です
いえいえ、Takaさん方のご回答を見て、これはぜひとも動かさねば!!と
やる気が沸いてきました。(^^)
＞ファイルインデックスの数だけ、ループの中で拾っていけば良いのでしょうか。
はい。あらためて、複数ファイル処理のスクリプトです。
-- 外部関数の宣言 ------------------------------------------------------------
Function long DragAcceptFiles(long handle, boolean fAccept) library \"SHELL32.DLL\"
Function long DragQueryFileA( long hDrop, long iFileIndex, ref string szFileName, long cch) library \"SHELL32.DLL\"
SUBROUTINE DragFinish(long hDrop) library \"SHELL32.DLL\"
-- Open（等、初期化）のイベント --------------------------------------------------
DragAcceptFiles(Handle(This), True)
-- イベントID pbm_dropfiles ------------------------------------------------------
string ls_FileName
long ll_hDrop
long ll_BufSize
long ll_FileIndex
long ll_IndexCount, ll_idx
ll_hDrop = Message.WordParm
ls_FileName = \"\"
//0xFFFFFFFF=4294967295...PBで16進数って指定できますか？
ll_IndexCount = DragQueryFileA(ll_hDrop, 4294967295, ls_FileName, 0)
for ll_idx = 1 to ll_IndexCount
ll_BufSize = 255
ls_FileName = Space(ll_BufSize)
ll_FileIndex = ll_idx - 1
DragQueryFileA(ll_hDrop, ll_FileIndex, ls_FileName, ll_BufSize)
//テスト
MessageBox(string(ll_FileIndex), ls_FileName)
next
DragFinish(ll_hDrop)
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.