テキスト内の文字を縦書きに？

解決

チョビ 2003-10-27 19:59:31 No: 80007

textに入力された文字を縦書きに変えて表示したいのですが
まだ初心者な為、わかりませんので教えていただきたいです。
ＶＢ６です。
変換関数、プロパティとかでは無理ですか？
変数で格納してＭＩＤ関数とかで指定し、改行、ポイント指定する
しかないでしょうか？
簡単な記述を教えてください。

1412 2003-10-27 20:50:37 No: 80008

Command1 と RichTextBox1 をフォーム上に配置して、実行してみて下さい。
ボタンを押すたびに縦書きと横書きが入れ替わります。
# 環境によっては、反映されない可能性があります。

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const ECO_VERTICAL = &H400000
Private Const WM_USER = &H400&
Private Const EM_SETOPTIONS = (WM_USER + 77)
Private Const ECOOP_XOR As Long = &H4&
Private Sub Command1_Click()
  RichTextBox1.Visible = False
  SendMessage RichTextBox1.hwnd, EM_SETOPTIONS, ECOOP_XOR, ECO_VERTICAL
  RichTextBox1.Visible = True
End Sub

チョビ 2003-10-27 22:38:37 No: 80009

１４１２さんごめんなさい。
RichTextBox1が存在しません。
インストールしないとダメみたいです。
他では代用できませんか？
普通のtextでは出来ませんでした(;.;)
ついでで申し訳ありませんがFontBoldで線の太さの
調節なんてのも出来るものでしょうか？
出来るならお教えくださいm(..)m

ぬけさく 2003-10-27 23:21:53 No: 80010

リッチテキストってインストールしないとないものでしたっけ？

*プロジェクト→コンポーネント→Microsoft Rich Testbox control 6.0

で出てきたけど・・・

チョビ 2003-10-27 23:36:54 No: 80011

ぬけさくさんありがとうございます。
RichTextBoxで探していましたのでMicrosoftには
目がいかなかったです。
１４１２さん何がどうなっているのか？？？
何も変わりませんです。
# 環境によっては、反映されない可能性がありますかな！？

1412 2003-10-28 00:14:54 No: 80012

ずっと前に見つけたコードなので正しいかどうか分かりませんが、
確か WinMe+VB6(SP5) では実現できたと思います。
今近くにあるのは、 Win2k(SP3)+VB6(SP5) ですが、
この環境では実現できませんでした。

# 悪しからず <(_^_)>

チョビ 2003-10-28 00:59:09 No: 80013

やはり環境かな？！
１４１２さん、ぬけさくさん手助けをいただき
ありがとうございました。
１４１２さんのコードを軸に
なんとか解読してやって行きます。
また機会がありましたお願いします。