°ï°ïæ°¡£¡vbÖе¼ÈëstlÎļþ - VB / »ù´¡Àà
ÓÃÈýά»æÍ¼Èí¼þ»ÍêÒ»¸öͼÐΣ¬±£´æ³ÉstlÎļþ£¨ASCII¸ñʽµÄ£©£¬ÈçºÎÔÚvbÖаÑËüµ¼Èë½øÈ¥ÄØ£¿ÏÖÔÚÖ»ÊÇÏȰÑËü¶Á½øÈ¥£¬Ê¹Ö®Ã¿¸öx y z×ø±ê¶¼±£´æÆðÀ´¡£
µ¼ÈëVB×öʲô£¿
±¾À´Êǻһ¸öÈýάͼÓÃSolidWorks£¬±£´æ³ÉstlÎļþ£¨ASCII¸ñʽ£©£¬È»ºóµ¼Èëµ½vbÖУ¬ÀûÓÃOpenGL£¬ÔÚvbÖÐÏÔʾ³öÀ´¡£ÎÒ×öµÄ¹¤×÷ÏÈÊǰÑstlÎļþµ¼Èëµ½vbÖС£
Õâ¸östlÎļþÊÇÓÐSolidWorks»æÍ¼Èí¼þ»Íêͼ±£´æµÄ¡£ÎļþÀï±£´æµÄ¶¼ÊÇһЩµãµÄ×ø±ê£¬ºÍÈý½ÇÐεķ¨ÏòÁ¿¡£ÏÖÔÚµÄÎÊÌâÊÇÏë°ÉÀïÃæµÄµãµÄ×ø±ê¶Áµ½vbÖУ¬ÒÔ¹©OpenGLÀ´»³öͼÐΡ£
²»ÏþµÃ°¡£¬°ï¶¥
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......