Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ