ab.com コミュニティ

全ての表示時間は UTC+09:00 です

テキストエディタでの縦書きについて

返信する

ユーザー名:

件名:

メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。

フォントサイズ:
	フォントカラー
[quote=カロン post_id=10571 time=1252678612] ２次元配列を作ってそこにテキストを入れるとよいかと思います [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] [/quote]

オプション:

BBCode: ON

[img]: ON

[flash]: OFF

[url]: ON

スマイリー: OFF

	BBCode を無効にする
	URL を自動的にパースしない

クイズ

お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。

トピックのレビュー - テキストエディタでの縦書きについて

作成者

メッセージ

konisi

記事の件名:

引用付きで返信する

Win9x系では、

コード:

SendMessage(hEdit,EM_SETOPTIONS,ECOOP_OR,ECO_VERTICAL)

でいけるらしいです。
定数は以下。

コード:

Const ECO_VERTICAL=&H400000
Const ECOOP_OR=2

配列など使わずに素直にオーナードローしましょう。

投稿記事

Posted: 2009年9月12日(土) 02:06

カロン

記事の件名:

引用付きで返信する

２次元配列を作ってそこにテキストを入れるとよいかと思います

コード:

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

投稿記事

Posted: 2009年9月11日(金) 23:16

BingoMan

記事の件名:

テキストエディタでの縦書きについて

引用付きで返信する

テキストエディタで縦書きをできるようにしたいのですが、何かよい方法はないでしょうか？

投稿記事

Posted: 2005年7月16日(土) 22:15

掲示板トップ » »

全ての表示時間は UTC+09:00 です