VB6发送键问题

我正在尝试创建一个按钮，在文本框中输入“0”值

Private Sub cmd0_Click()
    PvCurPaidAmt.SetFocus
    PvCurPaidAmt.SelStart = Len(PvCurPaidAmt) + 1
    PvCurPaidAmt.SelText = "0"
End Sub

现在的问题是，我必须将textbox更改为第三方api提供的PVcurency texbox，它不支持SelStart和SelText函数，因此我无法使用上述代码

我正在尝试使用SendKeys：

Private Sub cmd0_Click()
   PvCurPaidAmt.SetFocus
   SendKeys "0"
End Sub

---

现在的问题是下一个光标无法继续。我正在尝试做屏幕上的keyborard正在做的事情。请帮忙。谢谢。

如果我理解正确，在将焦点设置为PvCurPaidAmt控件时，您无法确保光标将位于字符串的末尾（或者未选择或突出显示整个字符串）

如果PvCurPaidAmt控件具有.Text属性，则可以执行以下操作：

PvCurPaidAmt.Text = PvCurPaidAmt.Text & "0"

如果没有，请先按SendKeys将光标发送到末尾：

SendKeys "{END}", True  ' it will force the app to wait till the keys are processed

然后

---

您所说的：下一个光标不继续是什么意思？你的意思是没有键入“0”吗？或者它是打印出来的，但你被送出了焦点？请添加更多详细信息

SendKeys "0"