2023年12月2日发(作者：)

维普资讯

？　一“　…　；　…　…　…　；……　’　；　实用第一　智慧密集　．…　。　．　…　ＡｃｔｉｖｅＷｉｎｄｏｗ。ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ。Ｐｒｉｎｔ０ｕｔ　Ｃｏｐｉｅｓ：＝１．　Ｃｏｌｌａｔｅ：＝Ｔｒｕｅ　Ｓｈｅｅｔｓ（ＳｊＳｈｅｅｔＮａｍｅ）。Ａｃｔｉｖａｔｅ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｉｆ　Ｎｅｘｔ　Ｅｎｄ　Ｓｕｂ　检测相片是否存在模块的代码如下：　Ｆｕｎｃｔｉｏｎ　Ｆ＿ｌｅＯｒＦｏｌｄｅｒＥｘｉｓｔｓｊＪｓｅＤｉｒ（ｓｔｒＰａｔｈ　Ａｓ　Ｓｔｒｉｎｇ）Ａｓ　Ｂｏｏｌｅａｎ　注意，使用ＤＩＲ函数来检测文件或者文件夹是否存在在　局域网环境下　Ｉｆ　Ｄｉｒ（ｓｔｒＰａｔｈ）＝～Ｔｈｅｎ　ＦｉｌｅＯｒＦｏｌｄｅｒＥｘｉｓｔｓ＿ＵｓｅＤｉｒ＝Ｆａｌｓｅ　Ｅｌｓｅ　Ｆｉｌｅ０ｒＦｏｌｄｅｒＥｘｉｓｔｓ　ＵｓｅＤｉｒ＝Ｔｒｕｅ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　灵活应用Ｅｘｃｅｌ和ＶＢＡ技术，可以开发出各种功能强大的　办公自动化系统，为实现办公自动化设计出更多更好更灵活的　解决方案。　（作者：李荣鑫）　国　怎样用Ｃ＋＋Ｂｕｉｌｄｅｒ下实现任意区域截图　首先新建一个工程，在Ｆｏｒｍ１中放入一个ＴＳｃｒｏｌｌＢｏｘ　控件，设置其ＡｕｔｏＳｃｒｏｌｌ属性为ｔｒｕｅ，然后在ＳｃｒｏｌｌＢｏｘ中加入　一个ＴＩｍａｇｅ控件并重新命名为ＩｍａｇｅＳｈｏｗ，用来显示抓取到的　图像，将ＩｍａｇｅＳｈｏｗ的Ａｌｉｇｎ属性设为￣Ｎｏｎｅ，ＡｕｔｏＳｉｚｅ属性设　为ｔｕｒｃ。这样，当在ＩｍａｇｅＳｈｏｗ中显示大图像时，Ｔｌｍａｇｅ控件　会根据图像的大小自动调节尺寸，ＴＳｃｒｏ１１Ｂｏｘ控件则会自动设　置滚动条以方便对大图像的浏览。　在工程中加入一个新的窗体Ｆｏｒｍ２，在其上放置一个Ｔｉｍ—　ａｇｅ控件Ｉｍａｇｅｌ，设置Ｉｍａｇｅ１的Ａｌｉｇｎ属性为ａｌＣｌｉｅｎｔ。接下　来，设置程序中要用到的变量，在ＴＦｏｒｍ２中定义七个私有变　量，代码如下：　ｐｒｉｖａｔｅ：　ＴＰｏｉｎｔ　ｐｔ；／／记录画矩形过程中鼠标的当前位置　ｉｎｔ　Ｏｌｄｘ，Ｏｌｄｙ；／／记录画矩形过程中的上一个位置　ＨＤＣ　ｈｄｃｌ，ｈｄｃ２；／／设备环境句柄　ＴＲｅｃｔ　ｒｅｃｔ；／／定义一个矩形区域对象　ｂｏｏｌ　ｂＭｏｕｓｅＤｏｗｎＦｌａｇ；／／是否按下鼠标左键的标志　为了能让用户在选取的过程中看到和桌面一样的图像，窗　体的大小必须和桌面一样，且窗体要设为无边框模式，同时，　还要把桌面的图像显示在Ｉｍａｇｅ中，以生成一个“假桌面”。　在Ｆｏｒｍｌ中放置一个Ｂｕｔｔｏｎ１，用来点击后显示Ｆｏｒｍ２，实　现的核心代码如下：　ｖｏｉｄ＿ｆａｓｔｃａｌｌ　ＴＦｏｒｍ１：：Ｂｕｔｔｏｎ１Ｃｌｉｃｋ（ＴＯｂｊｅｃｔ　Ｓｅｎｄｅｒ）　（　西与罐　Ｆｏｒｍ１一＞Ｈｉｄｅ（）　／／隐藏Ｆｏｒｍ１　Ｓｌｅｅｐ【１００）：　／／延时１００毫秒　／／显示Ｆｏｒｍ２　Ｆｏｒｍ２＝ｎｅｗ　ＴＦｏｒｍ２（Ａｐｐｌｉｃａｔｉｏｎ）　Ｆｏｒｍ２一＞ＳｈｏｗＭｏｄａｌ（）：　ｄｅｌｅｔｅ　ＦＯｒｍ２：　）　一　在Ｆｏｒｍ２的ＯｎＣｒｅａｔｅ事件中添加如下代码：　ＢｏｒｄｅｒＳｔｙｌｅ＝ｂｓＮｏｎｅ；／／Ｆｏｒｍ２窗体为无边框模式　ＷｉｎｄｏｗＳｔａｔｅ＝ｗｓＭａｘｉｍｉｚｅｄ；／／设置Ｆｏｒｍ２窗口最大化　ＦｏｒｍＳｔｙｌｅ＝ｆｓＳｔａｙＯｎＴｏｐ；／／设置Ｆｏｒｍ２窗口在最前端显示　ＧｅｔＷｉｎｄｏｗＲｅｃｔ（ＧｅｔＤｅｓｋｔｏｐＷｉｎｄｏｗ（），＆ｒｅｃｔ）　／／获取屏幕的矩形范围，ＧｅｔＤｅｓｋｔｏｐＷｉｎｄｏｗ（）为获取桌面　／／窗口句柄　Ｉｍａｇｅ１一＞Ｐｉｃｔｕｒｅ＝ＮＵＬＬ；　Ｉｍａｇｅ１一＞Ｐｉｃｔｕｒｅ一＞Ｂｉｔｍａｐ一＞Ｗｉｄｔｈ＝ｒｅｃｔ．ｒｉｇｈｔ—ｒｅｃｔ．　１ｅｆｔ；／／设置Ｉｍａｇｅ１的宽　Ｉｍａｇｅ１一＞Ｐｉｃｔｕｒｅ一＞Ｂｉｔｍａｐ一＞Ｈｅｉｇｈｔ＝ｒｅｃｔ．ｂｏｔｔｏｍ—　ｒｅｃｔ．ｔｏｐ；／／设置Ｉｍａｇｅ１的高　ｈｄｃ　１＝ＧｅｔＷｉｎｄｏｗＤＣ（ＧｅｔＤｅｓｋｔｏｐＷｉｎｄｏｗ（））：　／／获取源设备环境句柄　ｈｄｃ２＝Ｉｍａｇｅ１一＞Ｃａｎｖａｓ一＞Ｈａｎｄｌｅ；　／／获取目标设备环境的句柄　ＢｉｔＢＩｔ（ｈｄｃ２，０，０，ｒｅｃｔ．Ｗｉｄｔｈ（），ｒｅｃｔ。Ｈｅｉｇｈｔ（），ｈｄｃｌ，０，０，　ＳＲＣＣＯＰＹ）　在显示Ｆｏｒｍ２时先执行Ｆｏｍｒ２中ＯｎＣｒｅａｔｅ事件，即把整个　桌面的图像拷贝到了Ｆｏｒｍ２中的Ｉｍａｇｅｌ里，从而生成了一个　“假桌面”。上述代码中的ＢｉｔＢｌｔ函数的功能为对指定的设备　环境区域中的图像进行位块（ｂｉｔ＿ｂｌｏｃｋ）转换，以传送到目标设　备环境。其原型为：ＢＯＯＬ　ＢｉｔＢｌｔ（ＨＤＣ　ｈｄｃＤｅｓｔ，ｉｎｔ　ｎＸＤｅｓｔ，ｉｎｔ　ｎＹＤｅｓｔ，ｉｎｔ　ｎＷｉｄｔｈ，ｉｎｔ　ｎＨｅｉｇｈｔ，ＨＤＣ　ｈｄｃＳｒｃ，ｉｎｔ　ｎＸＳｒｃ，ｉｎｔ　ｎＹＳｒｃ，ＤＷＯＲＤ　ｄｗＲＯＰ）；其中，ｈｄｃＤｅｓｔ指向目标设备环境的　句柄；ｎＸＤｅｓｔ（ｎＹＤｅｓｔ）指定目标矩形区域左上角的ｘ（Ｙ）　轴逻辑坐标；ｎＷｉｄｔｈ（ｎＨｅｉｇｈｔ）指定目标矩形区域的逻辑宽度　（高度）；ｈｄｃＳｒｃ指向源设备环境句柄；ｎＸＳｒｃ（ｎＹＳｒｃ）指定　源矩形区域左上角的ｘ（Ｙ）轴逻辑坐标；ｄｗＲｏｐ：指定光栅　操作代码。下面的代码，将实现如何在　‘‘假桌面”上画出矩形　区域并截取该区域的图像。Ｆｏｒｍ２中Ｉｍａｇｃｌ的ＯｎＭｏｕｓｅＤｏｗｎ　事件处理代码如下：　ｖｏｉｄ　ｆａｓｔｃａｌｌ　ＴＦｏｒｍ２：：Ｉｍａｇｅ１　ＭｏｕｓｅＤｏｗｎ（ＴＯｂｊｅｃｔ｛　Ｓｅｎｄｅｒ．ＴＭｏｕｓｅＢｕｔｔｏｎ　Ｂｕｔｔｏｎ，ＴＳｈｉｆｔＳｔａｔｅ　Ｓｈｉｆｔ，ｉｎｔ　Ｘ，ｉｎｔ　Ｙ）　【　ｉｆ（Ｂｕｔｔｏｎ＝＝ｍｂＬｅｆｔ）／／如果按下鼠标的左键　【　ｂＭｏｕｓｅＤｏｗｎＦｌａｇ＝ｔｒｕｅ；／／标志赋值为“真”　Ｃａｎｖａｓ一＞Ｒｅｃｔａｎｇｌｅ（ｐｔ。Ｘ，ｐｔ．Ｖ，Ｏｌｄｘ，Ｏｌｄｙ）：　／／在第２次画矩形时清除第一次画的矩形ｐｔ．ｘ＝×；　ｐｔ。Ｙ＝Ｙ：　０Ｉｄｘ＝×：