社区
控件
帖子详情
vb6.0 form窗体上面的控件名点不出来
yuanzhao1010
2012-04-16 10:06:24
vb6.0 form窗体上面的控件名点不出来 ,通过 窗体的名称点控件名称出不来
...全文
389
7
打赏
收藏
vb6.0 form窗体上面的控件名点不出来
vb6.0 form窗体上面的控件名点不出来 ,通过 窗体的名称点控件名称出不来
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
fsk_wyf
2012-04-19
打赏
举报
回复
/* 计算机电帧的校验和,将长度计算在内 */ ucBuf[0] = (UINT8)(pstMsg->uwLength >> 8);
ucBuf[1] = (UINT8)pstMsg->uwLength; if ( (pstMsg->uwLength + 2) > (h4) ){y7;}
CCU_MemCpy(&ucBuf[2], l3, (INT32)pstMsg->uwLength);
/* 计算485帧校验和 */ulRet = GetCheckSum(ucBuf, (pstMsg->uwLength + sizeof(pstMsg->uwLength))
, &ucResult);j6;/* 获取网口帧总长度 */ ulLen = GET_ETH_FRAME_LEN(pstMsg->uwLength);if ( ulLen > h4 )
{ return CCU_485_ERR_LENGTH_OVERLOAD; }pstEthMsg = (PETH_MSG_T)k9;CHECK_PARA1_NULL_RN(pstEthMsg,
CCU_ERR_MPI_INVALID_PARAMS);j7 = (UINT16)ulLen;k8 = z8->ucMsgDir;pstEthMsg->k5 = z8->k5;
pstEthMsg->ucHostType = z8->ucHostType;pstEthMsg->ucVer = z8->ucVer;j8 = z8->ulSrcId;
j9 = z8->ulDestId; k1 = z8->uwSeq;pstEthMsg->ucType = SEND_TO_SMS_RS;
pstEthMsg->ucVer = PROTOCOL_VER;k4 = pstMsg->ulCompCode;
k2 = pstMsg->uwLength + 7; /* 7表示4字节资源ID+1字节校验和 + 2字节长度 */
pstEthMsg->k7 = z8->k7;pstEthMsg->k6= pstMsg->uwLength;if ( pstMsg->uwLength < 2 )
{CCU_MemFree(CCU_MEM_PT_NO, pstEthMsg); pstEthMsg = z9; return CCU_485_ERR_LENGTH_OVERLOAD; }
CCU_MemCpy(&x7[0], &l3[2], (INT32)(pstMsg->uwLength - 2));/* 填入校验和 */
x7[pstMsg->uwLength - 2] = ucResult;/* 删除对应接收请求控制表单元 */ulRet = l4(uwSeq);
if ( CCU_OK != ulRet ){CCU_MemFree(CCU_MEM_PT_NO, pstEthMsg);pstEthMsg = z9;l5;}
/* 计算网口帧校验和 */CCU_MemCpy(ucBuf, (UINT8*)pstEthMsg, (INT32)((ETH_FRAME_HEAD_LEN
- sizeof(k3)) - sizeof(k4)));CCU_MemCpy(&ucBuf[(ETH_FRAME_HEAD_LEN -sizeof(k3)) -
sizeof(k4)], (UINT8*)&k4, (INT32)((ulLen - ETH_FRAME_HEAD_LEN) + sizeof(k4)));
(void)GetEthFramSum(&uwResult, ucBuf, (ulLen - sizeof(z8->uwChkSum))); /* 填入网口帧校验和 */
k3 = uwResult;/* 转换字序 */j7 = ntohs(j7); j8 = ntohl(j8);j9 = ntohl(j9); k1 = ntohs(k1);
k2 = ntohs(k2);k3 = ntohs(k3); k4 = ntohl(k4);pstEthMsg->k5 = ntohl(pstEthMsg->k5);
pstEthMsg->k6 = ntohs(pstEthMsg->k6); pstEthMsg->k7 = ntohs(pstEthMsg->k7); /* 发送消息到网口 */
ulRet = UDP_SendMsgToEth((UINT8*)pstEthMsg, ulLen);/* 必需在此释放内存 */
CCU_MemFree(CCU_MEM_PT_NO, pstEthMsg);pstEthMsg = z9;l5; }
fsk_wyf
2012-04-19
打赏
举报
回复
z8->uwRs485Len = pstMsg->uwLength + 7; /* 7表示4字节资源ID+1字节校验和 + 2字节长度 */
z8->k7 = pstMsg->uwCmd;z8->k6 = pstMsg->uwLength;
CCU_MemCpy(z8->st485Msg.ucBuf, &(l3[2]), (INT32)pstMsg->uwLength - 2);
/* 填入485帧校验和 */z8->st485Msg.ucBuf[pstMsg->uwLength - 2] = ucResult;
/* 如果是上报加载进度,先删除发送控制表中比本次上报进度还小的单元,
防止扫描控制表重发的进度与本次上报的进度出现大小颠倒的情况 */
if ( REPORT_LOAD_SCH_CMD == pstMsg->uwCmd ) {(void)ProcLoadSchOverturn(z8);}
/* 加入发送控制表并获取网口帧序列号 */ulRet = AddMsgToTxRqTab(z8);if ( CCU_OK != ulRet )
{CCU_MemFree(CCU_MEM_INFO, z8); z8 = z9;l5; }CCU_MemCpy(ucBuf, (UINT8*)z8, (INT32)((
ETH_FRAME_HEAD_LEN - sizeof(z8->uwChkSum)) - sizeof(z8->ulCompleteCode)));
CCU_MemCpy(&ucBuf[(ETH_FRAME_HEAD_LEN - sizeof(z8->uwChkSum)) - sizeof(z8->ulCompleteCode)]
,(UINT8*)&z8->ulCompleteCode, (INT32)((ulLen - ETH_FRAME_HEAD_LEN) + sizeof(z8->ulCompleteCode)));
(void)GetEthFramSum(&uwResult, ucBuf, (ulLen - sizeof(z8->uwChkSum)));8->uwChkSum = uwResult;
/* 补充校验和 */g_stTxRqTab.pstTxTab[z8->uwSeq].k3 = uwResult; /* 转换字序 */
z8->uwTotalLen = ntohs(z8->uwTotalLen);z8->ulDestId = ntohl(z8->ulDestId);
z8->ulSrcId = ntohl(z8->ulSrcId);z8->uwSeq = ntohs(z8->uwSeq);
z8->uwRs485Len = ntohs(z8->uwRs485Len);z8->uwChkSum = ntohs(z8->uwChkSum);
z8->ulCompleteCode = ntohl(z8->ulCompleteCode);z8->k5 = ntohl(z8->k5);z8->k6 = ntohs(z8->k6);
z8->k7 = ntohs(z8->k7); CCU_MemCpy(ucBuf, (UINT8*)z8, (INT32)ulLen);/* 发送消息到网口 */
ulRet = UDP_SendMsgToEth(ucBuf, ulLen);/* 必需在此释放内存 */ CCU_MemFree(CCU_MEM_INFO, z8);
z8 = z9;l5;}
//处理发送给SMS的响应消息
UINT32 ProcSendToSMSRsMsg(x1){x5;l8 = h1;UINT8 ucResult = 0; UINT16 uwResult = 0; x4 = 0;
PETH_MSG_T z8 = z9;h2 = z9;UINT8 ucBuf[h4] = {0};y6;
/* 将发送的响应消息和接收请求控制表匹配,找出对应表单元,以初始化发送网口帧 */
ulRet = GetRxRqUint(&z8, pstMsg, &uwSeq);j6;CHECK_PARA1_NULL_RN(z8, CCU_ERR_MPI_INVALID_PARAMS);
fsk_wyf
2012-04-19
打赏
举报
回复
z3{if ( (CCU_TRUE == y2.ucIsUsed) &&(REPORT_LOAD_SCH_CMD == y2.pstEthMsg->k7) ){
ucSrcLoadType = x7[3]; ucDestLoadType = y2.x7[3]; ucSrcBoardType = x7[4];
ucDestBoardType = y2.x7[4]; CCU_MemCpy(&ulSrcResId, &x7[5], sizeof(UINT32));
CCU_MemCpy(&ulDestResId, &y2.x7[5], sizeof(UINT32)); ucSrcSlotId = x7[9];
ucDestSlotId = y2.x7[9];ucSrcLoadMode = x7[10];ucDestLoadMode = y2.x7[10];
CCU_MemCpy(&ulSrcLoadSch, &x7[11], sizeof(UINT32));CCU_MemCpy(&ulDestLoadSch, &y2.x7[11],
sizeof(UINT32));ulSrcLoadSch = ntohl(ulSrcLoadSch);ulDestLoadSch = ntohl(ulDestLoadSch);
if ( (ucSrcLoadType == ucDestLoadType)&&(ucSrcBoardType == ucDestBoardType)
&&(CCU_OK == CompareResId(ulSrcResId, ulDestResId))&&(ucSrcSlotId == ucDestSlotId)
&&(ucSrcLoadMode == ucDestLoadMode)){if ( ulSrcLoadSch >= ulDestLoadSch ){
DeleteMsgFromTxRqTab(y2.pstEthMsg); } }} } j2;}
//处理发送给SMS的请求消息
UINT32 ProcSendToSMSRqMsg(x1){x5; UINT8 ucResult = 0;UINT16 uwResult = 0;l8 = h1;
PETH_MSG_T z8 = z9;UINT8 ucBuf[h4] = {0}; y6;/* 计算机电帧的校验和,将长度计算在内 */
ucBuf[0] = (UINT8)(pstMsg->uwLength >> 8);ucBuf[1] = (UINT8)pstMsg->uwLength;
if ( ((pstMsg->uwLength + 2) > (h4))||(pstMsg->uwLength < 2) ){ y7;}
CCU_MemCpy(&ucBuf[2], l3, (INT32)pstMsg->uwLength);
ulRet = GetCheckSum(ucBuf, (pstMsg->uwLength + sizeof(pstMsg->uwLength)), &ucResult);
j6;/* 计算网口帧总长 */ ulLen = GET_ETH_FRAME_LEN(pstMsg->uwLength);if ( ulLen > h4 )
{ return CCU_485_ERR_LENGTH_OVERLOAD; }z8 = (PETH_MSG_T)k9;CHECK_PARA1_NULL_RN(z8,
CCU_ERR_MPI_MALLOC_FAIL);CCU_MemSet(z8, 0, sizeof(ETH_MSG_T));/* 长度不包括校验和字节 */
z8->uwTotalLen= (UINT16)ulLen; z8->ucMsgDir = pstMsg->ucDir;z8->k5 = pstMsg->ulResId;
z8->ucHostType = 0xFF;z8->ucVer = PROTOCOL_VER;z8->ucType = SEND_TO_SMS_RQ;
z8->ulDestId = h1; /* 根据讨论目的资源ID由UDP模块填写 */z8->ulSrcId = pstMsg->ulResId;
z8->ulCompleteCode = pstMsg->ulCompCode;
bcrun
2012-04-16
打赏
举报
回复
莫名其妙的,不知你在说啥
神马被哪个妞占用了呢
2012-04-16
打赏
举报
回复
没看明白。楼下的你看呢?
舉杯邀明月
2012-04-16
打赏
举报
回复
不知所云…………
VB
vb6
.0 visual basic打开
窗体
或者运行闪退解决.reg
解决运行
VB6
闪退,解决打开带有标签label,文本框textbox等
控件
的
窗体
闪退。 使用方法1:双击,然后按照提示来。 使用方法2:右键,合并,然后按照提示来。 亦可适用于运行时提示“Visual Basic 已停止工作”
VB6
.0动态加载ActiveX
控件
漫谈
VB6
.0动态加载ActiveX
控件
漫谈 深圳 罗汉军 罗德昌 熟悉VB的朋友对使用ActiveX
控件
一定不会陌生,众多
控件
极大地方便了编程, 但唯一的缺陷是不能动态加载
控件
,必须在设计时通过引用,将
控件
放置在
窗体
上。
VB6
.0...
VB
窗体
控件
大小随
窗体
大小变化而变化
VB
窗体
控件
大小随
窗体
大小变化自動調整 有时
窗体
变化后,如改变分辨率后
控件
大小却不能随之改变。手工代码调整实在麻烦,下面的模块实现自动查找
窗体
上
控件
并使其改变大小以适应
窗体
变化。 在
Form
的Resize事件中...
vb6
.0实现pc与三菱plc通讯
vb6
.0实现pc与三菱plc通讯 由于Visual Basic6.0 具有可视化,支持面向对象的程序设计,具有...在
VB6
.0 的开发环境中MSComm
控件
可直接从VB 的ToolBox 中加入
窗体
Form
,即可用 其进行通信。 MSComm
控件
有很多重要属性
Visual basic
vb6
.0 制作个人调查表
窗体
.rar
Visual basic
vb6
.0 制作个人调查表
窗体
,这个主要是练习一些VB
Form
窗体
控件
中的元素用法,如果你初学习VB的话,这个例子非常适合你学习。 本例子中主要包括了对VB基本
控件
元素Check、Option、Text、Label、...
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章