ACCESS2003ÀïµÄVB»·¾³ÏëʵÏÖ¸´Öƹ¦ÄÜ - VB / »ù´¡Àà
ÔõÑùʵÏÖµã»÷Ò»¸ö°´Å¥£¬¾Í½«µ±Ç°´°ÌåÖ¸¶¨ÊäÈë¿òÀïµÄÊý¾Ý¸´ÖƵ½Windows¼ôÇаåÄØ£¿ÎÒÊÔ¹ýÓÃClipboard£¬µ«²»ÐУ¬ËƺõûÓÐÕâ¸öº¯Êý
ÓÐÕâ¸ö¹¦Äܰ¡¡£²éÒ»ÏÂmsdn¾Í¿ÉÒÔÁ˰¡¡£ Private Sub mnuCopy_Click () Clipboard.Clear Clipboard.SetText Text1.SelText End Sub Private Sub mnuCut_Click () Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub Private Sub mnuPaste_Click () Text1.SelText = Clipboard.GetText() End Sub VB code: Private Sub Command1_Click() Clipboard.SetText Me.Text1.Text End Sub лл¸÷룬µ«ÎÒÓÃclipboardʱ£¬Ìáʾ±äÁ¿Î´¶¨Ò壬ÕâÓÖÊÇΪʲôACCESSÀïµÄVB»á²»ÈÏclipboardÕ⺯ÊýÄØ£¿ÒýÓà ÒýÓà 3 Â¥ terry1937 µÄ»Ø¸´: лл¸÷룬µ«ÎÒÓÃclipboardʱ£¬Ìáʾ±äÁ¿Î´¶¨Ò壬ÕâÓÖÊÇΪʲôACCESSÀïµÄVB»á²»ÈÏclipboardÕ⺯ÊýÄØ£¿ ACCESS 2003 VBAÖÐûÓÐclipboard¶ÔÏó ×Ô¼ºÓÃÒ»¸ö±äÁ¿À´´¦Àí°É£¨APIÒ²¿É¿¼ÂÇһϣ© http://www.access-cn.com/vvb/thread-56210-1-1.html Õâ¸öÄÜÌṩ³ÌÐò´úÂë¸øÎÒÂ𣿠¿´¿´ÉÏÃæµÄÁ´½ÓÀïµÄÄÚÈÝ¡£ÒýÓà ¿´¿´ÉÏÃæµÄÁ´½ÓÀïµÄÄÚÈÝ¡£ ÄÜ˵˵¾ßÌå²Ù×÷£¬°üÀ¨³ÌÐò´úÂë·ÅÔÚÄǸöλÖã¬ÒòΪÎÒÊÇVB³õѧÕߣ¬»¹ÓУ¬ÄǶδúÂëÔËÐÐʱ³öÏÖÓû
Ïà¹ØÎÊ´ð£º
ÓÐÒ»¸öÊý¾Ý¿âÀïÖ»ÓÐ2WÌõÊý¾Ý²»µ½£¬È´ÓÐ500MÄÇô´ó,Ôõô»ØÊ°¡£¿ÊÇACCESSµÄÊý¾Ý¿â¡£ºóÀ´ÎÒ°ÑACCESSµ¼Èëµ½MSSQLÖУ¬Ò²Õ¼ÓÃÁË500M×óÓҵĿռ䣬Èç¹ûѹËõÊý¾Ý¿âÄØ£¿Çë¸ßÊÖÖ¸µã ѹËõÊý¾Ý¿â£¿ÄÜ×öµ½Ã´... ÆÚ´ý¸ßÈËÖ¸µã ÎÒ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾ ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý: +CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......