vbtab一般相当于跳四个空格的宽度,根据不同的环境可能还会有所变化,比如在Word中,如果设定的tab制表位的位置,那用vb *** 作时,一个tab就会跳到下一个制表位,不论这个制表位在哪,没有一定的宽度限制。你在text1中用制表位,第四个s太长了,必然会超过四个空格的间距,就会错位。要想对齐,在中间再加一个tab不就行了。应用时,看你的内容具体宽度情况,必要时可以在中间多加几个tab,就容易对齐了。或者,根据字符串内容,用length计算长度,再用空格补齐,这样比较稳妥一些,但也麻烦些。
首先,设置文本框中关于焦点的属性,在属性页中设置,也可以通过代码实现。关于焦点有以下几项: TabStop True/False 使用TAB选择控件时该能否获得焦点。如果想实现你的功能,该项必须为True TabIndex 数字 控件获得焦点的顺序。在你的功能中,设置Text1-4分别为1、2、3、4 其次,为Text1-4分别添加以下代码,以Text1为例,2-4只要修改相应的数字。Private Sub Text1_GotFocus() 'text1获得焦点时产生的事件
Text1SelStart = 0 ‘从text1的0位置开始选择
Text1SelLength = Len(Text1Text) '选择长度是text1的输入长度
End Sub
tab是以字符为单位这里的tab(20);指的是从第20个字符开始打印
tab(2+j5)这里的j是变量具体要看j的取值一般用于输出某一种形状的字符
比如j=1时 2+ 1 5 = 7就从第7个字符开始
j=2时 2+ 2 5 = 12就从第12个字符开始
它们都是VB6里的函数,但是的作用是不一样的,并不可以互为替代;
Space()函数的结果是一个字符串类型的值,可以赋予字符串变量或常量。
例1:
Dim s1 as string
Dim s2 as string
Dim s as string
s1 = "ABCD"
s2 = "1234"
s = s1 & Space(4) & s2
Print s
将显示
ABCD 1234
Tab()函数无法返回一个字符串类型的值,它尽使用于Print #、Print语句中,作为在文件或立即窗口输出的下一个位置。
例2:
Print "1234567890"
Print Tab(1);"A";Tab(5);"B";Tab(9);"C"
将显示
1234567890
A B C
textBox1Text = "a" & vbTab & "1" & vbLf & "b" & vbTab & "2"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)