MMLoveMeMM

摘要： 发一个简单易用的界面，用来对USB　HID设备（比如说游戏手柄，控制面板等）读写数据，一般情况下面板上有一些LED，可以帮助我们测试读写是否正确。另外，需要可以修改vendorID和prodcutID,这样一个界面，可以用于测试多个HID设备。过程分成3步：1: 列举出所有的HID设备，2: 循环读取HID设备数据，3: 向HID设备写数据，下面我把三部分的程序单独分开，方便大家学习！在讲具体程序之前，先说一下visual studio的环境配置（我用的是2008版本）！第一步：列举所有的HID设备：m_ctllHIDdevices.ResetContent(); //这是MFC里面一个lis 阅读全文

摘要： 单一代理:Module Module1 Public Delegate Sub basicdeleg(ByVal st As String) Sub Main() Dim d1 As New deleg() Dim DG1, DG2 As basicdeleg DG1 = AddressOf d1.eventchar DG2 = AddressOf d1.eventmess DG1("this char console message !") DG2("THIS CHAR WILL SHOW ON MESSAGE BOX !") End Sub Publ 阅读全文

摘要： Module Module1 Private WithEvents aemp As part2 Sub Main() Dim chen As New part2("chen lili", 20000) aemp = chen Console.WriteLine(chen.Name & " prevouis salary is " & chen.Salary) aemp.AddSalary(0.3D) Console.WriteLine(chen.Name & " current salary is " & 阅读全文

摘要： Module Module1 Private WithEvents aemp As employeeevent Sub Main() Dim chen As New employeeevent("chenlili", 10000) aemp = chen Console.WriteLine(chen.Name & " previous salary is : " & chen.Salary) aemp.AddSalary(0.3D) Console.WriteLine(chen.Name & " current sala 阅读全文