テキストに線を引くには？ (ID:108452)

名前

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

本文 nanashiさんのアイデアで駄目ですか？ こんな感じで、どうですか？ ピクチャボックスとボタンとテキストボックス２つを用意してください。 Private Sub Form_Load() With Text1 .FontName = "ＭＳ ゴシック" .FontSize = 11 End With With Picture1 .AutoRedraw = True .BackColor = vbBlack .FontName = Text1.FontName .FontSize = Text1.FontSize .Top = Text1.Top .Height = Text1.Height .Width = 1 End With End Sub Private Sub Command1_Click() Dim intSize As Integer ' 1文字の幅を算出 intSize = Picture1.TextWidth("1") Picture1.Move Text1.Left + intSize * Text2.Text End Sub テキストボックス２に縦線を移動したいバイト位置を入力してみて下さい。