VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: icecept

向记事本发送字符postmessage方法

[复制链接]
发表于 2009-6-24 12:55:40 | 显示全部楼层
膜拜了,找了好久..真的是皇天不负有心人:)
回复 支持 反对

使用道具 举报

发表于 2009-7-6 11:35:21 | 显示全部楼层
下载了附件,顶一下。
回复 支持 反对

使用道具 举报

发表于 2010-7-11 10:13:30 | 显示全部楼层
还是message好
回复 支持 反对

使用道具 举报

发表于 2010-8-7 01:05:49 | 显示全部楼层
??好多方法? 感恩版主
回复 支持 反对

使用道具 举报

发表于 2010-9-18 19:43:19 | 显示全部楼层
谢谢了!!!!我来看了!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-9-19 20:36:56 | 显示全部楼层
大家看了是不是能把自己所知的技巧放出来呢?共同进步,寻找不足,才能成为更高境界的程序员。
回复 支持 反对

使用道具 举报

发表于 2011-4-14 19:06:32 | 显示全部楼层
感谢?感谢啊!
回复 支持 反对

使用道具 举报

发表于 2011-11-9 20:20:26 | 显示全部楼层
❶❷❸❹❺❺❻❼❽如何发送这种字符 ?
回复 支持 反对

使用道具 举报

发表于 2011-11-9 20:21:56 | 显示全部楼层
icecept 发表于 2008-1-12 09:14
Vista 我没有用过,希望有vista系统的给出在其系统上正常运行的源码,可让大家少走冤枉路

❶❷❸❹❺❺❻❼❽ 这种字符应该怎么后台传送 ?
Private Sub subPostString(ByVal lngHandle As Long, ByVal strP As String)
    Dim intP As Integer
    Dim intK As Integer
    Dim lngAsc As Long
    Dim lngP As Long
    Dim strT As String
On Error GoTo errSub
    For intP = 0 To Len(strP) - 1
        strT = Mid(strP, intP + 1, 1)
        If Asc(strT) <= 0 Then
            lngAsc = AscW(StrConv(strT, 128))
            If lngAsc < 0 Then
                lngAsc = lngAsc + 65536 '2^16
            End If
        Else
            lngAsc = Asc(strT)
        End If
        lngP = PostMessage(JB, WM_CHAR, lngAsc, 0)
    Next intP
    Exit Sub
errSub:

End Sub
这种的方式传出去的都是问号!。。这是为什么?
回复 支持 反对

使用道具 举报

发表于 2011-11-10 21:39:40 | 显示全部楼层
wanweiwawe 发表于 2011-11-9 20:21
❶❷❸❹❺❺❻❼❽ 这种字符应该怎么后台传送  ...

变量申明正确
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-12-9 01:53

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表