PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
24497 | 17/04/17 09:19:46 | PB12.1: ドラッグ&ドロップについて By りょうや |
カテゴリ:スクリプトの記述
日付:2017年04月17日 09:19 発信者:りょうや
題名:PB12.1: ドラッグ&ドロップについて
いつもお世話になっております。
早速なのですが、やりたい事は、ExcelシートやDWシートを
ドラッグ&ドロップし、データウィンドウに張り付ける方法ですが
クライアントPCによって、できるPCと出来ないPCがあります。
クライアントPCのWin10、7の違いやOS 64bit 32bitの違い、スペックの問題かと思いましたが
どうも違うようです。
ue_dragdropに以下のように記述しています。どなたかわかるようでしたら
ご教授の程、よろしくお願いします。
integer file_cnt, i
string ls_fullpath
file_cnt = DragQueryFileA(message.wordparm,-1,ls_fullpath,255)
for i = 0 to file_cnt - 1
ls_fullpath = space(255)
DragQueryFileA(message.wordparm, i, ls_fullpath, 255)
dw_3.insertrow(0)
integer dw_3cnt
dw_3cnt = dw_3.rowcount()
dw_3.SetItem(dw_3cnt, "登録元パス", ls_fullpath)
dw_3.SetItem(dw_3cnt, "削除フラグ", 0)
string filenm
filenm = RIGHT(ls_fullpath, len(ls_fullpath)-LastPos ( ls_fullpath, "\"))
dw_3.SetItem(dw_3cnt, "ファイル名", filenm)
dw_3.ScrollToRow(dw_3cnt)
next
付加情報:
PowerBuilder Version 12.1
Client SoftWare
OS Windows7
DBMS Oracle Net 10
Browser (記載なし)
Server SoftWare
OS その他
DBMS Oracle11g
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.