richtextbox获取某行_richtextbox 光标_richtextbox和textbox(27)

事件的触发顺序： mousedown、 mouseup、click、dblclick

鼠标事件

1．鼠标事件过程格式 鼠标事件过程的语法格式为：

private sub form _ mousedown (button as integer , shift as integer, x as single ,y as single) end sub

说明：(1) button参数表示哪个鼠标键被按下。用1，2，4位分别表示鼠标的左、 右、中键.0表示没有按下鼠标键 (2)shift参数表示是按下键盘上shift键、ctrl键、alt键。用1，2，4分别表示按下是 shift键、ctrl键、alt键。3表示同时按下shift和ctrl键,5 表示同时按下shift 和alt 键,6表示同时按下ctrl和alt 键。7表示同时按下shift、ctrl和alt 键。0表示没有按 下转换键。 （3）x , y参数表示鼠标指针的当前坐标位置，x为横坐标值，y为纵坐标值。

private sub form _ mouseup (button as integer , shift as integer, x as single ,y as single) end sub private sub form _ mousemove(button as integer , shift as integer, x as single ,y as single) end sub

例子：制作一个画笔小程序

dim paintnow as boolean private sub form_load() drawwidth=5 设置线条的宽度 forecolor=qbcolor(10) 设置线条的颜色为绿色 end sub

private sub form _ mousedown (button as integer , shift as integer, x as single ,y as single) paintnow=true ‘开始绘画 end sub private sub form _ mouseup(button as integer , shift as integer, x as single ,y as single) paintnow=false 停止绘画 end sub private sub form _ mousemove (button as integer , shift as integer, x as single ,y as single) pset(x,y) ‘绘图 end sub

习题：制作一个画笔小程序，拖动左键用绿色画，拖动右键用红色 画，按shift键，ctrl键,alt键可设置线条的宽度分别是2、5、10

代码实现

：

4.5.2键盘事件

4.5.3其它事件：

unload事件：关闭窗体时，触发窗体的unload事件。 例子：关闭窗体时，显示form2窗体。 private sub form_unload(cancel as integer) form2.show end sub 参数cancel的值为0表示已关闭窗体，非0值表示未关闭窗体。 load事件：当窗体装载入内存时，触发窗体的load事件。 例子：当窗体装入时，将图片装入窗体。 private sub form_load() form1.picture=loadpicture(“c:picture1.wmf”) end sub

4.6窗体的方法

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-27.html