作者：绿色风
分类：
时间：2022-08-18
浏览：159
楼主
wise |
Q:如何在VSTO里面修改鼠标指针？
A：Cursor属性是一种XlMousePointer类型的属性，通过它可以修改Excel鼠标指针的外观。
Cursor属性的值为:xlDefault、xlIBeam、xlNorthwestArrow、xlWait
其VSTO代码如下:- Private Sub ThisWorkbook_Startup() Handles Me.Startup
- Dim originalCursor As Excel.XlMousePointer
- '定义一个XlMousePointer类型的属性变量
- originalCursor = Globals.ThisWorkbook.Application.Cursor
- '赋予该变量为当前工作簿的Cursor属性
- Try
- With Globals.ThisWorkbook.Sheets("Sheet1")
- '在当前工作簿的Sheet1中进行运行
- Me.Application.Cursor = Excel.XlMousePointer.xlNorthwestArrow
- '赋予该Cursor属性为Excel的鼠标指针的外观xlNorthwestArrow，另外其外观的值还有XlDefault\xlIBeam\xlWait
- Dim r As Random = New Random()
- '定义一个随机变量r的随机数
- Dim i As Integer
- '定义一个整型变量i
- For i = 1 To 100
- Dim address As String = String.Format("A{0}", i)
- '赋予address为一个字符类型的变量
- Dim xlRange As Excel.Range = .range(address)
- '赋予值给单元格
- xlRange.Value2 = r.Next()
- '赋予随机数给该单元格
- Next
- End With
- Finally
- Me.Application.Cursor = originalCursor
- End Try
- End Sub
|
2楼
亡者天下 |
建议小7老师来一个入门的教程，就像你的SQL那个一样
|
3楼
wise |
等我系统学习好先。 |
4楼
亡者天下 |
那我们期待，那小7这个月来一个18天达标？
|
5楼
蓝色的海 |
学习了谢谢 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一