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

名前

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

本文

> カスタムコントロールはボタンのサブクラスでなく
> UserControlです。

おぉっ、失礼しました。
ということで、UserControl にしてみましたが…やはり再現せず。

'=====
' vbc.exe /t:winexe /out:c:\test2.exe c:\test2.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)
    BackColor = Color.Brown
  End Sub
  Protected overrides Sub OnClick(e As EventArgs)
    Dim r As New Random()
    BackColor = Color.FromArgb(r.Next(0, 256), r.Next(0, 256), r.Next(0, 256))
    MyBase.OnClick(e)
  End Sub
End Class

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

戻る