有請VB達人,請問如何畫一面國旗??

Question

如何用點.線.圓.並加上顏色,作出一面中華民國的國旗...謝謝!!~~~                   

Answer 1

1.先畫出一個紅色矩形
2.在紅色矩形左上角畫藍色矩形
3.在藍色矩形中心點畫白圓
4.利用Sin與Cos函數畫上12個三角形

2006-03-31 16:33:49 補充：
大家可能以為國旗很好畫，其實真的畫起來會碰到許多問題，像12個三角形的畫法就需要技巧，如果這是作業的話...那這題可以訓練迴圈、三角函數的用法(我用了三層迴圈@@a)

2006-03-31 21:21:28 補充：
程式碼貼在我網站上的留言板http://home.pchome.com.tw/myhome/h881068補充一點...數學能力要強@@

Answer 2

'正確比例我不曉得,大概是這樣吧!唉真是不愛國XDConst Pi = 3.14159265358979Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As LongPrivate Sub Form_Activate()Dim W&, H&, I&, R&, A&, X&, Y&, X1&, Y1&, C&ScaleMode = 3AutoRedraw = TrueW = 400: H = 300Line (0, 0)-(W, H), vbRed, BF '滿地紅Line (0, 0)-(W / 2, H / 2), vbBlue, BF '青天FillStyle = 0FillColor = vbWhiteCircle (W / 4, H / 4), H / 11, vbWhite '白日R = H / 5: A = H / 9: C = H / 7For I = 0 To 330 Step 30 '12顆光芒        X1 = W / 4 - Sin(I / 180 * Pi) * R        Y1 = H / 4 + Cos(I / 180 * Pi) * R        X = W / 4 - Sin((I + 10) / 180 * Pi) * A        Y = H / 4 + Cos((I + 10) / 180 * Pi) * A        Me.Line (X1, Y1)-(X, Y), vbWhite        X = W / 4 - Sin((I - 10) / 180 * Pi) * A        Y = H / 4 + Cos((I - 10) / 180 * Pi) * A        Me.Line (X1, Y1)-(X, Y), vbWhite        For J = I - 10 To I + 10            X = W / 4 - Sin((J) / 180 * Pi) * A            Y = H / 4 + Cos((J) / 180 * Pi) * A            Me.PSet (X, Y), vbWhite        Next        X = W / 4 - Sin(I / 180 * Pi) * C        Y = H / 4 + Cos(I / 180 * Pi) * C        FloodFill Me.hdc, X, Y, vbWhite '三角形填色NextAutoRedraw = FalseEnd Sub

2006-04-04 11:18:38 補充：
憂大過獎了,我還得利用API去填色,不符題意

Answer 3

天呀!!竟然有人做出來!!~~
真是佩服他的數學能力!!
高手!!久仰了!!

Answer 4

貼圖...這.............
竟想到這招，真有你的 XD

2006-04-03 20:22:37 補充：
天啊！W.J.S 大大優秀到了極點..
m(-_-)m 佩服~佩服~

Answer 5

畫完也瘋掉了...你可以用PictureBox然後貼一個國旗上去最快，不然參考一下畫圖的方法算出點後繪圖

http://tw.knowledge.yahoo.com/question/?qid=1306032405125