> 上記テキストボックスのサンプルとUPされているサンプルを
> 試して見ました。
> テキストボックスは問題なく動作するようです。
> しかしながらUPされたサンプルのほうは
> sStr = MySplit(GetNetworkResource, vbCrLf)のsStrが
> 「配列には割り当てられません」というコンパイルエラーが
> 発生します。
ひょっとするとVB５だとダメかもね。
うちにはVB５の環境が無いからテストできないけど。
やってることは簡単だよ。
GetNetworkResourceで帰ってきた文字列を
vbCrLfで区切ってListBoxに入れてるだけだから。
Private Sub cmdRun_Click()
Dim sStr() As String
Dim I As Long
Dim nPos As Long
Call lstDir.Clear
' ' for VB6
' sStr = Split(GetNetworkResource, vbCrLf)
' For I = 0 To UBound(sStr)
' Call lstDir.AddItem(sStr(I))
' Next
I = 0
ReDim Preserve sStr(0)
sStr(0) = GetNetworkResource()
If sStr(0) = "" Then
Exit Sub
End If
Do
nPos = InStr(1, sStr(I), vbCrLf)
If nPos >= 1 Then
ReDim Preserve sStr(I + 1)
sStr(I + 1) = Mid$(sStr(I), nPos + 2)
sStr(I) = Left$(sStr(I), nPos - 1)
Else
Exit Do
End If
I = I + 1
Loop
For I = 0 To UBound(sStr) - 1
lstDir.AddItem (sStr(I))
Next
End Sub
|