Private WithEvents taskbarNotifier2 As PopProgram.PopProgram
4>初始化数据Form1_Load事件
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load taskbarNotifier2 = New PopProgram.PopProgram taskbarNotifier2.SetBackgroundBitmap("D: empTaskBarTaskBarskin.bmp", Color.FromArgb(255, 0, 255)) '此处图片可以换自已的路径 taskbarNotifier2.SetCloseBitmap("D: empTaskBarTaskBarclose.bmp", Color.FromArgb(255, 0, 255), New Point(127, 8)) '同上 taskbarNotifier2.TitleRectangle = New Rectangle(40, 9, 70, 25) taskbarNotifier2.TextRectangle = New Rectangle(8, 41, 133, 68) End Sub
5>button的Click事件
Try With taskbarNotifier2 .CloseButtonClickEnabled = True .TitleClickEnabled = False .TextClickEnabled = True .DrawTextFocusRect = True .KeepVisibleOnMouseOver = True .ReShowOnMouseOver = False .Show("hello world", "你有一單未審核,趕快審核吧!", 500, 3000, 500) End With Catch ex As Exception MsgBox(ex.Message) End Try