ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 01:04

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




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2005年7月16日(土) 22:15 
テキストエディタで縦書きをできるようにしたいのですが、何かよい方法はないでしょうか?


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 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




通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2009年9月12日(土) 02:06 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
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を主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

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


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[16人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean