謝謝San先生的回答，但我試過了個種方法都做不出來，是要寫一個函式，以五角形為例，先定出五個點的所在位置，再用line將五個點畫出來，但，這就難在五個點的座標實在不知道怎麼打，還請San再幫幫我，謝謝謝謝非常地感謝~~~
文章標籤
全站熱搜
- 3月 16 週五 200112:59
困難的多角形，拜託各位先進高手幫我~~(編號：10724)
小吳 VBQA 程式設計討論
提供小吳 VBQA 包含VB6,VB 2003,VB 2005,VB 2008,VB 2010,VB.NET,Visual Studio,Visual Basic,程式設計,C#,ASP.NET , Windows From , SQL Server , Crystal Report,VBA,HTML,網頁設計,微軟,98,XP,Lotus Notes,KB .
部落格全站分類：數位生活
文章分類
- Timer (335)
- ODBC (388)
- Print (641)
- DragDrop (9)
- MSComm (336)
- Picture (447)
- ADODC (752)
- 公因數 (20)
- Label (292)
- Datareport (778)
- 封裝 (451)
- RichTextBox (165)
- webcam (5)
- MSFlexGrid (135)
- 進位 (121)
- Office (5)
- 輸入法 (73)
- Datagrid (422)
- Notes (10)
- Mapi (34)
- Outlook (74)
- Run-Time Error (29)
- Jmail (6)
- MP3 (77)
- 信用卡 (8)
- E-Mail (119)
- Base64 (8)
- VBScript (24)
- XML (39)
- FlexGrid (21)
- DIR (41)
- Word (104)
- 文字檔 (376)
- Big5 (18)
- MSN (23)
- MsChart (74)
- DataGrid (33)
- 壓縮 (40)
- 字串 (480)
- MSDN (87)
- ASP (521)
- 陣列 (210)
- From (2,327)
- Shape (71)
- 資源檔 (26)
- Treeview (55)
- 心冷熱情熄 (2)
- VB.NET (51)
- 小吳 (51)
- MySQL (5)
- DirListBox (5)
- Flash (7)
- FileListBox (23)
- 網路安全 (5)
- Web services (1)
- ADODB (35)
- Line (15)
- HTML (34)
- Win32 (1)
- 繪圖 (5)
- ASCII (70)
- COM Port (2)
- ComboBox (11)
- IE (267)
- FoxPro (1)
- ListView (88)
- ActiveX (79)
- PictureBox (185)
- Shell (118)
- Image (60)
- Error (63)
- ADO (642)
- 亂碼 (23)
- IIS (11)
- RS232 (158)
- USB (72)
- WebBrowser (5)
- 滑鼠 (241)
- 鍵盤 (59)
- 資料庫 (1,304)
- Unicode (8)
- Recordset (36)
- Winsock (511)
- 安裝 (5)
- DLL (615)
- OCX (195)
- HTML (74)
- TextBox (1,057)
- MDI (152)
- API (445)
- 倚天 (2)
- Crystal Report (710)
- ListBox (115)
- 列印 (525)
- SQL (1,400)
- 程式設計 (12)
- VB (5,631)
- Access (285)
- VBA (16)
- Excel (189)
- 未分類文章 (1)
請找本辭典或數學單字中英對照,找一下"多邊形"英文單字。 至www.freevbcod.com找一找，本人以前有找過。
Spencer yang先生你好，感謝你的回答，但我去找過了，還是不行耶，能再幫幫我嗎？
這個東西標準是五分鐘內完成，我研究到了以circle逐步畫出一個全圓，然後在過程中截取(x,y)，最後再將數個點(如五角形為5個點)連接起來就行了，但，再circle指令之後，再取得(x,y)點時，取得的都是在下circle時的中心點，也就是不行…
這麼快就做了......你一定沒有演算
我解出來了，Post出來給大家看^_^ Dim 個數 As Integer Private Sub Command1_Click() Cls pi = 3.1416 Dim 點X(350) As Single Dim 點Y(350) As Single For i = 0 To 個數 List3.AddItem i * (360 / 個數) 點X(i) = (Sin(i * (360 / 個數) * pi / 180)) * 10 點Y(i) = (Cos(i * (360 / 個數) * pi / 180)) * 10 Next i Dim 擴大 As Integer 擴大 = 150 For i = 0 To 個數 For j = i + 1 To (個數) Line ((點X(i) + 10) * 擴大, (點Y(i) + 10) * 擴大)-((點X(j) + 10) * 擴大, (點Y(j) + 10) * 擴大) Next j Next i End Sub Private Sub Form_Load() For i = 0 To 350 List3.AddItem i Next i End Sub Private Sub List3_Click() 個數 = List3.Text End Sub
不錯喔~~