为什么传不过去数值?

nanyankaoran 2008-03-15 08:46:05
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command2_Click()

Dim s As String
s = Text1.Text
SendMessage Me.hwnd, WM_SETTEXT, 0, s

End Sub
'为什么我一按按钮,form1.caption变成了空的,
'如果把TEXT1.TEXT=你好,怎能样用这个API 把它传到那?
'我知道貌岸然S这里要用地址传,但我不会,如何才能实现?
...全文
145 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zzyong00 2008-03-16
  • 打赏
  • 举报
回复
好想知道你个人的高招啊
只是不知我的哪个为什么行啊,难道同样的电脑,差距就这么大吗?
nanyankaoran 2008-03-16
  • 打赏
  • 举报
回复
我终于用我个人的办法解决了
nanyankaoran 2008-03-16
  • 打赏
  • 举报
回复
我试了上面两位大侠的招法,但还是那样,其他人的高招呢?
zzyong00 2008-03-15
  • 打赏
  • 举报
回复
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()

Dim s As String
s = StrConv(Text1.Text, vbFromUnicode)
SendMessage Me.hwnd, WM_SETTEXT, 0, ByVal StrPtr(s)

End Sub
lyserver 2008-03-15
  • 打赏
  • 举报
回复
将SendMessage Me.hWnd,WM_SETTEXT,0,s改成
SendMessage Me.hWnd,WM_SETTEXT,0,byval s就可以了.

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧