VB.net 重寫KeyPress事件疑問

怎么會(huì)捏，你是不是沒有加上mybase.keypress

成都創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)虞城,十余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):13518219792

正確的重寫步驟:新建一個(gè)Component-類下面一行寫上Inherits

TextBox-然后寫入:

Protected

Overrides

Sub

OnKeyPress(ByVal

e

As

System.Windows.Forms.KeyPressEventArgs)

MyBase.OnKeyPress(e)'這個(gè)東東是原來的keypress執(zhí)行的代碼，它會(huì)引發(fā)keypress事件

'-----這里寫代碼

End

Sub

vb.net如何重寫函數(shù)？比如重寫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

vb.net 如何重繪Label控件？

新建一個(gè)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

運(yùn)行，停掉，在工具箱找到MyLabel，拖動(dòng)就可以看到效果。這只是最基本的重寫，要模仿QQ還需要其他技術(shù)以及美工。

網(wǎng)站名稱：vb.net如何重寫控件,C#重寫控件
本文地址：http://sd-ha.com/article2/dsspeoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、小程序開發(fā)、網(wǎng)站維護(hù)、網(wǎng)站內(nèi)鏈、App設(shè)計(jì)、企業(yè)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)