vbÖÐÏÔʾͼÐÎ - VB / »ù´¡Àà
ÎÒÏëÔÚvbÖлùÓÚOpenGLÏÔʾһ¸öÈýάͼÐΣ¨SolidWorks»³öÀ´µÄ£¬È»ºó±£´æ³Éstl¸ñʽµÄ£©¡£ÏÖÔÚͼÐεÄÊý¾Ý¶¼ÒѾ¶ÁÈëµ½ÁËvbÖС£ÎÊÌâÊÇÈçºÎÀûÓÃOpenGL°ÑͼÐÎÏÔʾ³öÀ´¡£Ìý˵Õâ¸öOpenGL»¹µÃ³õʼ»¯Ê²Ã´µÄ¡£ºÜÂé·³£¿
ÎÊÌâ¾ßÌåÒ»µã¾ÍÊÇ£ºOpenGL»Í¼ËùÐèÒªµÄÈý½ÇÐεĵãµÄ×ø±ê¶¼ÒѾŪºÃÁË¡£¹ØÓÚOpenGLµÄÆäËû³ÌÐòÈçºÎ±àÖÆÄØ£¿
¸÷λ´óϺ°ï°ïæÁË£¡
ÓÑÇ鶥Ï£¬²»Çå³þ
ÎÒÒ²UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
³õ´ÎÓö¼û......¹Ø×¢£¡up...
vbûÕû¹ý£¬´¿Ö§³Ö£¡
ÏÂÔØÕâ¸öÀý×Ó¿´Ò»¿´£º
http://download.csdn.net/source/1222635
Ò²À´Up
ÓÑÇ鶥£¡
°¥~~~
û°ì·¨ÁË¡£³ÌÐò²»ÖªÈçºÎ´¦ÖÃÁË¡£
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......