テキスト内の文字を縦書きに？ (ID:80008)

名前

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

本文 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