关于DATAGRID控件选择多行记录的问题！（急）

Question

SelBookMarks集合里面是所有选择的纪录的book具体信息可以查看MSDN

Answer 1

Private Sub GridMain_SelChange(Cancel As Integer) '多行选择
   On Error Resume Next
   Dim i As Double
   Dim t As Integer
   resulet = GetAsyncKeyState(16) '监测键盘是否按住shift键
   
   If resulet = -32767 Then '如果按住
      t = rs_Table.Book
      If Y < t Then
        For i = Y To t
         GridMain.SelBooks.Add Val(i)
        Next
      Else
        For i = t To Y
          GridMain.SelBooks.Add Val(i)
        Next
      End If
      Exit Sub
   End If
   If GetAsyncKeyState(17) = -32767 Then
      Cancel = 1
      Exit Sub
   End If
   
      Y = rs_Table.Book
   '菜单状态
   InIToolbar
   
End Sub

Answer 2

to ch1110:
你测试了吗？好像不对呀！
   resulet = GetAsyncKeyState(16) '监测键盘是否按住shift键
   
   If resulet = -32767 Then '如果按住
      
   设置断点后，resulet的值为0呀。能详细说明一下吗？