API
程序编译后出现了问题
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区程序语句如下:
sendtext winhwnd1, Text3.text 'sendtext是一个自定义函数,winhwnd1是其他程序文字编辑框的句柄,text3是自身程序的textbox
sendtext 函数如下:
Private Sub sendtext(hwnd As Long, text As String) '发送字符函数
Dim str As String, data() As Byte, i As Long
str = text
i = 0
data = StrConv(str, vbFromUnicode)
While i <= UBound(data)
If data(i) < 128 Then
SendMessage hwnd, &H102, data(i), 0&
i = i + 1
Else
SendMessage hwnd, &H102, data(i), 0&
SendMessage hwnd, &H102, data(i + 1), 0&
i = i + 2
End If
Wend
End Sub
以上语句调试时没有出现什么问题,但编译后使用时却发现,当text3(自身程序的textbox)内容为多行文本时,字符发送给其他程序后,其他程序的文本框接收到的并不是多行内容,而是单行内容,但字符数量并没有少,也就是说它自动将多行转成单行,请问这是咱回事,怎么解决?
多谢了!
sendtext winhwnd1, Text3.text 'sendtext是一个自定义函数,winhwnd1是其他程序文字编辑框的句柄,text3是自身程序的textbox
sendtext 函数如下:
Private Sub sendtext(hwnd As Long, text As String) '发送字符函数
Dim str As String, data() As Byte, i As Long
str = text
i = 0
data = StrConv(str, vbFromUnicode)
While i <= UBound(data)
If data(i) < 128 Then
SendMessage hwnd, &H102, data(i), 0&
i = i + 1
Else
SendMessage hwnd, &H102, data(i), 0&
SendMessage hwnd, &H102, data(i + 1), 0&
i = i + 2
End If
Wend
End Sub
以上语句调试时没有出现什么问题,但编译后使用时却发现,当text3(自身程序的textbox)内容为多行文本时,字符发送给其他程序后,其他程序的文本框接收到的并不是多行内容,而是单行内容,但字符数量并没有少,也就是说它自动将多行转成单行,请问这是咱回事,怎么解决?
多谢了!
...全文
相关推荐
CodeBlocks运行编译器解决程序无法编译的问题
CodeBlocks安装后缺少的GCC编译器，只需将压缩包解压后，把文件夹复制在CodeBlocks文件夹下，覆盖原同名文件即可
linux程序编译的错误问题
linux程序编译的错误问题-需注意
MTK程序编译,MTK的编译过程，以便较快的处理编译中遇到的问题，同时为以后可能的优化编译过程提供参考。
]MTK程序编译 本文编写的目的主要是从整体上理解MTK的编译过程，以便较快的处理编译中遇到的问题，同时为以后可能的优化编译过程提供参考。
docker 容器上编译 go 程序提示找不到文件问题
主要介绍了docker 容器上编译 go 程序无法运行提示找不到文件问题，解决方法也很简单，感兴趣的朋友跟随脚本之家小编一起看看吧
Linux设备驱动程序(LDD)中snull的编译问题
Linux设备驱动程序(LDD)中snull的编译问题
