第一次发帖,给点力   、  一定要解决 大神么, 帮帮忙!!
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

解决方案 »

  1.   

    VB6.FixedLengthString(6) 不对:
    1.提示后面6这个长度,不可以指定的。
    2.在我给数组元素赋值的时候 ,peopleArray(0) = "LL" 出现错误
    String与VB6.FixedLengthString不可转换。
      

  2.   

    二进制兼容做不到,因为VB.NET已经取消了定长字符串。要么你用byte数组。
      

  3.   


    byte数组,能指定长度么?  可以具体一点么?
      

  4.   

    Private s(4) As String * 6    ==》   Dim a(6) As Byte  ????好吧,我应该知道你说的 用byte数组 的意思了。先给你30F , 如果没人帮我解决, 给分 结贴。