개발 참고자료

Click이벤트
Colored By Color Scripter™


Long ll_selrow,ll_rtn




IF This.rowcount() > 0 AND row > 0 THEN


IF KeyDown(KeyShift!) THEN


ll_selrow = This.GetSelectedRow(0)


IF ll_selrow > 0 THEN


FOR ll_rtn = Min(ll_selrow,row) TO Max(ll_selrow,row)


This.Selectrow(ll_rtn,True)


NEXT


END IF


ElseIF KeyDown(KeyControl!) THEN


IF This.IsSelected(row) THEN


This.SelectRow(row,False)


ELSE


This.SelectRow(row,True)


END IF


ElseIF This.IsSelected(row) THEN




ElseIF Not This.IsSelected(row) THEN


This.SelectRow(0, False)


This.SelectRow(row,True)


END IF


END IF





shift눌렀을때 ctrl눌렀을때 개별로 눌렀을때 나눠서 코딩해줘야 함


선택한 라인 작업할때에는


do while 문으로 돌리고 GetSelectedRow(0)으로 0이 나올때까지 돌리면 선택한 로우를 가져올 수 있다