vb °Ù¶È×¢²áµÇ¼
×î½üÔÚÀûÓÃvb±àд¹ØÓڰٶȿռäÑéÖ¤Âë×Ô¶¯Ê¶±ðµÄ³ÌÐò£¬µ«ÊÇһֱûÄÜʵÏÖ£¬ÔÒò¾ÍÊÇÎÒµÄˮƽ»¹ÊÇÌ«²Ë¡£ÓÚÊÇ´ÓÍøÉÏÑ°ÕÒÁ˺ܶà¹ØÓÚÑéÖ¤Âëʶ±ðµÄÔ´´úÂ룬´ÓÀïÃæѧµ½²»ÉÙ¶«Î÷£¬ËãÊÇû°×ŬÁ¦°É¡£ÔÚ´Ë×ܽáÒ»ÏÂѧµ½µÄ¶«Î÷£¬Ï£ÍûÄܶÔÅóÓÑÃÇÓÐЩ°ïÖú°É¡£
Ê×ÏÈÕûÀíϱàдÑéÖ¤Âëʶ±ðµÄ˼·°É£º
1£¬Ê×Ïȱàд»ñÈ¡ÑéÖ¤ÂëͼƬµÄ³ÌÐò£¬ÒÔ»ñÈ¡°Ù¶È¿Õ¼äÁôÑÔΪÀý£¨×¢£ºÒÔϽÔÒ԰ٶȿռäÁôÑÔÑéÖ¤ÂëΪÀý£©¡£
2£¬Æä´Î±àд´¢´æÑéÖ¤ÂëͼƬµÄ³ÌÐò£»
3£¬½«Í¼Æ¬ÖеÄÏñËؽøÐйéÀֻ࣬Çø·Ö°×É«ºÍºÚÉ«£¬²¢½«ºÚÉ«µÄ×ø±ê¼Ç¼£»
4£¬Çø·ÖËĸöÑéÖ¤Âë µÄλÖ㬽«Ã¿¸öÑéÖ¤ÂëµÄ×ø±ê¹éµ½µ¥¶ÀµÄÊý×éÖÐÈ¥£»
5£¬½«Ã¿¸öÑéÖ¤ÂëµÄÏßÌõ½øÐÐƽ¾ù»¯£¬²¢½«ÑéÖ¤ÂëµÄ
Ïà¹ØÎĵµ£º
'¹¤³Ì-->ÒýÓà Ìí¼Ó Microsoft activex data objects 2.5 library
'¹¤³Ì-->²¿¼þ Ìí¼Ó Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "²»ÊÇÊý×ÖÀ ......
1¡¢´óµÀÖÁ¼ò
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵļ¸¸öͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
& ......
ÔÚCÓïÑÔÖУ¬escapeµÄ·ûºÅºÜºÃÓã¬
±ÈÈç
"ÖйúÒ»¶¨Ç¿"
Õâ¸ö×Ö´®¿ÉÒÔд³É£º
"\x4E2D\x56FD\x4E00\x5B9A\x5F3A"
ÓÃ×ÖÔª±àÂë±àд³ÌÐò£¬ÔÚÆäËû²»Í¬ÓïÑÔµÄwindowsÔË×÷ʱ£¬±È½Ï²»»áÓÐÎÊÌâ¡£
£¨ÎÒ¾¡Á¿²»ÏëÔÚ³ÌÐòÖÐдÈëÖÐÎÄ£©
µ«ÊÇvbÈç¹ûÈ«²¿ÒªÓÃ×ÖÔª±àÂëдµÄ»°£¬¾Í»áºÜÂé·³¶øÇÒÒ»¸öÒ»¸ö¶¼ÒªÊÖд³É£º
ChrW(&H4E2D) ......
VCº¯ÊýÊÇ:extern "C" int __declspec(dllexport)PassPortRead(char *InPutData,char OuPutData[255]);
VBÉùÃ÷ÊÇ£ºPrivate Declare Function PassPortRead Lib "PPRead.dll" (ByVal InPutData As String, ByVal OutPutData As String) As Integer
Éú³ÉµÄÎļþÄÜÕý³£ÔËÐÐ,²¢ÇÒÄÜÉú³ÉÏàÓ¦Êý¾Ý,µ«ÊÇÔÚµ÷ÊÔʱÌáʾ"DLLµ÷ÓÃÔ¼¶¨´í ......