您的位置：程序门 -> vb -> 基础类

在线等，谁能看下我这个问题！！！急急急

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

在线等，谁能看下我这个问题！！！急急急

发表于：2007-02-08 16:40:49 楼主

谁能告诉我一下，如何吧2个text内的东西放进一个label的caption属性（一个text是字符一个text是数字），text数字还需要加上一个变量c
比如一个text为l,一个text为5,c为2
那么label.caption就等于 l 5
l 6
2行～
谁能帮我下？

发表于：2007-02-08 16:43:551楼得分:0

label是个数组

发表于：2007-02-08 16:44:522楼得分:0

咳,这简单的问题,你都说了,直接赋值不行吗?还要怎么样的效果

发表于：2007-02-08 16:48:343楼得分:0

dim c as integer
for c = 0 to val（form1.text3.text)
label11（k).caption = "form1.text4.text " & val（form1.text1.text) + c
next c

我这样是错的为什么？

发表于：2007-02-08 17:01:074楼得分:0

dim c as integer
for c = 0 to val（form1.text3.text)-1
label11（c+k).caption = form1.text4.text & val（form1.text1.text) + c
next c
如果label11是从0开始赋，则k=0.

发表于：2007-02-08 17:05:015楼得分:0

dim strx1 as string
dim strx2 as string
dim strx as string
dim xx as integer
strx1 = text1.text
for xx = 1 to cint（text2.text) '// 自己检查数据是否有效
strx1 = strx1 & xx & vbcrlf '//增加了换行显示
next
lable.caption = strx1

发表于：2007-02-08 17:09:116楼得分:0

？？

发表于：2007-02-08 17:16:217楼得分:0

自己推敲代码吧,再说也得不到你的要求............

发表于：2007-02-08 17:29:338楼得分:0

条件text1= "l ", text2=5, c=2
你要的效果
1，一个lable显示两行
for i=0 to c
lbl.caption=lbl.caption & text1.text & cint（text2.text)+i & vbcrlf
next i
2.两个lable每个显示一行，首先这个要看你的lable数组的下标是否一致了。如果lable的下标从k开始
for i=0 to c-1
lbl（k+i)=caption=text1.text & cint（text2.text)+i & vbcrlf
next i

发表于：2007-02-09 10:50:279楼得分:0

赋值的时候记得要用累加，不要像黑熊掰玉米一样。。。。
还有要注意变量类型。。。

发表于：2007-02-09 11:12:3810楼得分:0

应该能满足你的要求：

private sub form_load（)
dim c as integer
dim i as integer

label1.caption = " "
text1.text = "text "
text2.text = "2 "
c = 5

for i = 0 to c - 1
label1.caption = label1.caption & text1.text & cstr（val（text2.text) + i) & vbcrlf
next i
end sub

下一篇：为什么我装的msdn不能用啊
上一篇：新手求教：sstab能否设置页面的跳转？

其他资讯