VB 实时错误 '-2147417848' (80010108) ：对象'senddata'的方法 'IMSHFlexGrid' 失败

2009-08-17 02:48:54 362 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lwj_1986 墨衍会员 · AI 创作全网分发关注 + 加入社区

如何应对VB中对象库注册失败（MSCOMCTL.OCX）今天在打开自己所敲得学生管理系统时,突然之间出现了对象库注册失败,原本上午还可以用,但是下午怎么就打不开了,为什么突然会这样我也不知道原因,但是解决的办法找到了几个，不知道在用VB的其他人是否也遇到了这样的问题下面就分享一下我的解决办法: 这是我打开学生管理系统时弹出的对话框接着在我的学生管理阅读详情

模块 xywhThread



Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Public xywhExitThread As Boolean        

Dim url(20) As String, Temp, dd, j, cc(200),  tou, wei

Sub test()

 Static i_len As Integer

 Dim INByte() As Byte

Dim Buf As String, a, n

Dim btLoCRC As Byte, btHiCRC As Byte

Dim Data As Integer

l = 0

url(0) = 20002

getd url(0)  '这里调用另一模块的方法

Do While l = 0

Form1.Controls("Winsock" & 2).SendData bisend

te: Sleep 1300



            i_len = Winsock2.BytesReceived

            If i_len = 0 Then

            GoTo te

             Form1.Shape2.BackColor = &H8000000F

Form1.Command7.Caption = "开始监听"

            'Exit Sub

            End If

           If i_len > 10 Then

           Form1.Shape2.BackColor = &HFF00&

Form1.Command7.Caption = "停止监听"

End If

  If Buf = a7 Then wmFF (16022)

  If Len(Buf) > 25 Then

  Form1.Winsock2.GetData INByte

 If INByte(1) = 3 Then '读寄存器

    'CRC校验

    crc = CRC16(INByte, UBound(INByte) - LBound(INByte) - 1, btLoCRC, btHiCRC)

    If INByte(UBound(INByte) - 1) = btLoCRC And INByte(UBound(INByte)) = btHiCRC Then

     For i = 3 To UBound(INByte) - 2 Step 2

     Data = "&h" + Hex(INByte(i)) + Hex(INByte(i + 1))

     Buf = Buf + Str(Data)    '转换为十进制显示

     Next i

     Form1.Text6.Text = Text6.Text & Buf

 n = chrasc(Buf)

  a = Left(n, 2)

Select Case a

      Case "$$"

      uid2 = Left(n, 6)

      url(0) = 20202

    GoTo re1

      Case "Q0"

      num2 = n

      a7 = Buf

      url(0) = 20202

     GoTo re1

End Select

End If

re1: If uid2 <> "" And num2 <> "" Then

        Exit Do

        Form1.read (2)

        Exit Sub

        End If

End If

End If

   Loop

End Sub

另一模块的getd方法

Public Function getd(sr As String)

        Dim bisend() As Byte

        Dim crc, X, Y

        Dim btLoCRC As Byte, btHiCRC As Byte

        Dim Data As Integer

        ReDim bisend(7)

        X = Left(sr, 4)

        Y = Mid(sr, 5, Len(sr))

       A1 = Hex(&H8000& + CLng(X))

        A2 = Mid(A1, 1, 2)

        A3 = Mid(A1, 3, 2)

         bisend(0) = "&h" + Hex(2)  

         bisend(1) = "&h" + Hex(3)  

         bisend(2) = "&h" + A2   

         bisend(3) = "&h" + A3      

         bisend(4) = "&h" + Hex(0) 

         bisend(5) = "&h" + Hex(8) 

         crc = CRC16(bisend, 6, btLoCRC, btHiCRC)

         bisend(6) = "&h" + Hex(btLoCRC)  

         bisend(7) = "&h" + Hex(btHiCRC) 

Form1.Controls("Winsock" & Y).SendData bisend

End Function