HOW to solve "Compile error: Type mismatch" with own file ocx in VB6

Question

我有一个名为 GridEntry.ocx 的 ActiveX 我从下载中找到它 link 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

Answer 1

使用这个

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

HOW to solve "Compile error: Type mismatch" with own file ocx in VB6

HOW to solve "Compile error: Type mismatch" with own file ocx in VB6

vb6

activex

ocx