[Visual Basic 6.0] 使用 Circle Line 函數製作有趣的圖形產生器 (圓形、方形、三角形)

2013-11-11

摘要:[Visual Basic 6.0] 使用 Circle Line 函數製作有趣的圖形產生器 (圓形、方形、三角形)

Private Sub HScroll1_Change() ' HScroll1 是 [捲軸] 物件 在屬性的 Max (最大值) Min (最小值) 設定最大值到最小值 而範圍就是 Min ~ Max
邊長.Text = HScroll1.Value ' 邊長 ( TextBox 文字方塊物件 內容 = HScroll1 (捲軸物件) 的 Value (數值) )
End Sub

Private Sub 背景顏色_Click(Index As Integer) ' 選擇背景
Pictures.BackColor = 背景顏色(Index).BackColor ' Pictures ( Picture 圖片物件 用來在上面畫圖形 ) 的 BackColor (背景圖樣) = 背景圖片 ( 也是個 Picture "陣列" 物件 (0) 是白色 (1) 是黑色 )
End Sub

Private Sub 顏色選擇_Click(Index As Integer) ' 選擇文字顏色
顏色.BackColor = 顏色選擇(Index).BackColor
End Sub



Private Sub Pictures_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Pictures.ForeColor = 顏色.BackColor


Select Case Combo1.Text
    Case "圓形"
        Pictures.Circle (X, Y), 邊長
    Case "正方形"
        Pictures.Line (X, Y)-(X + 邊長 * Sqr(2), Y + 邊長 * 2 ^ 0.5), , B
    Case "正三角形"
        Pictures.Line (X, Y)-(X + 0.5 * 邊長, Y + Sqr(1 ^ 2 - 0.5 ^ 2) * 邊長)
        Pictures.Line (X, Y)-(X - 0.5 * 邊長, Y + Sqr(1 ^ 2 - 0.5 ^ 2) * 邊長)
        Pictures.Line (X + 0.5 * 邊長, Y + Sqr(1 ^ 2 - 0.5 ^ 2) * 邊長)-(X - 0.5 * 邊長, Y + Sqr(1 ^ 2 - 0.5 ^ 2) * 邊長)
End Select

End Sub



Private Sub Combo1_Click()

Select Case Combo1.Text
    Case "圓形"
        顯示Lab.Caption = "半徑："
    Case Else
        顯示Lab.Caption = "邊長："
End Select

End Sub

圖形產生器.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁