VB标签 修改哪些属性,只能显示字母与数字呢?

我想让一个标签只能显示字母与数字 其他全都不能显示,要怎么弄呢/

这个直接该属性是没法修改的，因为Label的Caption是显示赋给它的字符串，本身没有判断功能，不过可以用函数来判断，判断一个字符串是不是只有数字与字母，如果是这样让他显示，如果不是则不显示，代码如下，需要在窗体中加一个Label1，然后把代码复制到窗体中就行了

Private Sub Form_Load()
Dim InputStr As String
InputStr = InputBox("请输入字符串")
If Asc(InputStr) < 0 Then
gbascii = AscB(StrConv(InputStr, vbFromUnicode))
'区位码在16区之后的为汉字
If gbascii - 160 > 15 Then
MsgBox "是汉字,Label1不显示此字符串"
Else
MsgBox "是全角符号，Label1不显示此字符串"
End If
Else
'MsgBox "是半角英文或数字"
Label1.Caption = InputStr
End If
End Sub

Option Explicit

Private Sub Command1_Click() Dim temp As String, i As Long For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) >= "0" And Mid(Text1.Text, i, 1) <= "9" Or LCase(Mid(Text1.Text, i, 1)) >= "a" And LCase(Mid(Text1.Text, i, 1)) <= "z" Then temp = temp & Mid(Text1.Text, i, 1) End If Next Label1.Caption = temp End Sub

Private Sub Form_Load() Label1.AutoSize = True Label1.Caption = "" Command1.Caption = "测试" Text1.Text = "5454err我gfr5454+-=2的2=--876ede" Command1_Click End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息