| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 560 人关注过本帖
标题:在vb中如何用sendmessage向外部程序发送结构体?
只看楼主 加入收藏
beijiquan
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-12-25
结帖率:75%
收藏
已结贴  问题点数:10 回复次数:2 
在vb中如何用sendmessage向外部程序发送结构体?
这是两个结构体
Private Type CARTICLE
   article As String
   Color1 As String
   Color2 As String
   CoreArea As String
   KANBANID As String
   Side1partpullofflength As String
   Side1seal As String
   Side1strippinglength As String
   Side1terminal As String
   Side2partpullofflength As String
   Side2seal As String
   Side2strippinglength As String
   Side2terminal As String
   WireID As String
   WireLength As String
End Type

Private Type CJOB
   ArticleKey As String
   BatchSize As String
   JobID As String
   TotalPieces As String
End Type
Private Sub Command2_Click()’send data
    Dim s               As String
    Dim FT_hWnd, l        As Long
    Dim ID_Control_hWnd As Long
    Dim pid     As Long
    Dim JOB As CJOB
    JOB.ArticleKey = "3"
    JOB.BatchSize = "4"
    JOB.JobID = "5"
    JOB.TotalPieces = "6"
    s = '???不知道如何把结构体数据给s
    FT_hWnd = 0
   
    hProcess = OpenProcess(PROCESS_TERMINATE, 0, pid)
    FT_hWnd = FindWindow(vbNullString, "1.txt - 记事本")
    If FT_hWnd = 0 Then
        MsgBox "False", vbInformation, "Title"
        End
    End If
    ID_Control_hWnd = GetDlgItem(FT_hWnd, &HF)
    SendMessage ID_Control_hWnd, WM_SETTEXT, 0, ByVal s'????这一句也不知道如何写
End Sub
请高手多指教啊!
搜索更多相关主题的帖子: 如何 结构体 article 
2014-12-30 15:47
beijiquan
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-12-25
收藏
得分:0 
则么没人回复啊
2014-12-31 11:17
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:7 
结构体是自定义的,程序运行前可修改编辑,运行后还可以定义?好像即使是c里面的函数重载也是有条件提供编译器使用的,编译后就不能变了。我out了。
2014-12-31 14:21
快速回复:在vb中如何用sendmessage向外部程序发送结构体?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017226 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved