3金币
这是原6.0代码 哪些属性需要转换 另外哪里有升级前后的对照文档
Private Sub sprSagyoList_KeyDown(KeyCode As Integer, Shift As Integer)
If sprSagyoList.MaxRows > 0 Then
cboList.BackColor = RGB(255, 255, 255)
End If
If KeyCode <> 37 And KeyCode <> 39 Then
cboList.SetFocus
End If
End Sub
|
|