| ab.com コミュニティ https://www.activebasic.com/forum/ |
|
| テキストエディタでの縦書きについて https://www.activebasic.com/forum/viewtopic.php?t=191 |
ページ 1 ／ 1 |
| 作成者: | BingoMan [ 2005年7月16日(土) 22:15 ] |
| 記事の件名: | テキストエディタでの縦書きについて |
テキストエディタで縦書きをできるようにしたいのですが、何かよい方法はないでしょうか？ |
|
| 作成者: | カロン [ 2009年9月11日(金) 23:16 ] |
| 記事の件名: | |
２次元配列を作ってそこにテキストを入れるとよいかと思います コード:
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
|
|
| 作成者: | konisi [ 2009年9月12日(土) 02:06 ] |
| 記事の件名: | |
Win9x系では、 コード: SendMessage(hEdit,EM_SETOPTIONS,ECOOP_OR,ECO_VERTICAL)でいけるらしいです。 定数は以下。 コード: Const ECO_VERTICAL=&H400000 Const ECOOP_OR=2配列など使わずに素直にオーナードローしましょう。 |
|
| ページ 1 ／ 1 | 全ての表示時間は UTC+09:00 です |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|