by カロン » 2009年9月11日(金) 23:16
2次元配列を作ってそこにテキストを入れるとよいかと思います
コード: 全て選択
Dim ero[10,10] As Byte
Dim linebuffer[10] As Byte
Dim x As Word,y As Word
For x=0 To 10
For y=0 To 10
ero[x,y] = Asc(" ")
Next
Next
ero[10,0] = Asc("a")
ero[10,1] = Asc("c")
ero[10,2] = Asc("t")
PrintLine(0)
PrintLine(1)
PrintLine(2)
'表示したい行を洗濯
Sub PrintLine(l As Word)
For x=0 To 10
linebuffer[x] = ero[x,l]
Next
MessageBox(0,linebuffer, "Line", MB_YESNO)
End Sub
2次元配列を作ってそこにテキストを入れるとよいかと思います
[code]
Dim ero[10,10] As Byte
Dim linebuffer[10] As Byte
Dim x As Word,y As Word
For x=0 To 10
For y=0 To 10
ero[x,y] = Asc(" ")
Next
Next
ero[10,0] = Asc("a")
ero[10,1] = Asc("c")
ero[10,2] = Asc("t")
PrintLine(0)
PrintLine(1)
PrintLine(2)
'表示したい行を洗濯
Sub PrintLine(l As Word)
For x=0 To 10
linebuffer[x] = ero[x,l]
Next
MessageBox(0,linebuffer, "Line", MB_YESNO)
End Sub
[/code]