VB如何在文本框中显示数组中的内容啊,数组为自定义

自定义数据类型为:
Public Const SFEP_UFPDATA_SIZE = (498)
Public Type SFEP_USER_FPDATA
rbData(SFEP_UFPDATA_SIZE - 1) As Byte
End Type

Dim stRegtem As SFEP_USER_FPDATA

nRet = SFEP_GetTemplateForRegister(stTemplates(0), stRegtem)
For i = LBound(stRegtem) To UBound(stRegtem)
Text1.Text = stRegtem(i)
Next

一运行就报编译错误,缺少数组,请问该如何显示在文本框中啊,谢谢。
如何不加
For i = LBound(stRegtem) To UBound(stRegtem)
Text1.Text = stRegtem(i)
Next
这段程序是能够正常完成的,但就在这里报错,谢谢。

第1个回答  2013-08-10
For i = LBound(stRegtem) To UBound(stRegtem)
Text1.Text = Text1.text & chr(10) & stRegtem(i)
Next i追问

还是不可以,把这段代码贴出来帮忙分析下,谢谢。

VB如何在文本框中显示数组中的内容啊,数组为自定义
Next i

VB 在textbox中输出数组
Private Sub Command1_Click()ReDim a(1 To 1000) As Integer Dim i As Integer Dim l As Integer Dim s As String Dim s1 As String For i = 1 To 1000 a(i) = i Next i l = 12 For i = 1 To 1000 s1 = "a(" & CStr(i) & ")=" & CStr(a(i))s1 = s1 & Space...

怎么在vb中定义一个数组,在文本框中随机生成中文数字大写金额?
'定义数组:dim chap(21, 1)'初始化:chap(0, 0) = "万": chap(0, 1) = 10000 chap(1, 0) = "仟": chap(1, 1) = 1000 chap(2, 0) = "佰": chap(2, 1) = 100 chap(3, 0) = "拾": chap(3, 1) = 10 chap(4, 0) = "元": chap(4, 1) = 1 chap(5, ...

VB中列表框List赋值并在文本框输出
Dim Player(0 To 2) As String ' 说明两个数组的大小。Dim Salary(0 To 2) As Single Dim sum As Single Private Sub Command1_Click()Dim i As Long, j As Long ' 声明变量。If List1.ListCount = 0 Then Exit Sub If List1.ListIndex < 0 Then MsgBox "请在列表框1中选择一...

VB 导入文本数据作为一个二维数组的元素,用自定义的函数调用数组元素处 ...
1,由于是N行4列,也就是说行数是不确定的,那就需要使用动态数组,而且不能用Preserve 关键字,因为使用Preserve 关键字,只能改变列数(只能改变末尾的维数)。这样就需要先打开文本文件,读一遍文件,获得行数。然后用Redim设置数组的行数、列数。2,数组为数值类型。3,自定义函数,执行将某一行...

用vb求数组每行的和并显示在文本框中怎么做啊?我做了之后只显示一行的和...
'你首先要设置text的属性MultiLine = True,这个属性需要你在编程的时候在控件属性中更改,程序中不允许更改 Private Sub Command1_Click()Dim a(4, 4) As Integer '---以下为对这个5行5列数组赋值并显示出来--- For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd * 90) + 10...

vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答:好难啊,我看看书

vb如何读取txt中的数组
本示例使用 Input # 语句将文件内的数据读入两个变量中。本示例假设 TESTFILE文件内含数行以 Write # 语句写入的数据;也就是说,每一行数据中的字符串部分都是用双引号括起来,而与数字用逗号隔开,例如,("Hello", 234)。Dim MyString, MyNumberOpen "TESTFILE" For Input As #1 ' 打开...

请问在VB中,如何将文本框中的数字读取到数组中啊?
Private Sub Command1_Click()Text1.Text = "123,456,789"Dim a a = Split(Text1.Text, ",")Dim b ReDim b(0 To UBound(a)) As Integer Dim i As Integer For i = 0 To UBound(b)b(i) = Val(a(i))Print b(i)Next i End Sub ...

VB中将数组添加在text控件中
For i=1 to 10 S=S & A(i) & iif(i<10," ","")Next Text1.Text=S

相似回答
大家正在搜