如何移动Datagrid的滚动条？

当数据表的列数太多时，我用ENTER切换Datagrid的列.但是他下面的滚动条不跟着走的。  
  怎么办啊？555~~~~~~~~~急死我了！ 问题点数：91、回复次数：4Top

1 楼donglw（天行）回复于 2001-07-11 16:50:39 得分 1

没有MOUSE？Top

2 楼ouyangke（欧阳克）回复于 2001-07-11 16:58:34 得分 0

我是想按Enter后不动Mouse他也应该跟着走啊！Top

3 楼everyask（everyask）回复于 2001-07-11 17:45:14 得分 55

Private   Sub   DataGrid1_KeyDown(KeyCode   As   Integer,   Shift   As   Integer)  
  If   KeyCode   =   13   Then  
          SendKeys   "{TAB}"  
  End   If  
  End   Sub  
  Top

4 楼redbirdli（火鸟）回复于 2001-07-11 18:47:02 得分 35

api声明应该会吧:  
  private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long  
  private   Const   LB_SETTOPINDEX   =   &H197  
   
  SendMessage(Datagrid.hWnd,lb_SetTopIndex,15,0)  
  Top

相关问题

• datagrid
• settopindex
• 滚动条
• sendmessage
• byval
• lb
• keycode
• 跟着走
• hwnd
• enter

• 帖主：ouyangke
• donglw
• everyask
• redbirdli

• Visual Basic类图书
• Visual Basic类源码下载