问题描述
我有一个名为 GridEntry.ocx 的 ActiveX,我是从下载链接中找到的 GridEntry.ocx
我想用它来制作一个软件。 但我遇到了麻烦,并收到一条错误消息。 “编译错误:类型不匹配” 我的代码
Private Sub GridEntry1_KeyPress(KeyAscii As Integer,Row As Integer,Col As Byte)
If KeyAscii = 13 Then
Post = GridEntry1.CellFocus(0,1)
With GridEntry1
.Caption = "TEST"
End With
End If
End Sub
解决方法
使用这个
Private Sub GridEntry1_KeyPress(KeyAscii As Integer,Row As Integer,Col As Byte)
If KeyAscii = 13 Then
Call GridEntry1.CellFocus(0,1)
With GridEntry1
.Caption = "TEST"
End With
End If
End Sub