VB Êó±ê·ÅÔÚÇúÏßÉÏ¿ÉÒÔÏÔʾÊýÖµ

VB ÖÐÎÒÓÃMSChart»æÇúÏßͼ£¬ÔõÑù²ÅÄÜʵÏÖ°ÑÊó±êÒƵ½ÇúÏßÉϾÍÄÜ×Ô¶¯ÏÔʾ¸ÃµãµÄÖµ£¿
Çë´ó¼Ò°ï棡£¡£¡
²ËÄñ¾´ÉÏ¡­¡­

---

MSChartòËÆûÓÐÕâ¸ö¹¦ÄÜ,ʵÔÚ²»Ðо͸ÄÓñðµÄ¿Ø¼þ

---

ÒýÓÃ

MSChartòËÆûÓÐÕâ¸ö¹¦ÄÜ,ʵÔÚ²»Ðо͸ÄÓñðµÄ¿Ø¼þ

¾ÍÊDz»¶®°¡£¬ÓÐʲô¿Ø¼þÓÐÕ⹦ÄÜÂé·³¸æËßÏ£¡

---

¿ÉÒÔÔÚEXCELÖÐʵÏÖ.ÓÃVB¿ØÖÆEXCEL

---

ÒýÓÃ

¿ÉÒÔÔÚEXCELÖÐʵÏÖ.ÓÃVB¿ØÖÆEXCEL

ÎÒʹÓõÄÊÂSQLÊý¾Ý¿â¡­¡­

---

ÄÇÓÖÔõôÁË?
¿ÉÒÔ°Ñ·ûºÏÌõ¼þµÄÊý¾ÝÓÃEXCEL»­Í¼°É?

ÒýÓÃ

ÒýÓà 3 Â¥ getemail µÄ»Ø¸´:
¿ÉÒÔÔÚEXCELÖÐʵÏÖ.ÓÃVB¿ØÖÆEXCEL

ÎÒʹÓõÄÊÂSQLÊý¾Ý¿â¡­¡­

---

Íû½øÒ»²½´Í½Ì£¡£¡£¡

---

×Ô¼ºÓà PictureBox »æͼ¡£

Êó±ê½øÈë PictureBox Ö®ºó£¬ÅжÏÆä x,y ÓëÇúÏßËùÓеãµÄ¾àÀë¡£µ±Àë×î½üµÄµãµÄ¾àÀëСÓÚijһÏÞ¶¨ÖµÊ±£¬ÓÃÄã»æͼµÄ±ÈÀýËã³ö×î½üÒ»µãµÄÊýÖµ£¬²¢ÏÔʾ¡£

---

Çë¸÷λ˵µÄÏêϸһЩ¡­¡­Ð»Ð»£¡£¡£¡

---

VB code:
Option Explicit
Dim i As Integer
Dim yy(360) As Single
Dim X As Integer
Dim Y As Integer
Dim xx As Single
Dim Lcolor As Long
Dim Rcolor As Integer
Dim Gcolor As Integer
Dim Bcolor As Integer
Const a = 3.141592654 * 2
Private Sub Form_Load()
Picture1.AutoRedraw = True
Dim c A