vbµÄÎÊÌâ
ÔÚvbÀï¿ÉÒԻͼÂð£¿ÎÒÒª»Ò»¸öÎå½ÇÐǶøÇÒÒªÇóÌî³ä²»Í¬µÄÑÕÉ« Êó±êÔÚÄǸö¶¥µãÄÄÀï¾Í»á³öÏÖ¡®ÕâÊǵڼ¸¸ö¶¥µã¡¯µÄС·½¿ò ËÄܰï°ïÎÒ£¿
ÔõôûÈ˰ïÎÒ°¥Ñ½£¿ °¥......... ÄãÃÇÈËÄØ£¿ µÈ´óºú×ÓÀ´¡£ °ï¶¥ ÎÒʲôµÈËûÀ´°¡£¿ ÄãÒ²¿ÉÒÔ°ïÎÒ°¡ ÄãС×Ó,Ïë°ÑÎÒÀÛËÀ°¡ ÒýÓà µÈ´óºú×ÓÀ´¡£ ºÇºÇ ´óºú×Ó´ó¸ç Äã¾Í°ï°ïÎÒ°Ñ Ä㻹ÊÇÓÃPPT×ö°É,°ÑÎÒÀÛËÀÒ²½Ì²»»áµÄ. ÒýÓà ºÇºÇ ´óºú×Ó´ó¸ç Äã¾Í°ï°ïÎÒ°Ñ ²»Ðа¡ ±ØÐëÊÇÓÃvb×÷ Private Sub Command1_Click() Form1.Scale (-100, 100)-(100, -100) Dim i As Integer, p(4, 1) As Integer For i = 0 To 4 p(i, 0) = 80 * Cos((90 + i * 144) / 180 * 3.141592653) p(i, 1) = 80 * Sin((90 + i * 144) / 180 * 3.141592653) Next Form1.CurrentX = p(4, 0) Form1.CurrentY = p(4, 1) For i = 0 To 4 Form1.Line -(p(i, 0), p(i, 1)) Next End Sub Îå½ÇÐÇ»ºÃÁË ¿ÉÊÇÎÒ²»»áÌî³äÑÕɫŶ ´óºú×Ó¸ç¸çÄã°ï°ïÎÒ°Ñ ÕâÀïÓÐש¼ÒÄã²»ÎÊ °³ÊǼðÂܲ·°×²ËµÄ ÒýÓà ²»Ðа¡ ±ØÐëÊÇÓÃvb×÷ Private Sub Command1_Click() Form1.Scale (-100, 100)-(100, -100) Dim i As Integer, p(4, 1) As Integer For i = 0 To 4 p(i, 0) = 80 * Cos((90
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£ ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ, È»ºó¾ÍÖ±½ÓÓúÃÁË. ²»¹ý,Èç ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£ ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£ È»ºóÔÊÐíºó·ÅÐС£ ±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£ ¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£ ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË.. Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html תΪVB.NETÔ´Âë. СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏ ÎÒµÄEMAILÊÇ:4452 ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£ û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£ XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£ Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£ Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......