第一次发帖,给点力 、 一定要解决 大神么, 帮帮忙!!
Private s(4) As String * 6 --> vb6.0升级.net 怎么改写?
下面是我举的小例子!E・g: vb6.0Option ExplicitPrivate peopleArray(4) As String * 6Private Sub cmd1_Click()Dim namePM As String
namePM = "YY"
Dim i As LongpeopleArray(0) = "LL"
peopleArray(1) = "YY"For i = 0 To UBound(peopleArray)
If (Trim(peopleArray(i)) = namePM) Then
dis1.Text = peopleArray(i)
dis2.Text = Len(peopleArray(i))
End If
Next i
End Sub升?之后的vb.net
Friend Class Form1
Inherits System.Windows.Forms.Form
//下面这行出现错误
Private peopleArray(5) As String*6
Private Sub cmd1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmd1.Click
Dim namePM As String
namePM = "YY"
Dim i As Integer peopleArray(0) = "LL"
peopleArray(1) = "YY"
For i = 0 To UBound(peopleArray)
If (Trim(peopleArray(i)) = namePM) Then dis1.Text = peopleArray(i)
dis2.Text = CStr(Len(peopleArray(i)))
End If
Next i
End Sub
Private s(4) As String * 6 --> vb6.0升级.net 怎么改写?
下面是我举的小例子!E・g: vb6.0Option ExplicitPrivate peopleArray(4) As String * 6Private Sub cmd1_Click()Dim namePM As String
namePM = "YY"
Dim i As LongpeopleArray(0) = "LL"
peopleArray(1) = "YY"For i = 0 To UBound(peopleArray)
If (Trim(peopleArray(i)) = namePM) Then
dis1.Text = peopleArray(i)
dis2.Text = Len(peopleArray(i))
End If
Next i
End Sub升?之后的vb.net
Friend Class Form1
Inherits System.Windows.Forms.Form
//下面这行出现错误
Private peopleArray(5) As String*6
Private Sub cmd1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmd1.Click
Dim namePM As String
namePM = "YY"
Dim i As Integer peopleArray(0) = "LL"
peopleArray(1) = "YY"
For i = 0 To UBound(peopleArray)
If (Trim(peopleArray(i)) = namePM) Then dis1.Text = peopleArray(i)
dis2.Text = CStr(Len(peopleArray(i)))
End If
Next i
End Sub
解决方案 »
- 代码页转换问题
- 怎分winsock发过来的数据类型?为何两次发送的数据(标志、内容)却合起来接收?
- 一个 简单的读文件的问题
- 存储图片到SQL数据库中
- 请天下各路VB高手解答,为什么开发的程式VB+Crysal Report8.5+Access....
- 我要实现直线的橡皮筋技术,怎么我的程序不对呀?!请各位高人帮忙!!!
- 心情非常的郁闷~~~!! 极度的不好~~~!!!! 好多的事情都不顺利!!! 烦~~!
- 这段代码什么意思?新建了个文件然后往里面写什么?
- 文件crtowords_en.dll是用来干吗的?
- 疯狂为VB和Access高手加分!!!!!!!!!!
- 全局热键shift+a实现sendkeys发送数字错误
- 一个exe程序,自己手工双击可以打开,但是vb里面shell 就无论如何都运行不起来, 可能的原因会有哪些?
1.提示后面6这个长度,不可以指定的。
2.在我给数组元素赋值的时候 ,peopleArray(0) = "LL" 出现错误
String与VB6.FixedLengthString不可转换。
byte数组,能指定长度么? 可以具体一点么?