需要文本框的 Vb6 .text 属性

Question

我正在尝试将字母转换为数字。

我有一个 sub 可以确保只有数字被放入文本框中。 我的问题是以下代码是否有效。我有一个文本框（用于数字）和组合框（用于字母）

Dim sha As String
Dim stringposition As Long
Dim EngNumber As Long

sha = "abcdefghifjklmnopqrstuvwxyz"

stringposition = InStr(1, sha, Mid(1, cmbEngletter.Text, 1))

MsgBox "stringposition"

EngNumber = (txtManuNo.Text * 10) + stringposition

我上面唯一的问题是乘法是否适用于 .text。我相信它不会，因为它是一个字符串。请就如何处理这种情况提出建议。

Answer 1

您可以使用 CLng() 将字符串转换为 Long 变量

CLng() 如果它不喜欢字符串的内容（例如，如果它包含一个非数字字符），它会抛出一个错误，所以只有在你确定你的字符串只包含数字时才使用它

更宽容的是使用 Val() 将字符串转换为数字变量（默认为 Double）

我还建议您研究以下功能：

• Asc() : 返回字符的 ASCII 值
• Chr$() : 将 ASCII 值转换为字符
• Left$() : 返回字符串的第一个字符
• CStr() : 将数字转换为字符串

我认为在您的代码中您的意思是显示变量 stringposition 的内容而不是单词“stringposition”，因此您应该删除“”

我确实想知道您试图用您的代码完成什么，但将上述内容应用于您的代码会给出：

Dim sha As String
Dim stringposition As Long
Dim EngNumber As Long

sha = "abcdefghifjklmnopqrstuvwxyz"

stringposition = InStr(1, sha, Left$(cmbEngletter.Text, 1))

MsgBox CStr(stringposition)

EngNumber = (Val(txtManuNo.Text) * 10) + stringposition

我使用 Val() 是因为我不确定你的 txtManuNo 是否只包含数字

为确保用户只能输入数字，您可以使用以下代码：

Private Sub txtManuNo_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKeyBack
      'allowe backspace
    Case vbKey0 To vbKey9
      'allow numbers
    Case Else
      'refuse any other input
      KeyAscii = 0
  End Select
End Sub

用户仍然可以使用其他方法输入非数字字符，例如通过鼠标操作进行复制粘贴，但这是一个快速简单的第一个过滤器