°ï°ïæ°¡£¡vbÖе¼ÈëstlÎļþ - VB / »ù´¡Àà
ÓÃÈýά»æÍ¼Èí¼þ»ÍêÒ»¸öͼÐΣ¬±£´æ³ÉstlÎļþ£¨ASCII¸ñʽµÄ£©£¬ÈçºÎÔÚvbÖаÑËüµ¼Èë½øÈ¥ÄØ£¿ÏÖÔÚÖ»ÊÇÏȰÑËü¶Á½øÈ¥£¬Ê¹Ö®Ã¿¸öx y z×ø±ê¶¼±£´æÆðÀ´¡£
µ¼ÈëVB×öʲô£¿
±¾À´Êǻһ¸öÈýάͼÓÃSolidWorks£¬±£´æ³ÉstlÎļþ£¨ASCII¸ñʽ£©£¬È»ºóµ¼Èëµ½vbÖУ¬ÀûÓÃOpenGL£¬ÔÚvbÖÐÏÔʾ³öÀ´¡£ÎÒ×öµÄ¹¤×÷ÏÈÊǰÑstlÎļþµ¼Èëµ½vbÖС£
Õâ¸östlÎļþÊÇÓÐSolidWorks»æÍ¼Èí¼þ»Íêͼ±£´æµÄ¡£ÎļþÀï±£´æµÄ¶¼ÊÇһЩµãµÄ×ø±ê£¬ºÍÈý½ÇÐεķ¨ÏòÁ¿¡£ÏÖÔÚµÄÎÊÌâÊÇÏë°ÉÀïÃæµÄµãµÄ×ø±ê¶Áµ½vbÖУ¬ÒÔ¹©OpenGLÀ´»³öͼÐΡ£
²»ÏþµÃ°¡£¬°ï¶¥
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
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. ......