VB Îı¾¿ò
×Ö·û´® m1="E" ×Ö·û´® m2="F" Èç¹ûtext1.text=m1+m2µÄ»° Ôòtext1ÏÔʾµÄÊÇ EF µ«ÊÇÈç¹û ×Ö·û´® m1="E" ×Ö·û´® m2="6" Èç¹ûtext1.text=m1+m2µÄ»° Ôòtext1ÏÔʾµÄÊÇ E 6 £¨EºÍ6Ö®¼äÓиö¿Õ¸ñ Ôõô²»ÈÃÓпոñ£©
m1 & m2 ¹Ø±ÕÖÐÎÄÊäÈë·¨ÊäÈëE¾ÍûÕâ¸öÎÊÌâÁË ¶Ô×Ö·û´®µÄ´¦ÀíÀ´Ê飬+ºÍ&ûʲô²î±ð text1.text=trim(m1) & trim(m2) ÒýÓà text1.text=trim(m1) & trim(m2) 3Â¥Õâ¸ö»Ø¸´ÊÇÕýÈ·´ð°¸¡£ Ó¦¸ÃÒ»Ñù°¡ÒýÓà ¹Ø±ÕÖÐÎÄÊäÈë·¨ÊäÈëE¾ÍûÕâ¸öÎÊÌâÁË ¶Ô×Ö·û´®µÄ´¦ÀíÀ´Ê飬+ºÍ&ûʲô²î±ð ¸öÈËÈÏΪÕâ¸öÓеÀÀí¡£ µÄ確£¬Ê×ÏÈÒª確¶¨È«½Ç»ò°ë½â£¬ Èç¹ûÕæÊǶàÁËÒ»個¿Õ¸ñ£¬Ê¹ÓÃTrim()º¯數¾Í¿ÉÒÔ¡£ VB code: Private Sub Command1_Click() Dim m1 As String, m2 As String m1 = "E" m2 = "6" MsgBox m1 + m2 End Sub ÎÒ²âÊÔµÄ"E6" ˵Ã÷ÄãEµÄÊäÈëÓ¦¸ÃÔÚÈ«½Ç״̬Ï£¬µ«ÊÇÈç¹ûÊÇÕâÑùµÄ»°ÄãÒ²²»Ó¦¸Ã³öÏÖ"EF"¡£ ÎÞÂÛÔõÑù»¹ÊÇд´úÂ뻹ÊÇ×ÐϸΪÉÏÒýÓà µÄ確£¬Ê×ÏÈÒª確¶¨È«½Ç»ò°ë½â£¬ Èç¹ûÕæÊǶàÁËÒ»個¿Õ¸ñ£¬Ê¹ÓÃTrim()º¯數¾Í¿ÉÒÔ¡£
Ïà¹ØÎÊ´ð£º
SELECT Count(*) from In_fo WHERE Reader_Time between #" + time1 + "# AND #" + time2 + "# and id=" + userid + "; ÉÏÃæÊÇÎÒдµÄsqlÓï¾ä Reader_TimeÊÇʱ¼äÀàÐÍ idΪÊý×Ö ......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£) È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË ½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ ÎÒµ÷ÓõÄw ......
Õâ¸ö³ÌÐòÊǹ̶¨µÄ£¬±ÈÈçcmd.exe ´ò¿ªCMDºó£¬Êó±êÔÚCMDµÄ±êÌâÀ¸¿ÉÒÔµã»÷ÓÒ¼üºÍ×ó¼ü£¬µ¯³öÏàÓ¦µÄ²Ëµ¥¡£ ÎÒÒª´ïµ½µÄÄ¿µÄÊÇ£ºÎÞÂÛÊÇ×ó»÷»¹ÊÇÓÒ»÷CMDµÄ±êÌâÀ¸¶¼²»Äܵ¯³ö²Ëµ¥¡£ »òÕßÄܳöÏֲ˵¥Ò²ÐУ¬µ«Ö»Äܳö ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......
¹¦ÄÜ£ºÔÚÊäÈëµãµÄ×ø±êºó£¬»³ö¶ÔÓ¦µÄµã£»ÔÚ»Á˵ãºó£¬¿ÉÒÔÐ޸ĵãµÄ×ø±ê£¬²¢´Óл£»Öظ´Ö±µ½Í¼ÐÎÂÖÀª»Íê¡£²¢¿ÉÒÔ½«µãµÄ×ø±ê×÷ΪÎı¾ÎĵµÊä³ö¡£ ÎÒ²»ÖªµÀÔõôÄÜʵÏÖ£¬Ð»Ð»£¡ ÓÃPictureBoxʵÏÖ°É,ÐèÒª¶Ô×ø±êµ¥Î»» ......