DSAPI多功能组件编程应用-DS提示气泡

Posted 2020-09-21 clnchanpin

首先下载DSAPI.dll。并在项目中引用。

该功能包括在DSAPI1.0.1.1及更高版本号，DLL请到本人资源里查找。

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim F As New DSAPI.DS提示气泡(Me)
        With F
            .背景色 = Color.Red
            .气泡最大宽度 = 300
            .图标 = Bitmap.FromFile("G:\图标_Icon\png\png-0047.png")
            .文字颜色 = Color.DarkBlue
            .显示方向 = DSAPI.DS提示气泡.方向.下
            .字体 = New Font("微软雅黑", 10)
            .字体清晰度 = Drawing.Text.TextRenderingHint.AntiAliasGridFit
            .文本 = "DS提示气泡" & vbCrLf & "气泡弹出时不抢占原焦点"
        End With
        AddHandler F.气泡被点击, AddressOf Mevent
        F.显示气泡(Button1.PointToScreen(New Point(0, 0) + New Point(0, Button1.Height)))
    End Sub
    Public Sub Mevent(ID As Integer)
        MsgBox("ID为" & ID & "的气泡被点击了")
    End Sub

注：应网友要求，自己主动消失功能已经提供，当设置‘自己主动消失时间“为非零时，气泡将在指定时间之后自己主动消失。