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³õѧÕߣ¬»¹ÓУ¬ÄǶδúÂëÔËÐÐʱ³öÏÖÓû
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðһϠhÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£ hÊÇxml¸ñʽµÄ×Ö·û´® ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿ ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......