文档介绍：电子教鞭设计报告
学院材料学院班级材料074 学号 072004 姓名杜文娜成绩
一、设计思路
程序可以对屏幕进行抓图并全屏幕显示
可以在抓到的图上进行画线,画矩形,进行文字标注等简单处理
通过菜单进行更多功能间的转换
可以加箭头
设计程序界:在窗体双击事件时,利用API抓取屏幕图像
画线:可以采用Pset函数配合Mouse_down Mouse_move Mouse_up来进行
画矩形:用line方法加B参数,并把当前的DrawMode设置为Xor模式,达到鼠标移动并按Ctrl键或Alt键时画出矩形的效果
添加文字标注:采用textbox和label控件数组相配合完成,mondialog控件改变颜色字体
加箭头:使用三个line控件
清屏:用cls语句实现,并将label的visible属性改变为false
退出:用unload语句
菜单设计:建立浮动菜单
二、模块之间的调用关系,或程序流程图
该程序的功能在一个窗体中即可实现。另一模块中的内容只作为对API函数的声明。
三、部分程序关键源代码及注释
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
'获得窗口句柄用于抓图
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
'释放窗口句柄
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
'绘图到某个句柄上
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
‘将窗体置在所有窗体最前面,即置顶函数
Form_Load事件,用于将窗体缩小到右下角
'窗体置顶
SetWindowPos , -1, / , \ , \ , \ , 0
'定位窗体到右下角
= -
=