Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb×Ö·û´®ÔÚÄÚ´æÖеķֲ¼£¿

¾Ý˵vb6ÖÐ,×Ö ·û´®ÒÔÒÔUNICODE·½Ê½´æ´¢£¬ËùÒÔ
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .strM3 = "Ò»¶þÈýËÄÎåÁùÆß°Ë¾Åʮһ¶þÈýËÄÎåÁùÆß°Ë"
.strM3 = "Ò»¶þÈýËÄÎåÁùÆß°Ë¾Å"
' .strM3 = "ABCD"
.strM4 = "²âÊÔABC"
.lngM5 = 5
End With

Dim bytBuf() As Byte
ReDim bytBuf(Len(tmp) - 1)
CopyMemory bytBuf(0), tmp, Len(tmp)

Winsock1.SendData bytBuf
End Sub

vc6Öж¨ÒåÏà¶ÔÓ¦µÄ½á¹¹Ì壺
typedef struct{
long lM1;
long lM2;
char szM3[18];
char szM4[8];
long lM5;
}UDT;
//¡£¡£¡£¡£¡£¡££¨Ê¡ÂÔ²¿·Ö´úÂ룩
char recvBuf[128];
UDT t;
while(true)
{
memset(&t,0,sizeof(t));
memset(recvBuf,0,sizeof(recvBuf));
//½ÓÊÕÊý¾Ý
int recvlen=recvfrom(svr,recvBuf,128,0,(sockaddr*)&addrClient,&len);
::CopyMemory(&t,recvBuf,128);
}
//¡£¡£¡£¡£¡£¡£¡£
ͨ¹ýsocket´«µ½vcÀï½øÐе÷ÊÔÈçÏ£º
 
¶þ¡¢µ± vbÖе÷Õû´úÂëΪ£¨.strM3 £©
ÏÔÈ»£¬²»ÊÇUNICODEµÄ±íʾ·½·¨
ÁíÈËÓôÃÆ£¿£¿£¿£¿£¿£¿
----------------------------------------------------------
Ìí¼Ó tmp.strM3 = StrConv(tmp.strM3, vbUnicode)£º


Ïà¹ØÎĵµ£º

VB ʹÓÃWMI±à³Ì£¨Ò»£©

 
Óɵ×ÖÁÉÏÊÇ£º
          • ÍйÜ×ÊÔ´
          • WMI »ù´¡½á¹¹
          • ʹÓÃÕß
ÍйÜ×ÊÔ´
    ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼­»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµ ......

VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ

VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ
 
 //VBÀïÃæÓиöLinkLabel£¬VBÖеÄLabelÔÚVCÖÐʽCStatic£¬µ«ÊÇVCÖÐCStaticûÓÐÀàËÆLinkLabelµÄ¹¦ÄÜ¡£¿ÉÒÔ×Ô¼º
//Ìí¼ÓÒ»µã´úÂëÀ´ÊµÏÖ£º
//²»ÖªµÀΪʲôIDC_HANDDÒ»¶¨Òª×Ô¼º¶¨ÒåÒ»ÏÂ
#define IDC_HAND MAKEINTRESOURCE(32649)
//´¦ÀíÊó±êÒÆ¶¯
void CAppNonameDlg::OnMouseMov ......

vb×öµÄ´óСд×Öĸת»»Æ÷

'´óСд×Öĸת»»Æ÷vb
'½çÃæ°üÀ¨ command¡¢command1¡¢command2¡¢command3 ºÍÒ»¸ö text Îı¾¿ò
'command Ϊ“»¥×ª”°´Å¥£¬command1 Ϊ“ת´ó”°´Å¥£¬command2 Ϊ“תС”°´Å¥£¬command3 Ϊ“Çå³ý”°´Å¥
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As S ......

VB/VB.NET ½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î

VB.NET ½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î´úÂë:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MsgB ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ