formÉÏÓÐÒ»label1£¬µ±Êó±êÒÆ¶¯µ½ÉÏÃæÊ±£¬·¢Éúһʼþ£¬µ±Êó±êÀ뿪Ëüʱ£¬·¢ÉúÁíһʼþ£¬Ôõôд£¿
û·Ö£¿
Â¥Ö÷.....¸øµã·ÖÂð....²»È»´ó¼Ò¶¼Ã»¶¯Á¦¸øÄã»ØÌû......Óà Label1_MouseMoveÕâ¸ö°É.......Õâ¸öʼþ¾Í¿ÉÒÔʵÏÖ
http://blog.myspace.cn/sfzm/
ÕÒ VBÖÆ×÷³¬Á´½Ó
Ñ¡ºÃ¶ÔÏ󣬺óÃæ»áÓÐÄãÐèÒªµÄʼþ£¬»ù±¾µÄÓ ......
¾ÍÊÇË«·½¿ÉÒÔ»¥·¢ÐÅÏ¢¾Í¿ÉÒÔÁË,×îºÃÓÐÏֳɴø×¢Ê͵Ä,ÕâÑù¾Í¿ÉÒÔÂýÂýÑо¿ÁË.
Ò»·WinsockµÄÖ÷ÒªÊôÐÔ¡¢Ê¼þºÍ·½·¨
WinsockÊDz»¿É¼û¿Ø¼þ£¬¿Ø¼þÎļþÃûÊÇMSWINSCK.OCX£¬È«³ÆÎªMcirosoft winsock control£¬Ê¹ÓÃʱҪ½«´Ë¿Ø¼þµ÷È빤¾ßÏä¡£
1·ÊôÐÔ£º¢ÙProtocol=0 //ʹÓÃTCPÐÒ飻
¢ÚRemoteHost //×¼±¸ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& 1 &"'",½á¹û£¬Ìáʾ²éѯÓï¾ä²»ÍêÈ« £¬Èç¹û¸Ä³ÉSQLSTRING="SELECT * from TK1 WHERE ID ......
form1ÉÏÓÐlabel1,label2£¬label3ºÍlabel4
µ±Êó±êÍ϶¯label2µ½label1ÉϵÄʱºò£¬label1ÏÔʾlabel2µÄÄÚÈÝ£¬
µ±Êó±êÍ϶¯label3µ½label1ÉϵÄʱºò£¬label1ÏÔʾlabel3µÄÄÚÈÝ£¬
µ±Êó±êÍ϶¯label4µ½label1ÉϵÄʱºò£¬label1ÏÔʾlabel4µÄÄÚÈÝ£¬
ÇóÖú¸ßÊÖ£¡
È»ºóÄØ£¿
È»ºó£¿ÎÒ¾ÍÒªÒª´ïµ½ÕâÖÖЧ¹û£¡
ÊÔÊÔ¿´d ......
GetPrivateProfileString(sapp, skey, def, t, 256, iniFileName)
ÎÒʹÓÃÕâÖÖ·½Ê½¶ÁÈ¡INIÎļþÖеÄijһ¸ö¼üµÄÖµ
sapp="session¶ÎÃû"
skey=¡°session¼üÃû¡±
def=¡°0¡± ¡®³õʼֵ£¬ÎÒ¶¨ÒåÁË0
GetPrivateProfileString(sapp, skey, def, t, 256, iniFileName)
µ«ÊÇÈ¡µÃµÄ·µ»ØÖµÊÇÎÒ´ ......
Private Sub Form_Load()
Dim strNum As String
With Drug_Store.rsShoppingCars
If .State = adStateClosed Then .Open
......