情人節想編程個驚喜給女朋友，求幫助
uj5u.com熱心網友回復：
百度很多
uj5u.com熱心網友回復：
https://download.csdn.net/download/sysdzw/3958137?utm_source=bbsseo 祝你好運
uj5u.com熱心網友回復：
用最少代碼畫個心之類的？送你一個，心形函式的VB實作。
Option Explicit
Private Sub Form_Click()
Me.ScaleMode = 3
Const size = 80 '尺寸常量，自己調
Dim i As Double, j As Double
For i = 0 To Me.ScaleWidth
For j = 0 To Me.ScaleHeight
If ((i - Me.ScaleWidth / 2) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
Next
Next
End Sub
uj5u.com熱心網友回復：
加強版，配色挺難看的，宅家里純玩，有用就拿去，跟他嘚瑟數學。心形函式公式：x^2+(y-x^(2/3)) = 1 但是要用像素在表單坐標系里畫出來，還有旋轉啥事的要做相應的函式變形
Option Explicit
Private Sub Form_Click()
Me.ScaleMode = 3
Const size = 80 '尺寸常量，自己調
Dim i As Double, j As Double
For i = 0 To Me.ScaleWidth
For j = 0 To Me.ScaleHeight
If (i < Me.ScaleWidth / 2 + 20 And i > Me.ScaleWidth * 1 / 5 And Abs(j + 30 - Me.ScaleHeight / 2) < 3) Then Me.PSet (i, j), vbRed
If ((i - Me.ScaleWidth / 2) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
If ((i - Me.ScaleWidth / 2 - 20) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2 - 20) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbBlue
If (i > Me.ScaleWidth / 2 + 20 And i < Me.ScaleWidth * 4 / 5 And Abs(j + 30 - Me.ScaleHeight / 2) < 3) Then Me.PSet (i, j), vbRed
If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 + Me.ScaleWidth * 0.3) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.3) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.29) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.28) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.27) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.26) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
Next
Next
End Sub
uj5u.com熱心網友回復：
建議你 加入一個 Flash播放器插件 網上下一個 你滿意的 示愛 Flash檔案 然后 表單播放就行了！uj5u.com熱心網友回復：
哇塞，你們很有效率耶，統一回復，謝謝大佬們了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/16826.html
標籤：多媒體