女公务员人妻呻吟求饶_国模小黎自慰GOGO人体_广东少妇大战黑人34厘米视频_网禁拗女稀缺资源在线观看_国产乱子伦高清露脸对白_国产综合视频一区二区三区_日韩精品一区二区三区影院_亚洲欧美日韩中文无线码_无码无遮挡又大又爽又黄的视频_

cetee
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 74 個(gè)
工控威望: 219 點(diǎn)
下載積分: 10279 分
在線時(shí)間: 588(小時(shí))
注冊(cè)時(shí)間: 2010-08-05
最后登錄: 2025-06-13
查看cetee的 主題 / 回貼
樓主  發(fā)表于: 2018-08-20 09:32
初學(xué)vb.net編程,請(qǐng)各位幫幫忙 vb.net報(bào)錯(cuò)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim iRet As Integer
        Dim szDeviceName As String = "d0"         'List data for 'DeviceName'
        Dim iNumberOfDeviceName As Integer = 2  'Data for 'DeviceSize'
        Dim sharrBufferForDeviceValue() As Integer
        DotUtlType1.ActLogicalStationNumber = CInt(1)
        'The Open method is executed.
        iRet = DotUtlType1.Open()

        iRet = DotUtlType1.ReadDeviceBlock(szDeviceName,
                                                           iNumberOfDeviceName,
                                                                           sharrBufferForDeviceValue(0))


    End Sub
End Class