Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ