我在模块中有一个功能,我需要在其中更改光标
我知道为了更改光标,我们可以使用Me.Cursor=Cursors.cursor_name
但由于该函数位于模块而不是表单类中,因此我无法访问Me
我可以用什么代替?
P.S。:该函数被使用了很多次,每次调用写这行(两次)是不切实际的
编辑: P.S.2:该函数几乎也用于每种形式,因此我不能使用表格的名称
答案 0 :(得分:0)
我找到了一个解决方案:将函数的参数发送给我:
Public Function search(byVal myForm as Form,...(my other parameters)) As DataTable
myform.Cursor=Cursors.WaitCursor
' do the function work
myform.Cursor=Cursors.Default
End Function
并将其称为:
search(Me,...)
感谢您的帮助:)
答案 1 :(得分:0)
我知道这是一个比较老的问题,但是我正在寻找解决方案并发现:
Form.ActiveForm
如果用于更改光标的表单是活动表单,则可以在此处使用(这很明显)。