Str1 = Text1.Text
For i = 1 To Len(Str1)
Sng = Asc(Left(Str1, 1))
If (Sng <= 90 And Sng >= 65) Or (Sng <= 122 And Sng >= 97) Then '取出单个用asc码进行判断
Str2 = Str2 + Left(Str1, 1)
End If
Str1 = Right(Str1, Len(Str1) - 1)
Next
Label1.Caption = Str2追问
虽然不是很理解，准备回去再看一下书上的函数，不过我试了一下，你的程序很fantastic，谢谢你呀，佩服佩服哦
VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字
1、方法一：text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二：sub command1_click()label1.caption = string("*",len(text1.text))end sub
VB怎么在label中输出text的内容
可以使用 Label1.Caption = Text1.Text 在Label控件中显示Text控件的内容。由于Label控件的Caption属性和TextBox控件的Text属性都属于String类型，所以它们之间可以直接相互赋值。
vb如何让label标签中的文字居中显示
1、首先我们打开VB软件，选中需要编辑的文字，点击打开右下角字体后面的三个点。2、然后我们在弹出来的窗口中点击打开“字体”选择想要的字体，之后点击确定。3、然后我们点击打开“代码设置”输入下图中的代码就可以了。
VB6.0 怎样在text输入数字label上会出来相应的文字
Private Sub Text1_Change()Command1.Caption = Text1End SubPrivate Sub Command1_Click()Label1 = "apple"End Sub
在VB中Text和Label有什么实质区别
但是我目前也遇到一个问题，就是句柄了，TEXT 可以获取句柄，但是label缺不能，也就是模拟键盘操作的时候，TEXT可以接受键盘指令，但是label不能。深入学习后你会发现其中不一样的地方！放在TEXT上 类名有显示放在LABEL上显示FORM1的句柄，直接当做LABEL不存在 ...
VB中的窗体能居中显示文字么?
比较方便的显示文本的基本控件就是label和text,不过label就能显示一行,text可以通过设置M***Line属性为真来显示多行,把控件居中再把文本格式居中就可以了,form和pictruebox也能通过print方法显示字符,不过是图形方式的,要居中还得算起始坐标C***X,C***Y两个值 ...
vb如何改变label显示的文字
1、第一步，先打开VB软件，再窗体上加载一个标签，如下图所示：2、第二步，点击刚刚添加的标签，接下来，找到属性窗口并设置标签的属源性和其名称，再把Caption设置为“快乐学习”，如下图所示。3、第三步，再把Autosize设置为True，如下图所示。4、第四步，添加一个列表框控件在窗体上表面，如下...
vb把一个标签label中的文字居中,怎么设定?
1、Label 控件不可以水平，上下居中 2、不过可以用 PictureBox 控件做到 3、拖动一个 PictureBox 控件到工程，并命名为 picTextShow，把 AutoDraw 设为 True，加上以下代码就可以实现：Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("...
VB中怎样限定text输入框中输入的字数
Sub s() Text1.MaxLength = 8'设置Text输入最长为8个字符End Sub
vb 如何只显示字符串中的数字
for i=1 to 5 x= mid(a,i,1)'在a中从第i个开始选一个字符 select case x case “0 to 9” '遇到数字他就会输出 labe1.caption=x end select next i 这个有很多中办法的。
