从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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 '光标恢复正常
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图