类型声明字符与声明的数据类型不匹配 [英] Type-declaration character does not match declared data type

问题描述

Dim str As String

Private Sub send_Click()
    Dim str As String
    MSComm1.Output = Text1.Text & str
    Do
        DoEvents
            Loop Until MSComm1.InBufferCount >= 2
            str = MSComm1.Input
            Text2.Text = str
            MSComm1.PortOpen = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    MSComm1.Output = KeyAscii
    Text1.Text = KeyAscii
End Sub

Private Sub Form_Load()

    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    
End Sub

Private Sub MSComm1_OnComm()

    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True
    If MSComm1.InBufferCount Then
        InStr$ = MSComm1.Input
    End If
    MSComm1.InBufferSize = 1024
    MSComm1.InBufferCount = 0
    MSComm1.OutBufferSize = 512
    MSComm1.OutBufferCount = 0
    MSComm1.Break = True
    MSComm1.DSRHolding = True
    MSComm1.DTREnable = True
    Select Case MSComm1.CommEvent
        Case comBreak
            MsgBox ("Break Received")
        Case comCDTO
        Case comCTSTO
        Case comDSRTO
        Case comFrame
        Case comOverrun
        Case comRxOver
        Case comRxParity
        Case comTxFull
        Case comEvCD
        Case comEvCTS
        Case comEvDSR
        Case comEvRing
        Case comEvReceive
            Text2.Text = MSComm1.Input
        Case comEvSend
    End Select
End Sub

我尝试了什么：



直到昨天我的程序正在运行，今天早上我在VB6中打开我的项目并再次编译我的程序并得到了这个错误类型声明字符与声明的数据类型不匹配



请帮帮我

What I have tried:

Till yesterday my program was working and today morning when i opened my project in VB6 and again compiled my program and got this error "type-declaration character does not match declared data type"

Please help me

解决方案

= MSComm1.Input
结束 如果
MSComm1.InBufferSize = 1024
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 512
MSComm1.OutBufferCount = 0
MSComm1.Break = True
MSComm1.DSRHolding = True
MSComm1.DTREnable = True
选择 案例 MSComm1.CommEvent
案例 comBreak
MsgBox（ Break收到）
案例 comCDTO
案例 comCTSTO
案例 comDSRTO
案例 comFrame
案例 comOverrun
案例 comRxOver
案例 comRxParity
案例 comTxFull
案例 comEvCD
案例 comEvCTS
案例 comEvDSR
案例 comEvRing
Case comEvReceive
Text2.Text = MSComm1.Input
Case comEvSend
结束 选择
结束 Sub

= MSComm1.Input End If MSComm1.InBufferSize = 1024 MSComm1.InBufferCount = 0 MSComm1.OutBufferSize = 512 MSComm1.OutBufferCount = 0 MSComm1.Break = True MSComm1.DSRHolding = True MSComm1.DTREnable = True Select Case MSComm1.CommEvent Case comBreak MsgBox ("Break Received") Case comCDTO Case comCTSTO Case comDSRTO Case comFrame Case comOverrun Case comRxOver Case comRxParity Case comTxFull Case comEvCD Case comEvCTS Case comEvDSR Case comEvRing Case comEvReceive Text2.Text = MSComm1.Input Case comEvSend End Select End Sub

我尝试了什么：



直到昨天我的程序正在运行，今天早上我在VB6中打开我的项目并再次编译我的程序并得到此错误类型声明字符与声明的数据类型不匹配



请帮帮我

What I have tried:

Till yesterday my program was working and today morning when i opened my project in VB6 and again compiled my program and got this error "type-declaration character does not match declared data type"

Please help me

你知道，编译器找到并报告违规行。

你在这里报告完全错误信息。

You know, the compiler locates and reports the offending line.
You shoud report here the exact error message.

引用：

直到昨天我的程序正在运行，今天早上我在VB6中打开我的项目并再次编译我的程序并得到此错误

Till yesterday my program was working and today morning when i opened my project in VB6 and again compiled my program and got this error

这很奇怪。您是否可能在重新开放项目后引入拼写错误？

That's very strange. Did you possibly introduce a typo after reopening the project?

这篇关于类型声明字符与声明的数据类型不匹配的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！