Çë½Ì´óÏÀ£¬´úÂëÈçÏ£º
wor = ThreadControl(i).CreateNewThread(AddressOf ThreadObj(i).CPPI, mThreadPriority, mEnabled)
ÕâÀïAddressOf ThreadObj(i).CPPI³ö´í£¬Õâ¸öAddressOf Ä¿µÄÊÇ»ñȡһ¸öº¯ÊýµÄµØÖ·£¬ÀýÈçAddressOf CPPI ¡£µ«ÊÇÏÖÔÚÕâ¸öº¯ÊýCPPI ±»·ÅÔÚÁËÒ»¸öÀà¶ÔÏó×é³ÉµÄÊý×éThreadObj()ÖУ¬ÓÚÊǾͱ¨´íÁË£¬ࢰ ......
ÎÒÓÃVB¼ÆËãÁËÒ»¸öÄ£Ð͵ijߴ磬ÔõôÄܽ«ÕâЩ±äÁ¿Öµ´æÈëµ½MySQLÖÐÏàÓ¦µÄ±íÀïÄØ£¿Ð»Ð»°ï棡
vbÈçºÎÁ¬½Ómysql£¿
¿ÉÒÔÓÃÕâ¸öÀý×ÓÖеķ½·¨£º
http://download.csdn.net/source/325189
ÏÂÔØ°²×°MySQL ODBC 3.51 Driver£¬½¨Á¢Á¬½Ó¾ÍÐÐÁË
ÒýÓÃ
vbÈçºÎÁ¬½Ómysql£¿
ÄãºÃ£¬ÎÒ²»ÊÇÔÚÎı¾¿òÖÐÊäÈëµÄÖµ£¬¶øÊDZäÁ ......
ÎÊÌâÒ»:
ÎÒÊÇÓÃVBµÄDATA REPORT ×öµÄ±¨±í¡£ÒѾʵÏÖÑùʽÈçÏ£º
Ãû³Æ µ¥¼Û ÊýÁ¿ ½ð¶î
ͼÊé1 25 200 ......
±¾µØÎªACCESS±í£¬·þÎñÆ÷ΪSQL±í¡£
'´ò¿ª±¾µØÊý¾Ý¿â
Set rs = New ADODB.Recordset
sql = "select * from HistTable22"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
......
ÕâÊÇÎÒ·¢ËÍÓʼþµÄ´úÂ룿£¿
Ϊʲô·¢Ë͵ÄʱºòûÓб¨´í£¿£¿È·¶Ô·½ÓÖÊÕ²»µ½Óʼþ£¿£¿
Set oSmtp = CreateObject("SMTPControl.SMTP")
With oSmtp
.Server = "10.3.0.13"
.Port = 25
.Mailfrom = gstrUserE ......
ÔÚVBÖÐ×ÓÀ໯ʱ£¬´°¿Ú¹ý³Ì½ÓÊÕµ½WM_WINDOWPOSCHANGEDÏûϢʱ£¬
¿´MSDN˵Ã÷lParam ÊÇÖ¸ÏòÒ»¸ö LPWINDOWPOS½á¹¹
ÏÖÔÚÎÒÏëÈ¡µÃlParamËùÖ¸ÏòµÄLPWINDOWPOS½á¹¹µÄÊý¾Ý£¬²»ÖªµÀÔõôȡµÃ.
LRESULT CALLBACK WindowProc(
HWND hwnd, // handle to window
  ......