首页 > 代码库 > DSAPI多功能组件编程应用-DS提示气泡
DSAPI多功能组件编程应用-DS提示气泡
首先下载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
注:应网友要求,自己主动消失功能已经提供,当设置‘自己主动消失时间“为非零时,气泡将在指定时间之后自己主动消失。
DSAPI多功能组件编程应用-DS提示气泡
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。