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

cetee
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 74 個
工控威望: 219 點
下載積分: 10279 分
在線時間: 589(小時)
注冊時間: 2010-08-05
最后登錄: 2025-07-11
查看cetee的 主題 / 回貼
樓主  發(fā)表于: 2018-08-20 09:32
初學(xué)vb.net編程,請各位幫幫忙 vb.net報錯

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