vb 测试

原创 2011年10月16日 02:24:00
 

Dim WithEvents rtrg As ySubClass
'Picture2
Dim WithEvents dfd As ySubClass
Dim WithEvents erht As ySubClass

 

Private Sub Command1_Click()
Call rtrg.SubCalsszz(hWnd)
End Sub

Private Sub Command2_Click()
rtrg.zunSubClass
End Sub

Private Sub Command7_Click()
rtrg.zunSubClass
End Sub

Private Sub dfd_NewMsg(ByVal zhwnd As Long, zMsg As Long, zwParam As Long, zlParam As Long, Cancel As Boolean)
fr = 0
'Debug.Print "Hwnd   " & zhwnd & "  uMsg " & zuMsg & "   wParam  " & zwParam & "   lParam  " & zlParam
End Sub

Private Sub dfd_NewMsgChild(ByVal zhwnd As Long, zMsg As Long, zwParam As Long, zlParam As Long, Cancel As Boolean)
'Debug.Print "Hwnd   " & zhwnd & "  uMsg " & zuMsg & "   wParam  " & zwParam & "   lParam  " & zlParam
End Sub

 

Private Sub erht_NewMsgB(ByVal zhwnd As Long, zMsg As Long, zwParam As Long, zlParam As Long, Cancel As Boolean)
'Debug.Print "Hwnd   " & zhwnd & "  uMsg " & zMsg & "   wParam  " & zwParam & "   lParam  " & zlParam
End Sub

Private Sub Form_LinkClose()

End Sub

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)

End Sub

'Private Sub dfd_NewMsgChild(ByVal Chwnd As Long, CMessage As Long, CwParam As Long, ClParam As Long, Cancel As Boolean)
'     Debug.Print "Hwnd   " & Chwnd & "  uMsg " & CMessage & "   wParam  " & CwParam & "   ClParam  " & zlParam
'End Sub
        Private Sub Form_Load()
        Me.Top = 1200
        Me.Left = -4500
'           Set rtrg = New ySubClass
'         Call rtrg.SubCalsszz(hWnd)       'Call rtrg.zSubClass(Picture1.Hwnd, rtrg)
         Set dfd = New ySubClass
         Call dfd.SubCalsszz(Picture2.hWnd)
'         Set erht = New ySubClass
'         Call erht.SubCalsszz(Picture3.hWnd)
'       Call erht.SubCalssB(Picture1.hWnd, True)
         Text1 = "Text1.hwnd " & Text1.hWnd
        Text2 = "Picture1.hwnd " & Picture1.hWnd
        Text3 = "Command1.hwnd " & Command1.hWnd

江苏学业水平测试vb

  • 2010年02月08日 14:33
  • 171KB
  • 下载

vb星座测试(内有详细源代码)

  • 2008年01月19日 17:41
  • 979KB
  • 下载

用VB开发的一个标准体重测试软件

  • 2011年05月23日 21:22
  • 2.54MB
  • 下载

VB远程自动更新代码

需要:Microsoft Internet Transfer Control 6.0控件原理:在网站上建立一个updata.txt文件,里面保存升级信息updata.txt文件格式:文件内容:共三行,...
  • cncco
  • cncco
  • 2006-05-14 04:23:00
  • 4067

短信群发接口测试(vb+get/post)

某MIS需要短信功能,公司想购置短信猫,但短信猫价格不菲外加接入的技术必须很高,所以综合考虑之下,在网上找到一家较有实力的短信公司,他们提供的接口很多类型,有http/dll/webservice等。...
  • bibbykwan
  • bibbykwan
  • 2010-08-04 14:40:00
  • 7756

测试VB连接数据库代码

  • 2009年03月16日 11:17
  • 8KB
  • 下载

VB 测试功能键

  • 2010年06月07日 11:04
  • 36KB
  • 下载

测试基本概念

1.测试的定义 为了发现错误而执行程序的过程 软件测试时根据软件开发各阶段的规格说明和程序的内部结构而精心设计的一批测试用例(输入数据和预期的输出结果),并利用这些测试用例去运行程序,以发信程序错...
  • zlo0o0oo00
  • zlo0o0oo00
  • 2016-03-13 15:32:59
  • 173

VB 检测按键的软件源码

  • 2011年04月09日 18:31
  • 17KB
  • 下载

VB的灵魂—错误调试

这是在CSDN上写的第一篇文章,心情有点小激动和小紧张,感觉一定要写特别重要的东西,仔细想了想,到底什么才是特别重要的呢??思来想去,只有错误是不断发生,同时我们也是不断在改正,错误调试贯穿学习VB的...
  • lxd8731247769
  • lxd8731247769
  • 2015-05-14 19:37:36
  • 1853
收藏助手
不良信息举报
您举报文章:vb 测试
举报原因:
原因补充:

(最多只允许输入30个字)