vbÏîÄ¿»»ÁË·¾¶´ò²»¿ª£¬Ð»Ð»¡£ - VB / »ù´¡Àà
ÎÒµçÄÔÉϵÄvbÏîÄ¿£¬ÏÖÔڵķ¾¶ÊÇ£ºC:\abc\VB\Mobile.vbg ÕâÊÇÊÇÕý³£µÄ£¬¾ÍÊÇÖ±½ÓË«»÷Mobile.vbgÊdzɹ¦´ò¿ªµÄ£¬Ò»Çж¼ÊÇÕý³£µÄ¡£ ²»¹ý£¬µ±ÎÒ»»¸ö·¾¶£¬¸ÄΪÕâ¸öʱ£ºC:\def\VB\Mobile.vbg£¬ÔÙË«»÷Mobile.vbgʱ£¬¾Í³öÏÖÒÔϵĴíÎó£º Path not found :'c:\abc\VB\clsCommonTables\frmManCOMCrConFat.frm' -- Continue Loading Project? ¶¼ÊDZ¨frmÕÒ²»µ½µÄ´íÎó£¬Ã»ÓÐÆäËüµÄ´íÎóÁË¡£ µ±ÎÒ°Ñdef¸Ä»Øabcʱ£¬ÓÖÒ»Çж¼Õý³£ÁË¡£ лл´ó¼Ò¡£ÎÒÏÖÔÚ¾ÍÊÇÒª¸Ä·¾¶µÄ¡£
Äã³ÌÐòµÄÎļþ¿Ï¶¨²»È«. ÓüÇʱ¾´ò¿ªvbpÎļþ£¬Ìæ»»Ð޸ġ£ÒýÓà ¸Ä·¾¶ºó,ÖØÐÂÌí¼ÓÕâ¸öfrmÎļþ±£´æ¼´¿É »òÏÈ´ò¿ªvbpÏîÄ¿Îļþ,¿´ÄǸöfrmÊÇ·ñÕý³£,²»Õý³£¾ÍÊÖ¹¤Ìí¼ÓÒ»ÏÂ,ÔÙ´ò¿ªvbgÎļþ¾ÍºÃÁË Íü¼Ç˵ÁË£¬ÎÒ֮ǰÊÇ×öjavaµÄ£¬´ÓÀ´Ã»×ö¹ýû¿´¹ývb£¬ÏÖÔÚÒª×öÁË¡£ Çë´ó¼ÒÏêϸµã½âÊÍ°¡£¬Ð»Ð»ÁË¡£Ò»²½Ò»²½µÄ½ÌÎÒÔõô×ö°¡¡£ »¹ÓУ¬Õâ¸öÏîÄ¿¿Ï¶¨ÊÇÈ«µÄ£¬ÊǺõġ£ÒòΪÔÚabcÕâ¸ö·¾¶Ï£¬ÊǺÜÕý³£µÄ¡£Ö»ÊÇ»»ÁË·¾¶ºó£¬²ÅÓÐÕÒ²»µ½frmµÄ´íÎó¡£Ð»Ð»´ó¼Ò¡£ ÄÜ·ñÏêϸµã˵£¬ÔõôÊÖ¹¤Ìí¼ÓfrmÂ𣿠Ê×ÏÈ£¬frmÊÇÕý³£µÄ£¬ÔÚÓ²ÅÌÉÏÊÇÓеġ£ÔÚabcÕâ¸ö·¾¶ÊÇ¿ÉÒÔÕý³£´ò¿ªµÄ¡£ µ±ÎÒ»»³ÉdefÕâ¸ö·¾¶ºó£¬¾ÍÕÒ²»µ½ÁË¡£ Õû¸öÏîÄ¿£¬Ê²Ã´¶¼Ã»±ä£¬¾ÍÊÇ·¾¶±»ÎÒ±äÁËһϡ£ ÎÒÏÖÔÚÊÇË«»÷Mobile.vgbÁË£¬È»ºó¾Í²»Í£µÄµ¯³ö˵ÕÒ²»µ½frmµÄ´íÎó£¬ÎÊÎÒÒª²»Òª¼ÌÐø£¬ ÎÒµã»÷yes£¬µÈÏîÄ¿¼ÓÔØÍêºó£¬ÔõôÌí¼ÓfrmÄØ£¿Ð»Ð»¡£ ÒÔǰû½Ó´¥¹ývb°¡£¬Ð»Ð»ÁË¡£ ÊÇÔÚȱÉÙµÄformÉÏ£¬ÓÒ¼ü£¬Ñ¡Ôñ"Add" -> "Add File" -> È»ºóÑ¡ÖÐûÕÒµ½µÄfrm£¬"open"Â𣿠ÔÚÄãÄÜ´ò¿ªµÄ·¾¶ÏÂÆô
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿ ´úÂë¿´¿´ ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ ÒýÓà ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´® ¿´¿´i ......
СµÜÓÃVBµ÷EXCEL×÷ͼ objExlApp.Workbooks.Add objExlApp.Charts.Add objExlApp.ActiveChart.ChartType = xlLine objExlApp.ActiveChart.HasLegend = True objExlApp. ......