vb6.0中不允许在文本框中保存相同的数字答案

【问题标题】：Do not allow the same number to be saved in the text box in vb6.0vb6.0中不允许在文本框中保存相同的数字
【发布时间】：2021-09-12 19:12:12
【问题描述】：

当我在文本框中保存另一个时，如何使文本框不接受保存相同的数字？

【问题讨论】：

您能否提供一个使用案例，说明如何使用此功能以及您希望如何阻止输入或提醒用户输入？
请提供足够的代码，以便其他人更好地理解或重现问题。

标签： vb6

【解决方案1】：

您是否要过滤文本框？

您可以使用KeyPress 事件来读取用户的输入并根据它执行一些操作。例如，如果用户两次输入相同的数据，您可以缓存以前的输入并创建一个弹出窗口。

例如，请参阅this。

【讨论】：

【解决方案2】：

使用 KeyPress 事件，您可以完成您需要的操作。下面的例子除了不允许重复数字外，只允许输入数字：

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
   'allow numbers and backspace
   If Not (KeyAscii >= 48 And KeyAscii <= 57) And Not KeyAscii = 8 Then KeyAscii = 0
   
   'but don't allow the same number twice
   If InStr(1, Text1.Text, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub

【讨论】：

我希望代码通过函数或子成为私有
@AdnanSaeedBasalamah 也许你可以澄清一下？显然这是一个私人潜艇，所以我不确定你需要什么。