°ï°ïæ°¡£¡vbÖе¼ÈëstlÎļþ - VB / »ù´¡Àà
ÓÃÈýά»æÍ¼Èí¼þ»ÍêÒ»¸öͼÐΣ¬±£´æ³ÉstlÎļþ£¨ASCII¸ñʽµÄ£©£¬ÈçºÎÔÚvbÖаÑËüµ¼Èë½øÈ¥ÄØ£¿ÏÖÔÚÖ»ÊÇÏȰÑËü¶Á½øÈ¥£¬Ê¹Ö®Ã¿¸öx y z×ø±ê¶¼±£´æÆðÀ´¡£
µ¼ÈëVB×öʲô£¿
±¾À´Êǻһ¸öÈýάͼÓÃSolidWorks£¬±£´æ³ÉstlÎļþ£¨ASCII¸ñʽ£©£¬È»ºóµ¼Èëµ½vbÖУ¬ÀûÓÃOpenGL£¬ÔÚvbÖÐÏÔʾ³öÀ´¡£ÎÒ×öµÄ¹¤×÷ÏÈÊǰÑstlÎļþµ¼Èëµ½vbÖС£
Õâ¸östlÎļþÊÇÓÐSolidWorks»æÍ¼Èí¼þ»Íêͼ±£´æµÄ¡£ÎļþÀï±£´æµÄ¶¼ÊÇһЩµãµÄ×ø±ê£¬ºÍÈý½ÇÐεķ¨ÏòÁ¿¡£ÏÖÔÚµÄÎÊÌâÊÇÏë°ÉÀïÃæµÄµãµÄ×ø±ê¶Áµ½vbÖУ¬ÒÔ¹©OpenGLÀ´»³öͼÐΡ£
²»ÏþµÃ°¡£¬°ï¶¥
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......