縦に線を引く

質問

フォームの上から下まで縦に一本の線（できれば色や太さは自分で決めたい）を引きたいのですが
リサイズされても常にフォームの上から下まで線が続くようにするにはどのような方法が考えられるでしょうか？

回答No.2

talosoft · ベストアンサー

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

　　Dim TestPen As New Pen(Color.Blue, 3)
　　　　e.Graphics.DrawLine(TestPen, Me.Width \ 2, 0, Me.Width \ 2, Me.Height)

End Sub

Windows フォームなら動くはずです。

回答No.1

Apr2nd

こんな感じでしょうか。
　１．Paintイベントのハンドラでラインを引く
　２．フォームのSizeChangedイベントのハンドラで再描画する

2005/2008用のサンプルとしてフォーム中央に赤の縦線を引く例を。
※インデントに全角スペースを使用しています。
================================================================
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

　　Dim sngCenterX As Single = Me.ClientSize.Width / 2.0F

　　' 色=赤、太さ=5のペンでフォームの中央に縦線を引く
　　Using linePen As New Pen(Color.Red, 5)

　　　　e.Graphics.DrawLine(linePen, sngCenterX, 0.0F, sngCenterX, CSng(Me.ClientSize.Height - 1))

　　End Using

End Sub

Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged

　　' 再描画する
　　Me.Refresh()

End Sub
================================================================
※開発環境が書かれていませんがofficeのフォームなんてオチだったりして…