过年了，大家行行好，俺家穷，只有这么多了，能不能帮帮俺啊。

[TheMoonOfMyHeart]

请以继承vb.net2005里面的按扭基类，派生一个按扭类，子类就多写一个功能：单击事件为弹出message：这是用户控件。
请讲出具体的设计过程，我对整个思路都知道，但是具体到在开发工具里实际操作， 我则一无所知，都不知道代码写在什么地方，怎么生成用户控件供自己使用，我分全用完了，看在过年的份上，大家可怜可怜我，回答我吧。

[wfs]

你是初学者吗,,加我QQ289427899 在附言里加上"赢政"二字,,不然我不知道你是哪个
你的问题应该是双击窗体就可以输入代码了,,

[我一直在寻找]

'用法：建立一个项目；把窗体中的所有代码删除了，粘贴以下代码就行
'对了在2005中不一样；
'这是类：
Public Class MsgButton
Inherits System.Windows.Forms.Button

Private Sub MsgButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
MsgBox("您想显示的内容")
End Sub
End Class

'下面是窗体例程序

Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents Button1 As MsgButton
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(96, 64)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

[burn3tt]

应该覆盖Onclick的代理，大体上是这样的
this.Onclick+=new System.EventHandler(pop);
public void pop()
{
MessageBox.Show("Hello");
}
这个是C#里的，vb里具体的做法差不多

[淡蓝色2]

这个问题很简单,全部代码如下:

Public Class MyButton: Inherits Button
Protected Overrides Sub OnClick(e As EventArgs)
MyBase.OnClick(e)
MessageBox.Show("这是用户控件。", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class

注意:不要在类中Handle Me.Click事件,否则在派生类中将失去处理Click事件的能力。