°ï°ïæ°¡£¡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(& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......