vb查字符串代码
​Private Sub Command1_Click()
Text3.SetFocus  '到得焦点
Text3.SelStart = 0 '设置选定的起始位置
Text3.SelLength = Len(Text1.Text) '设置选定的长度
Clipboard.Clear '清除剪贴板上的内容
Clipboard.SetText Text3.SelText '复制选中的文本到剪贴板上
End Sub
Private Sub Command2_Click()
Text2.SelText = Clipboard.GetText()
End Sub
Private Sub Command3_Click()
Dim a, b, c, d, e, f, g As String
a = Mid(Text1.Text, 1, 1)
b = Mid(Text1.Text, 2, 1)
c = Mid(Text1.Text, 3, 1)
d = Mid(Text1.Text, 4, 1)
e = Mid(Text1.Text, 5, 1)
f = Mid(Text1.Text, 6, 1)
g = Mid(Text1.Text, 7, 1)
Text3.Text = a & b & c & d & e & f & g
字符串函数 通配符 vb
End Sub
Private Sub Command4_Click()
If Text2.Text = Text1.Text Then
Text3.Text = "输入正确,密码是:" & Text2.Text
Else: Text3.Text = "输入错误,请重新输入密码!"
End If
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。