组合键 应用

[old_chen]

PB程序：
我有一张表，单击鼠标选择一行，如果按下CTRL键后点击则选择多行，如何编写程序？

[sugarcubes]

If KeyDown ( keycontrol! ) Then
If This.IsSelected(row) Then
This.SelectRow(row,False)
Else
This.SelectRow(row,True)
End If
Else
This.SelectRow(0,False)
This.SelectRow(row,True)
This.SetRow(row)
End If
一个问题开俩帖子。你分很多啊。而且这段代码网上很容易搜出来！呵呵

[jdsnhan]

google 上 baidu

[qong010488]

如果不用按CTRL键也可以实现的，反而更省代码：
//clicked事件
if isselected(il_row) then
this.selectrow(il_row,false)
else
this.selectrow(il_row,true)
end if

[newease]

给你一段多行选择的代码,支持SHIFT 连选 CTRL 指定选择

string ls_KeyDownType
If rrow <= 0 then Return 0
If Keydown(KeyShift!) then
integer li_Idx
al_aclickedrow=rrow
this.setredraw(false)
this.selectrow(0,false)
If il_lastclickedrow = 0 then
this.setredraw(true)
Return 1
end if
if il_lastclickedrow > al_aclickedrow then
For li_Idx = il_lastclickedrow to al_aclickedrow STEP -1
this.selectrow(li_Idx,TRUE)
end for
else
For li_Idx = il_lastclickedrow to al_aclickedrow
this.selectrow(li_Idx,TRUE)
next
end if
this.setredraw(true)
Return 1
////////////////
ElseIf this.IsSelected(rrow) Then
il_LastClickedRow = rrow
ib_action_on_buttonup = true

ElseIf Keydown(KeyControl!) then
il_LastClickedRow = rrow
this.SelectRow(rrow,TRUE)

Else
il_LastClickedRow = rrow
this.SelectRow(0,FALSE)
this.SelectRow(rrow,TRUE)

End If
///////////////////

If ib_action_on_buttonup Then
ib_action_on_buttonup = false
If Keydown(KeyControl!) then
this.selectrow(il_lastclickedrow,FALSE)
Else
this.SelectRow(0,FALSE)
this.SelectRow(il_lastclickedrow,TRUE)
End If
il_lastclickedrow = 0
End If

[eviler]

思路就是 key 判断按下的是什么键 ，然后使用 selectrow()

[fjgzqjh]

參考pb8.0的pfc