テキストエディタでの縦書きについて
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
Win9x系では、でいけるらしいです。
定数は以下。
配列など使わずに素直にオーナードローしましょう。
コード: 全て選択
SendMessage(hEdit,EM_SETOPTIONS,ECOOP_OR,ECO_VERTICAL)
定数は以下。
コード: 全て選択
Const ECO_VERTICAL=&H400000
Const ECOOP_OR=2
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。