PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 21622 | 04/11/30 15:56:28 | RE(2):PB7.0: ClickとDragの識別について By hian |
| 21617 | 04/11/25 20:49:10 | RE(1):PB7.0: ClickとDragの識別について By yoshiki |
| 21614 | 04/11/25 15:06:41 | PB7.0: ClickとDragの識別について By hian |
カテゴリ：スクリプトの記述
日付：2004年11月25日 20:49 発信者：yoshiki
題名：RE(1):PB7.0: ClickとDragの識別について
hianさん、こんばんは。
[020485]の過去ログを参考に作ってみました。
Shift+クリックで選択はできませんが、クリックで選択し、ドラッグしてコピーはできました。
・dw_1からdw_2へのコピー
1.インスタンス変数定義
boolean lb_select
2.dw_1.clickedイベントの記述
IF IsSelected( row ) THEN
lb_select = FALSE
ELSE
lb_select = TRUE
SelectRow( row ,TRUE)
END IF
RETURN 1
3.dw_1にpbm_dwnlbuttonupを定義し、記述
IF lb_select = FALSE THEN
SelectRow( row ,FALSE)
END IF
4.dw_1にpbm_mousemoveを定義し、記述
long ll_row
ll_row = GetSelectedRow(0)
IF ll_row > 0 and flags = 1 THEN
Drag(Begin!)
END IF
5.dw_2.dragdropイベントに記述
datawindow ldw_Source
long ll_row
long ll_row2
long ll_cnt
IF source.TypeOf() <> DataWindow! THEN
RETURN
END IF
ldw_Source = source
IF ldw_Source.DataObject <> \"d_test\" THEN
RETURN
END IF
ll_row = ldw_Source.RowCount()
FOR ll_cnt = 1 TO ll_row
IF ldw_Source.IsSelected( ll_cnt ) THEN
ll_row2 = InsertRow(0)
SetItem( ll_row2,\"aaa\", ldw_Source.GetItemString(ll_cnt, \"aaa\") )
END IF
NEXT
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.