vb.net如何重写控件,C#重写控件

VB.net 重写KeyPress事件疑问

怎么会捏，你是不是没有加上mybase.keypress

正确的重写步骤:新建一个Component-类下面一行写上Inherits

TextBox-然后写入:

Protected

Overrides

Sub

OnKeyPress(ByVal

e

As

System.Windows.Forms.KeyPressEventArgs)

MyBase.OnKeyPress(e)'这个东东是原来的keypress执行的代码，它会引发keypress事件

'-----这里写代码

End

Sub

相关问答

Q1: vb.net如何重写函数？比如重写ToString。 Dim a As Integer = 1 MessageBox.Show(a.ToString) '重写……

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim a As New month(1)

MessageBox.Show(a.ToString)

End Sub

End Class

Public Class month

Dim m As Integer

Public Sub New(i As Integer)

m = i

End Sub

Public Overrides Function ToString() As String

If m = 1 And m = 12 Then

Return Choose(m, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二") + "月"

Else

Return m.ToString

End If

End Function

End Class

Q2: vb.net 如何重绘Label控件？

新建一个Winform，在和Form1平行的位置粘贴如下代码

Public Class MyLabel Inherits Label Protected Overrides Sub OnPaint(e As PaintEventArgs) e.Graphics.DrawEllipse(New Pen(Color.Red), New Rectangle(2, 2, 10, 10)) MyBase.OnPaint(e) End Sub End Class

运行，停掉，在工具箱找到MyLabel，拖动就可以看到效果。这只是最基本的重写，要模仿QQ还需要其他技术以及美工。