PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 20511 | 03/10/30 15:16:39 | RE(2):PB7.0: データウィンドウ内のデータのドラッグ＆ドロップは可能でしょうか？ By hiron |
| 20509 | 03/10/29 17:16:34 | RE(1):PB7.0: データウィンドウ内のデータのドラッグ＆ドロップは可能でしょうか？ By caramel-box |
| 20485 | 03/10/23 10:53:05 | PB7.0: データウィンドウ内のデータのドラッグ＆ドロップは可能でしょうか？ By ひろんあっき |
カテゴリ：スクリプトの記述
日付：2003年10月29日 17:16 発信者：caramel-box
題名：RE(1):PB7.0: データウィンドウ内のデータのドラッグ＆ドロップは可能でしょうか？
ひろんあっきさん、こんにちは。
例
dw_1からdw_2へのドラッグ＆ドロップ
1.dw_1のプロパティのドラッグアイコンを設定
2.dw_1にユーザイベントを追加（イベントIDをpbm_mousemove）
3.追加したイベントに以下のスクリプトを記入
Long ll_row
ll_row = This.GetSelectedRow(0)
IF ll_row > 0 and flags = 1 THEN
This.Drag(Begin!)
END IF
4.dw_2のdragdropイベントに以下のスクリプトを記入
datawindow ldw_Source
Long ll_row
Long ll_row2
IF source.TypeOf() <> DataWindow! THEN Return
ldw_Source = source
IF ldw_Source.DataObject <> \"xxxxxxxxxx\" THEN Return //xxxxxxxxxxはdw_1のデータオブジェクト名
ll_row = ldw_Source.GetSelectedRow(0) //選択行を取得
ll_row2= This.InsertRow(0) //行追加
This.SetItem(ll_row2,\"xxx\",ldw_Source.GetItemString(ll_row,\"zzz\")) //dw_1の\"zzz\"をdw_2の\"xxx\"に
セット
こんな感じで出来ると思います。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.