假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click( ) Static x As Int

admin2013-04-11  37

问题 假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
    Private Sub Form_Click( )
         Static x As Integer
         Cls
         Print "Mousepointer Property is now "; x
         Forml.【  】=x
         x=-x+1
         If x = 15 Then x = 0
    End Sub

选项

答案MousePointer

解析 MousePointer属性可以通过代码设置,也可以通过属性窗口设置,在程序代码中设置MousePoimer属性的一般格式为:
   对象.MousePointer=设置值
   由于程序中使用Static关键字定义变量x,每次单击窗体时x的值增加1,并且下次单击窗体时,x能保留上次的值,这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。
转载请注明原文地址:https://jikaoti.com/ti/rT60FFFM
0

最新回复(0)