mousemove

来源：求职简历网时间：2024-03-29 20:13:48编辑：皮带君

VB事件的鼠标事件

鼠标事件是Visual Basic编程中最常用到的事件，多数控件都支持鼠标操作，因此对鼠标事件进行编程是非常重要的。鼠标事件主要有以下几种：Click：单击事件，即单击鼠标时发生的事件。DblClick：双击事件，即双击鼠标时发生的事件。MouseDown：鼠标按下时发生的事件。MouseUp：鼠标抬起时发生的事件。MouseMove：鼠标移动时发生的事件，对某控件的此事件进行编程，则当鼠标移过此控件时就会触发此事件，执行其相应代码。鼠标事件的发生顺序是：(1)首先发生的是MouseMove事件，当鼠标移动时，将会连续触发MoouseMove事件。(2)当鼠标按下时发生MouseDown事件。(3)鼠标松开时发生MouseUp事件。(4)如果按住的是鼠标左键，则Click事件在MouseUp之后发生。双击鼠标时事件发生顺序是：(1)当鼠标按下时发生MouseDown事件。(2)鼠标松开时发生MouseUp事件。(3)单击鼠标发生Click事件。(4)双击鼠标发生DblClick事件。(5)完成鼠标双击时发生MouseUp事件。在上面所列出的这些事件中，最常用到的就是Click事件和DblClcik事件，MouseMove和 douseUp事件不太经常用，一般用在需要对鼠标进行处理的地方。如：对于最常见的命令按钮，通常情况下我们使用Click事件；而在进行画图的时候，例如画一条直线，必须先按住鼠标左键，然后拖动鼠标，再松开鼠标。在此过程中，首先触发MouseDown事件，我们可以在此事件中记录鼠标的开始位置，再对MouseUp事件进行编程，以记录鼠标的结束位置；其中还要对MouseMoove事件进行编程，以在移动过程中进行处理画图操作，而不是 Click或DblClick事件。鼠标的单击事件定义如下：Sub Click()End Sub双击事件定义如下：Sub DblClick()End Sub对于MouseDown和MouseUp事件，它们的定义要复杂的多。对于MouseUp事件，其定义如下：Private Sub Labell _MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)End S在上面的参数中，Button As Integer定义了参数Button，该参数是用于确定按下的是鼠标的左键，右键，还是中键，其取值如下表所示。常量　数值说明VbleftButton 　1 　按下鼠标左键VbRightButton 　 2 　按下鼠标右键VbMiddleButton 　4 　按下鼠标中键Shift As Integer定义整型参数Shift，该参数用于确定键盘上Shift键、Ctrl键、Alt 键是否被按下，其取值如下表所示。常量数值说明 VbShiftMask 1 按下Shift键 VbCtrlMask 2 按下Ctrl键 VbAltMask 4 按下Alt键要判断是哪个键被按下了，要由相应的程序代码来完成。如：Private Sub Labell MouseUp(Button AS Integer，Shift As Integer，X aS Sing , Y as Single)If Button=VbRightButton ThenMsgbox(“你按下去的是鼠标右键”)End IfEnd Sub此段代码在鼠标抬起时执行，程序中用If条件判断语句来判断究竟是哪个键被按当Button=VbRightButton成立时，即鼠标右键被按下，这时可以执行相应的操作。Private Sub Labell MouseUp(Button As Integer，Shift As Integer，X as Sin2 Single)If Shift=2 ThenMsgbox(“单击鼠标时Ctrl键被按下”)EndIfEnd Sub这段代码在执行过程中判断当鼠标抬起时键盘上哪个键被按了下去。如上表说明，当Shift值为2时，表示Ctrl键被按了下去。由上面的例子可以看出我们可以对鼠标进行一些判断，然后执行一些特殊操作，但用起来通常比较麻烦。

vb中MouseMove怎么用？

　　MouseMove事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标，否则，当鼠标位置在对象的边界范围内时该对象就能接收 MouseMove事件。
　　要测试 button 或 shift 参数，可使用对象浏览器中的 Visual Basic (VB) 对象库中所列出的常数，用来定义该参数中的各个位：
　　vbLeftButton

　　左按钮按下。
　　
　　vbRightButton

　　右按钮按下。
　　
　　vbMiddleButton

　　中间按钮按下。
　　
　　vbShiftMask

　　SHIFT 键按下。
　　
　　vbCtrlMask

　　CTRL 键按下。
　　
　　vbAltMask

　　ALT 键按下。
　　
　　然后这些常数用作位屏蔽，对于按钮的各种组合，无须计算出各个组合的唯一的位字段值即可进行检测。
　　要测试某一条件，首先将各个结果赋给一个临时整型变量然后再与一个位屏蔽的 button 或 shift 参数进行比较。测试应当用各个参数进行 And 运算，若结果大于零，则说明该键或按钮被按下。其操作如下：
　　LeftDown = (Button And vbLeftButton) > 0 CtrlDown = (Shift And vbCtrlMask) > 0
　　然后，接下去可对结果的各种组合进行检测，其操作如下：
　　If LeftDown And CtrlDown Then
　　注意为了对鼠标按钮按下和释放所引起的事件进行处理，可使用 MouseDown 和 MouseUp 事件过程。
　　MouseMove事件的 button 参数与 MouseDown 和 MouseUp 事件的 button 参数是不同的。对于 MouseMove事件来说，button 参数指示的是所有按钮当前的状态；一个 MouseMove事件可指示某些、全部或没有一个按钮被按下。对于 MouseDown 和 MouseUp 事件来说，button 参数在每个事件精确地指示一个按钮。
　　在 MouseMove事件中任何时候移动窗口，都能引起层叠事件。当该窗口移动到指针下面时 MouseMove事件将产生。即使是鼠标完全不动 MouseMove事件也能产生。

VB里的mousemove事件举例

这是鼠标移动时发生的事件，如：Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)MsgBox "你点到我啦！"End Sub当鼠标移动到这个标签控件的时候，就弹出对话框扩展资料：鼠标事件是Visual Basic编程中最常用到的事件，多数控件都支持鼠标操作，因此对鼠标事件进行编程是非常重要的。鼠标事件主要有以下几种：MouseDown：鼠标按下时发生的事件。MouseUp：鼠标抬起时发生的事件。MouseMove：鼠标移动时发生的事件，对某控件的此事件进行编程，则当鼠标移过此控件时就会触发此事件，执行其相应代码。参考资料来源：百度百科-VB事件

能够在窗体上触发MouseMove事件的操作是

应该选C项。能够在窗体上触发MouseMove事件的操作是鼠标滑过窗体。MouseDown、MouseMove、MouseUp这三个事件主要是响应鼠标的操作。在窗体上按下鼠标，会触发MouseDown事件。松开鼠标，会触发MouseUp事件。移动鼠标，会触发MouseMove事件。所以选择C项。扩展资料mousemove事件的节流：依然先从字面意思去理解，节流的点在于节。让函数有节制的执行。举个栗子，仍旧是上面的mousemove事件。仍旧给定时间500毫秒。节流操作后，mousemove事件会变为每隔500毫秒执行一次。也就是说，节流不会断流，频繁触发仍会多次执行，但会降低频率，只在规定时间间隔内执行一次。同样的动作，防抖的函数不会被触发。这三个事件不同于以上几个事件，他们都是有参数的，Button、Shift、X，Y，可以判定事件的详细信息，比如按下哪个键，鼠标的位置等等。

求近三年计算机等级考试二级VB的真题

2007年9月全国计算机等级考试二级笔试试卷
Visual Basic语言程序设计
（考试时间90分钟，满分100分）
一、选择题（每小题2分，共70分）
下列各题A) 、B) 、C) 、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）软件是指
A）程序 B）程序和文档
C）算法加数据结构 D）程序、数据与相关文档的完整集合
（2）软件调试的目的是
A）发现错误 B）改正错误
C）改善软件的性能 D）验证软件的正确性
（3）在面向对象方法中，实现信息隐蔽是依靠
A）对象的继承 B）对象的多态
C）对象的封装 D）对象的分类
（4）下列叙述中，不符合良好程序设计风格要求的是
A）程序的效率第一，清晰第二 B）程序的可读性好
C）程序中要有必要的注释 D）输入数据前要有提示信息
（5）下列叙述中正确的是
A）程序执行的效率与数据的存储结构密切相关
B）程序执行的效率只取决于程序的控制结构
C）程序执行的效率只取决于所处理的数据量
D）以上三种说法都不对
（6）下列叙述中正确的是
A）数据的逻辑结构与存储结构必定是一一对应的
B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构
C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构
D）以上三种说法都不对
（7）冒泡排序在最坏情况下的比较次数是
A）n(n＋1)/2 B）nlog2 n C）n(n－1)/2 D）n/2
（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为
A）219 B）221 C）229 D）231
（9）下列叙述中正确的是
A）数据库系统是一个独立的系统，不需要操作系统的支持
B）数据库技术的根本目标是要解决数据的共享问题
C）数据库管理系统就是数据库系统
D）以上三种说法都不对
（10）下列叙述中正确的是
A）为了建立一个关系，首先要构造数据的逻辑关系
B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项
C）一个关系的属性名表称为关系模式
D）一个关系可以包括多个二维表
（11）要使一个文本框可以显示多行文本，应设置为True的属性是
A）Enabled B）MultiLine C）MasLenfth D）Width
（12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是
A）Form_KeyPress() B）Text1_LostFocus()
C）Text1_Click() D）Test1_Change()
（13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是
A）Private Sub Command1_Click() B）Private Sub
Text1.GotFocus Command1.GotFocus
End Sub EndSub
C）Private Sub Command1_Click() D）Private Sub
Text1.SetFocus Command1.SetFocus
End Sub End Sub
（14）执行以下程序后输出的是
Private Sub Command1_Click()
Ch$=”AABCDEFGH”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub
A)CDEFGH B)ABCD C)FG D)AB
（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是
A)Prvate Sub List1_Click() B)Private Sub Form1_Click()
Print List1.Text Print List1.Text
End Sub End Sub
C)Private Sub List1_Click() D)Private Sub Form1_Click()
Print Form1.Text List1.Print List1.Text
End Sub End Sub
（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指
A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离
C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离
（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是
A)CD1.DialogTitle=“对话框窗口” B)CD1.Action=“对话框窗口”
C)CD1.FileName=“对话框窗口” D)CD1.Filter=“对话框窗口”
（18）在窗体上有如右图所示的控件，各控件的名称
与其标题相同，并有如下程序：
Private Sub Form_Load()
Command2.Enabled=False
Check1.value=1
End Sub
刚运行程序时，看到的窗体外观是：

（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是
A)Private Sub Command1_Click()
List1.Clear
End Sub
B) Private Sub Command1_Click()
List1.Clear List1.ListIndex
End Sub
C) Private Sub Command1_Click()
List1.Removeltem List1.ListIndex
End Sub
D) Private Sub Command1_Click()
List1.Removeltem
End Sub
（20）某人设计了如下程序用来计算并输出7!（7的阶乘）
Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是
A）把t=0改为t=1
B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1
C）把For k = 7 To 2 Stip-1改为Fork=1 To 7
D）把Next改为Nexi k
（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是
A）把所有单选按钮的Index属性改为相同值
B）把所有单选按钮的Index 属性改为连续的不同值
C）把所有单选按钮的Caption属性值改为相同
D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。
（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：
标题名称
文件 file
新建 new
保存 save
A）Private Sub save_Click() B）Private Sub save_Click()
Text1.Text=file.save.Caption Text1.Text=save.Caption
End Sub End Sub
C）Private Sub file_Click() D）Private Sub file_Click()
Text1.Text=file.save.Caption Text1.Text=save.Caption
End Sub End Sub
（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab
的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现上述目的，那么，他应做的修改是
A）通过属性窗口把计时器的Interval属性设置为2000
B）通过属性窗口把计时器的Enabled属生设置为False
C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$
D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是

（25）下面关于文件的叙述中错误的是
A）随机文件中各条记录的长度是相同的]
B）打开随机文件时采用的文件存取方式应该是Random
C）向随机文件中写数据应使用语句Print#文件号
D）打开随机文件与打开顺序文件一样，都使用Open语句
（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是
A）Picture1.Picture=”Flie1.jpg
B）Picture1.Picture=LoadPicture(“File1.jpg”)
C) LoadPicture(“File1.jpg”)
D）Call LoadPicture(“File1.jpg”)
（27）下面程序执行时，在窗体上显示的是
Private Sub Command1_Click()
Dim a(10)
For k = 1 To 10
a(k) = 11 – k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub
A）3 B）5 C）7
（28）为达到把a、b中的值交换后输出的目的，某人编程如下：
Private Sub Command1_Click()
a% = 10:b% = 20
Call swap(a,b)
Print a,b
End Sub
Private Sub swap(ByVal a As Integer,ByVal b As Integer)
c= a:a=b:b=c
End Sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是
A）调用swap过程的语句错误，应改为Call swap a,b
B）输出语句错误，应改为：Print ”a”,”b”
C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer)
D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a
（29）有如下函数：
Function fun(a As Integer,n As Integer) As Integer
Dim m As Integer
While a >=n
a=a-n
m= m+1
Wend
fun=m
End Function
该函数的返回值是
A）a乘以n的乘积 B）a加n的和
C）a减n的差 D）a除以n的商（不含小数部分）
（30）下面程序的输出结果是
Private Sub Command1_Click()
ch$=”ABCDEF”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S=””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A）ABCDEF B）FEDCBA C）A D）F
（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function Maxvalue(a() As Integer) As Integer
Dim max%
max=1
For k = 2 To 10
If a(k)>a(max) Then
max = k
End If
Next k
Maxvalue = max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是
A）语句max = 1应改为max = a(1)
B）语句For k = 2 To 10应改为For k = 1 To 10
C）If语句中的条件a(k)>a(max)应改为a(k)>max
D）语句Maxvalue = max 应改为Maxvalue = a(max)
（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：
Private Sub Command1_Click()
Dim n%,b,t
t = 1:b = 1:n = 2
Do
b = b*n
t = t + b
n = n +1
Loop Until n>9
Print t
End Sub
此程序计算并输出一个表达式的值，该表达式是
A）9！ B）10！ C）1！+2！+…+9！ D）1！+2！+…+10！
（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)
cmdmave = True
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)
cmdmave = False
End Sub
此程序的功能是
A）每按下鼠标键一次，在鼠标所指位置画一个点
B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数
Function fun(a As Integer) As Integer
Dim n%
n = 1
While a \ 10 >= 0
n = n + 1
a = a \ 10
Wend
fun = n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是
A）把语句n = 1改为n = 0
B）把循环条件a \ 10 >= 0改为a \ 10 > 0
C）把语句 a = a \ 10改为a = a Mod 10
D）把语句fun = n改为 fun = a
（35）在窗体上有一个名称为Check1的复选框数组
（含4个复选框），还有一个名称为Text1的文本
框，初始内容为空。程序运行时，单击任何复选
框，则把所有选中的复选框后面的方字罗列在文
本框中（见图）。下面能实现此功能的事件过程是
A）Private Sub Check1_Click(Indes As Integer)
Text1.Text =""
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格
End If
Next k
End Sub
B）Private Sub Check1_Click(Index As Integer)
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格
End If
Next k
End Sub
C）Private Sub Check1_Click(Index As Integer)
Text1.Text = ""
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(Index).Caption & " " '双引号中是空格
End If
Next k
End Sub
D）Private Sub Check1_Click(Index As Integer)
Text1.Text = ""
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格
Exit For
End If
Next k
End Sub

二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。
(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】。
(2)在两种基本测试方法中，【2】测试的原则之一是保证所测模块中每一个独立路径至少执行一次。
(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】存储结构。
(4)对下列二叉树进行中序遍历的结果为【4】。

（5）在E-R图中，矩形表示【5】。
（6）窗体上有一个组合框，其中已输入了
若干个项目。程序运行时，单击其中一
项，即可把该项与最上面的一项交换。
例如：单击图1中的“重庆”，则与“北
京”交换，得到图2的结果。下面是可
实现此功能的程序，请填空。
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
（7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。
Dim [7] As Integer
Private Sub Form_Load()
pos=HScroIII.value
End Sub
Private Sub HScroIII_Change()
Print [8] -pos
pos=HScroIII.value
End Sub
（8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click()
CD1.Filter ="文本文件1*.txt(Word 文档)*.doc"
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName""Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
（9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox(“请输入一个正整数”)
While x>__[11]___
Print x Mod 10;
x=x\10
Wend
Print__[12]__
End Sub
（10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且
焦点不能离开Text1文本框（见图）。
合法编号的组成是：前2个字符是大写英文
字母，第3个字符是“-”，后面是数字字符
（至少1个）。下面程序可实现此功能，请
填空。
Private Sub Text1_Lostfocus()
Dim k%,n%
n=Len( [13] )
For k=1 to if (n>3,n,4)
c=Mid(Text1. Text,k,1)
Select Case k
Case 1,2
If c"Z" Then
MsgBox("第"&k&"个字符必须是大写字母！")
SetPosition k
Exit For
End If
Case 3
If c"-" Then
MsgBox("第"&k&"个字符必须是字符"'"-"'")
SetPosition k
Exit For
End If
Case Else
If c"9" Then
MsgBox("第"&k&"个字符必须是数字！")
SetPosition k
Exit For
End If
End Select
Next k
End Sub

Private Sub SetPosition(pos As Integer)
Text1.SelStart=pos-1
Text.SelLength= [14]
Text1. [15]
End Sub

2007年9月全国计算机等级考试二级VB参考答案
一、选择题
1-5 DBCAA
6-10 CCABA
11-15 BDCCA
16-20 BAACA
21-25 DBABC
26-30 BDCDB
31-35 DCDBA
二、填空题
1、无歧义性
2、白盒测试
3、顺序
4、ACBDFEHGP
5、实体集
6、Combol1.List(Combol1.ListIndex)
7、pos
8、HScroll1.value
9、CD1.FileName
10、ch
11、10
12、x
13、Text1.Text
14、1
15、SetFocus

C#某对象，如按钮，事件中的MouseEnter和MouseMove还有MouseHover什么区别呢？实验了，但是看不出来！

MouseEnter 事件响应鼠标（或触笔）移入对象的边界区域就是鼠标进去按钮区域就会触发. MouseMove 事件响应鼠标指针（或触笔）跨对象内容区域的移动就是鼠标在按钮的区域内移动就会触发MouseHover 是当鼠标悬停在控件周围指定区域（“悬停矩形”）上时触发它的触发时间由MouseHoverTime 属性控制就是可以设置在上面悬停多少ms时触发对应的时间.============================================================== = 你的问题可以定义一个变量 bool _bKeep=false; 在MouseEnter中写 if(!_bKeep){ comboBox1.DroppedDown = true; _bKeep=false; } 在MouseLeave写if(!_bKeep){comboBox1.DroppedDown = false;} 在DropDown事件中写入 _bKeep=true;

C#中MouseMove的使用方法

是不是鼠标通过tabPage1时listBox1显示:组策略的开启与禁用将会影响用户对电脑的权限操作
通过tabPage2时显示:注册表的开启与禁用将会影响用户对电脑的权限操作?
在构造方法中写如下代码:
tabPage1.MouseMove+=new MouseEventHandler(tabPage2_MouseMove);
tabPage2.MouseMove+=new MouseEventHandler(tabPage2_MouseMove);
listBox1.Items.Clear();
listBox1.Visible = true;
listBox1.Items.Add("组策略的开启与禁用将会影响用户对电脑的权限操作");
listBox1.Items.Add("注册表的开启与禁用将会影响用户对电脑的权限操作");
然后在类中加如下代码:
private void tabPage1_MouseMove(object sender, MouseEventArgs e)
{
listBox1.SelectedIndex=0;
}
private void tabPage2_MouseMove(object sender, MouseEventArgs e)
{
listBox1.SelectedIndex=1;
}
好了,问题解决了

VB 关于MouseMove的问题

请将6个label编成控件数组，这样代码少一些。Private Sub Label1_Click(Index As Integer) Label1(Index).BackColor = RGB(0, 0, 255)End SubPrivate Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Label1(Index).BackColor RGB(0, 0, 255) Then Label1(Index).BackColor = RGB(255, 0, 0) End IfEnd Sub如果不用控件数组，使用的是label1，label2....label6，则需要每个控件的Click，MouseMove都要写一遍代码，如下：（只写label1的，其他的自己改下数字就可以了。Private Sub Label1_Click() Label1.BackColor = RGB(0, 0, 255)End SubPrivate Sub Label1_MouseMove() If Label1.BackColor RGB(0, 0, 255) Then Label1.BackColor = RGB(255, 0, 0) End IfEnd Sub

C#中，picturebox控件中mousemove事件响应问题

使用命令体系。

picturebox.load事件写：

picturebox.mousemove += new .........；

意思很简单，将事件动态加载么，那么就在load或completed事件中再注册mousemove事件不就行了！还有这样的新手来问题么？

obj.Load += new EventHadler(事件);

如果有重复载入时，可考虚在unolod中进将事件删除嘛！用-=就可以了！

上一篇：布鲁诺简介

下一篇：没有了