关于vb.net漏斗的信息

求VB.NET怎么捕捉系统鼠标当前状态？如：打开文件等待时的漏斗状态，或双箭头的可拉伸状态，谢谢。

me.Cursor.ToString()

成都创新互联公司从2013年成立，是专业互联网技术服务公司，拥有项目成都网站制作、成都网站建设、外贸营销网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元恩阳做网站,已为上家服务,为恩阳各地企业和个人服务,联系电话:18980820575

或者可以枚举

me.cursor=Cursors.WaitCursor之类的

不过有以下局限：

自定义指针无法识别

窗口处于非激活状态可能无效

与其他控件可能冲突

添加一个FlowLayoutPanel1(在工具箱--容器里面) 一个Button1

代码如下:

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

Dim url As String = InputBox("输入网站地址?", "输入", "http://";)

If url = "" Then Return

Dim link As New LinkLabel

link.Text = url

link.AutoSize = True

FlowLayoutPanel1.Controls.Add(link)

AddHandler link.LinkClicked, AddressOf Link_LinkClicked

End Sub

Private Sub Link_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

Dim url As String = CType(sender, LinkLabel).Text

Process.Start(url)

End Sub

Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状

'加载耗时较长的函数

Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常

本文标题：关于vb.net漏斗的信息
分享URL：http://myzitong.com/article/doopoii.html