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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.