大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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 '光标恢复正常