Dim frazes(0 To ) As String'Это-массив
Private Sub Form_Click()
Randomize
MsgBox frazes(Int(Rnd() * 256)), vbOKOnly, "user32.dll"
End Sub
Private Sub Form_Load()
Dim b As Integer
Open "frazes.txt" For Input As #1
Dim cur_fraze As String
While Not EOF(1)
Line Input #1, cur_fraze
frazes(b - 1) = Replace(cur_fraze, "[break]", vbCrLf)
b = b + 1
Wend
Close #1
End Sub
Динамические массивы в VB
В VB есть динамческие массивы, или чё-то подобное?
Код
Число строк в файле заранее не известно и потому именно динамический
Код
Код:
Число строк в файле заранее не известно и потому именно динамический
Всё, через ListBox выкрутился...
В VB есть динамические массивы. Объявляешь:
Изменяешь размер массива:
Если надо сохранить существующие элементы, то добавляешь Preserve:
Код:
Dim myArray() As Long
Код:
ReDim myArray(0 To Count -1)
Код:
ReDim Preserve myArray(0 To newCount -1)