Office中国论坛/Access中国论坛

标题: [求助]VB求救，谢谢！ [打印本页]

作者: shouwang 时间: 2006-8-11 03:24
标题: [求助]VB求救，谢谢！

mshflexgrid控件应该没有selstartcol属性，但以前这段程序是怎么通过的（现在我用VB6.0不通）。弄了半天了，请高手指点。谢谢！

代码：
Private Sub grdFeatList_SelChange()

'Allow the user to interact with the selected features
'displayed in the Grid.  Have the user's selections
'trigger other actions like Highlight, InsertPin, Pan, and ZoomTo.

frmFind.grdFeatList.SelStartCol = 0
  frmFind.grdFeatList.SelEndCol = 2
  If frmFind.grdFeatList.SelEndRow > frmFind.grdFeatList.SelStartRow Then
frmFind.grdFeatList.SelEndRow = frmFind.grdFeatList.SelStartRow
  End If
  If frmFind.grdFeatList.SelStartRow > 0 Then
frmFind.cmdHighlight.Enabled = True
frmFind.cmdInsertPin.Enabled = True
frmFind.cmdPanto.Enabled = True
frmFind.cmdZoomto.Enabled = True
  Else
frmFind.cmdHighlight.Enabled = False
frmFind.cmdPanto.Enabled = False
frmFind.cmdZoomto.Enabled = False
frmFind.cmdInsertPin.Enabled = False
  End If

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)