質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.45%

  • VB.NET

    1080questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • VB

    346questions

    VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

Visual Studioのカスタムコントロールの罫線描画について

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 1,469

trainy

score 2

前提・実現したいこと

System.Windows.Forms.Buttunを継承したカスタムコントロールにてOnPaintを利用して幅と色を指定して罫線を引いています。
コントロールの上にエクスプローラ等の別画面を開いた際、罫線が画面上に見えているコントロールの幅にて引かれます。その後エクスプローラを閉じた時にその罫線が消えずに残るので、ボタンの中に罫線が引かれたままになってしまいます。(マウスオーバーすると消えます)
エクスプローラを閉じた時に自動で罫線も元の大きさにもどしたいのですがやり方を教えていただけますでしょうか。
ボタン内のbackcolorや文字を再描画できれば良いと思うのですが、、、。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Public Class CustomButton
    Inherits Button
    ''' <summary>枠線色</summary>
    Private pBorderColor As Color = Color.FromArgb(213I, 223I, 229I)
    ''' <summary>枠線影色</summary>
    Private pBorderShadow As Color = Color.White
    ''' <summary>枠線太さ</summary>
    Private pBorderWidth As Integer = 1
    ''' <summary>枠線スタイル</summary>
    Private pBorderStyle As ButtonBorderStyle = ButtonBorderStyle.Solid
    ''' <summary>枠線スタイル</summary>
    Private pTextAlign As HorizontalAlignment

    ''' <summary>枠線</summary>
    Public Property BorderColor() As Color
        Get
            Return pBorderColor
        End Get
        Set(ByVal value As Color)
            pBorderColor = value
        End Set
    End Property

    ''' <summary>枠線影色</summary>
    Public Property BorderShadow() As Color
        Get
            Return pBorderShadow
        End Get
        Set(ByVal value As Color)
            pBorderShadow = value
        End Set
    End Property

    ''' <summary>枠線太さ</summary>
    Public Property BorderWidth() As Integer
        Get
            Return pBorderWidth
        End Get
        Set(ByVal value As Integer)
            pBorderWidth = value
        End Set
    End Property

    ''' <summary>枠線スタイル</summary>
    Public Property BorderStyle() As ButtonBorderStyle
        Get
            Return pBorderStyle
        End Get
        Set(ByVal value As ButtonBorderStyle)
            pBorderStyle = value
        End Set
    End Property

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)

        Dim tBorderRect As Rectangle = e.ClipRectangle
        ControlPaint.DrawBorder(e.Graphics, tBorderRect, BorderColor, pBorderWidth,
        pBorderStyle, BorderColor, pBorderWidth, pBorderStyle,
        BorderColor, pBorderWidth, pBorderStyle, BorderColor, pBorderWidth, pBorderStyle)

    End Sub

End Class

試したこと

Windows7にて現象が再現します。
クラシックのテーマだと確実に再現します。
上記テーマでなくても、画面外にフォームを移動してコントロールが画面枠に重なるようにすると再現します。
ダブルバッファリングを有効にしてみましたがダメでした。

補足情報(言語/FW/ツール等のバージョンなど)

.netFramework4.0、Visual Studio 2015

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

ちょっと同じ現象はでないのですが、フォームを画面外に移動して戻すと罫線色で文字が消えました。

Dim tBorderRect As Rectangle = e.ClipRectangle


これだと再描画が必要な部分になってしまうので、

Dim tBorderRect As Rectangle = Me.ClientRectangle


これでどうでしょうか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/03/30 08:57

    ご回答ありがとうございます。

    まさにおっしゃる通りで、変更したら正常に動くようになりました。

    今月末納期なためレイアウトに関しては諦めかけていたので感動です。

    ありがとうございました。

    キャンセル

  • 2017/03/30 21:59

    無事に解決できたようで何よりです、
    こちらも納期地獄で死にかけております。
    お互い頑張りましょう!

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.45%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • VB.NET

    1080questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • VB

    346questions

    VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。