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

解決

---

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

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

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

で出てきたけど・・・

編集 削除

---

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

編集 削除

---

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

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。