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

vb ʹÓöþάÊý×é»­ÕÛÏß - VB / »ù´¡Àà

×Ô¼º±àÁËÒ»¸öʹÓöþάÊý×é»­ÕÛÏߵijÌÐò£¬Ê¼ÖÕÓÐÎÊÌâ¡£

´Ó´®¿Ú¶ÁÈë a ºÍ b Öµ£¬Á½ÕßÒ»Ò»¶ÔÓ¦¡£

a Ϊ ºá×ø±ê£¬b Ϊ×Ý×ø±ê £¬ÔÚ×ø±êÉÏ»­ºÃµãºó£¬ÎÒÏë°ÑÏàÁڵĵãÓÃÖ±ÏßÁ¬½ÓÆðÀ´£¬

¾ÍʹÓÃÁ˶þάÊý×é array£¨1 to 2£¬1 to 100£©As Long

È»ºóÓà picture1.line À´»­Í¼£¬Ô­ÀíÊÇʹÓúóÒ»¸öµãµÄ×ø±ê ¼õȥǰһ¸öµãµÄ×ø±ê¡££¨ÓÃÑ­»·Íê³É£©

µ«ÊÇ ¾ÍÊÇ ËµÉ¶Õâ¸öͼҲ»­²»³öÀ´£¡£¡£¡£¡£¡

ÎÒ¾õµÃÎÒµÄÏ뷨ûÎÊÌâ°¡£¬³ÌÐòÒ²·´¸´¿´Á˼¸Ê®±é¶¼ÓÐÁË£¡£¡£¡

ÓÐÄÄλºÃÐĵĴïÈËÅóÓѰï°ïæ°É£¬ÎÒ¶¼ÔÎÁË£¡£¡£¡

×îºÃÓÐÑ­»·²¿·ÖµÄ´úÂëÈÃÎҲο¼Ò»Ï£¬ÎÒ¾õµÃ×Ô¼º¶ÔÕâ¸öÎÊÌâÓиöËÀ½á½â²»¿ªÁË£¡£¡

лл£¡£¡



Ìù´úÂë°É£¬Ë§¸ç

Ö»ÓаÑpicture1µÄ scale£¨left,top,width,heightÊôÐÔÉèÖúÃÁË£¬»­Ïß²»ÄѰɣ¬ÌùÖØµã´úÂë¿´¿´


For i = 1 To 99
  Picture1.Line (array(1, i), array(2, i)) - (array(1, i + 1), array(2, i + 1)) 
Next i

ʵ¼ÊÉÏ£¬»¹ÓÐÒ»¸öÎÊÌ⣬¾ÍÊǵãµÄʵ¼Ê×ø±êµ½Í¼ÉÏ×ø±êµÄת»»¡£

¼ÙÉèÄãµÄʵ¼Ê×ø±ê·¶Î§ÊÇ x: 0- 1000£¬y: 0-200£¬¾ùΪʵÊý¡£ÄãµÄͼÉÏ×ø±êÊÇ X: 0-100, y: 0-20£¬ÏñËØ×ø±ê±ØÐëΪÕûÊý¡£

For i = 1 To 100
  array(1, i) = array(1, i) \ 10
  array(2, i) = array(2, i) \ 10
Next i

È»ºó²ÅÄÜ»­¡£

ÄãµÄ´úÂëÄØ£¿Ã»ÓдúÂëÖÁÉÙÒ²°ÑÊý×éÖеÄÊý¾ÝÌùһϣ¬²¢¾ÙÀýÃèÊöÔõô¼õµÃµ½ÏÂÒ»×ø±êµã¡£



Æäʵ£¬¸ü¼òµ¥µÄ·½·¨ÊÇ£¬Ö±½Ó°ÑÄãµÄ¶þάÊý×鸳ֵ¸ø MSChart ¿Ø¼þ£¬Ëü»á×Ô¶¯»æÍ¼¡£


http://topic.csdn.net/u/20100520/15/ad24c110-af


Ïà¹ØÎÊ´ð£º

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

VBÊ÷ÐͽṹÎÊÌâ - VB / ¿Ø¼þ

ÕÒÁ˺ܾÃÕâ¶«Î÷ÁË,  
ÓÃtreeview²»ÄÜÂú×ãÒªÇó
ÏÖÔÚÏë×öµÄÊÇ£º½çÃæÒÔÊ÷ÐÎÕ¹ÏÖ£¬Äܲ»ÄÜÕ¹¿ªÊÕ»ØÎÞËùν
  ½Úµã¶¼¿ÉÒÔ°´Õչ涨½øÐÐÌíɾ
  ÿ¸ö½ÚµãºóÃæ¶¼¿ÉÄÜ»á³öÏÖ Îı¾ ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ