カスタムコントロールをアクティブにさせないようにするには？ (ID:144088)

名前

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

本文

UserControl 内にボタンを貼ってみましたが、それでもやはり再現しません。
SetStyle(Selectable, False) の呼び出し方が違うのかな…。

現象を再現可能な、最小限のコードを提示していただけませんか?

'=====
' vbc.exe /t:winexe /out:c:\test3.exe c:\test3.vb
'-----
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
  Inherits Form

Public Shared Sub Main()
    Application.Run(New Form1())
  End Sub

Private t As New TextBox()
  Private WithEvents u As New CustomButton()

Protected overrides Sub OnLoad(e As EventArgs)
    t.Text = "TextBox"
    Controls.Add(t)
    u.Left = t.Right
    u.Size = New Size(100, 40)
    Controls.Add(u)
  End Sub

Private Sub u_Click(s As Object, e As EventArgs) Handles u.Click
    t.Text = Now().ToString("hh:mm:ss.ffff")
  End Sub
End Class

Public Class CustomButton
  Inherits UserControl
  Public Sub New()
    MyBase.SetStyle(ControlStyles.Selectable, False)
    Dim b As New InternalButton()
    b.Dock = DockStyle.Fill
    Padding = New Padding(5)
    b.Text = "内部ボタン"
    AddHandler b.Click, AddressOf Clicked
    BackColor = Color.Indigo
    b.BackColor = Color.LightCyan
    Controls.Add(b)
  End Sub
  Private Sub Clicked(s As Object, e As EventArgs)
    MyBase.OnClick(e)
  End Sub
  Protected Overrides Sub OnClick(e As EventArgs)
  End Sub
  Private Class InternalButton
    Inherits Button
    Public Sub New()
      MyBase.SetStyle(ControlStyles.Selectable, False)
    End Sub
  End Class
End Class

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

戻る