• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

VB编程实用精典小技巧3例

发布: 2007-6-21 21:57 | 作者:   | 来源:   | 查看: 14次 | 进入软件测试论坛讨论

领测软件测试网

   
  一、利用API 获取窗口的标题
新建窗体Form1和按钮Command1在窗体模块中添加如下代码:
Option Explicit
Private Declare Function Get WindowText Lib "us—

er32"Alias "Get WindowTextA"(ByVal hwnd As
Long ,ByVal lpString As String ,ByVal cch As
Long)As Long
'在窗体声明节中加入API 函数“Get WindowText”的说明
'函数将向lpstring 中载入要获得的窗体caption
Private Sub Command1_Click()
Di mreturncode As Long
Di mcaptext As String
Di mcaplen As Long
captext =String$(100,0)
caplen =99
returncode =Get WindowText(ByVal me .hwnd ,
ByVal captext ,ByVal caplen)
print returncode
Print captext
Print caplen
End Sub

 二、获取鼠标在当前窗口(客户区)的屏幕坐标建立一新项目窗体form1并添加控件文本框Text1、Text2在窗体模块中输入:
Option Explicit
Private Declare Function GetCursorPos Lib "user32"
(lpPoint As POINTAPI)As Long
Private Type POINTAPI
XAs Long Y As Long
End Type
Di mpt As POINTAPI
Di mreturncode As Long
Private Sub Form_Load()
Text1.Text =""
Text2.Text =""
MaxButton =False
MinButton =False
Form1.WindowState =2
End Sub
Private Sub Form_MouseMove(Button As Integer ,
Shift As Integer ,XAs Single ,Y As Single)
'注意pt 结构是按引用传递的
returncode =GetCursorPos(pt)
Text1.Text =pt .X
Text2.Text =pt .Y
End Sub

 三、记录Wi ndows 使用时间
建立新项目窗口form1,输入代码:
Private Sub Form_Load()
form1.visible =false
Open app .paht +"memo .txt"For Append As #1
Print #1,"启动windows :"&CStr(Now)
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open app .paht +"memo .txt"For Append As #1
Print #1,"关闭windows :"&CStr(Now)
Close #1
End
End Sub
 最后将此程序加入启动组即可。

文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网