vbs画动态爱心代码_求助，求一个vbs画心形的代码（程序小白的求助）

[Visual Basic] 纯文本查看复制代码Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim B As New Bitmap(Me.Width, Me.Height)

Using G As Graphics = Graphics.FromImage(B)

G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

Using Gp As New Drawing2D.GraphicsPath

Dim Rc1, Rc2 As Rectangle

Rc1 = New Rectangle(Me.Width / 3 - 35, Me.Height / 2 - Me.Height / 3, 100, 100)

Rc2 = New Rectangle(Me.Width / 3 * 2 - 65, Me.Height / 2 - Me.Height / 3, 100, 100)

Gp.AddArc(Rc1, 180, 135)

Gp.AddArc(Rc2, 225, 135)

Dim PtsLst, PtsLst2 As New List(Of Point)

With PtsLst

.Add(New Point(Rc1.Left, Rc1.Top + Rc1.Height / 2))

.Add(New Point(Rc1.Left + 10, Rc1.Top + Rc1.Height / 2 + Rc1.Height / 3))

.Add(New Point(Rc1.Left + Rc1.Width / 2, Rc1.Top + Rc1.Height / 2 + Rc1.Height - 20))

.Add(New Point(Me.Width / 2, Me.Height / 3 * 2))

End With

With PtsLst2

For I As Integer = 0 To PtsLst.Count - 1

PtsLst2.Add(New Point(Me.Width / 2 + Me.Width / 2 - PtsLst(I).X, PtsLst(I).Y))

End With

Gp.AddCurve(PtsLst.ToArray)

Gp.Reverse()

Gp.AddCurve(PtsLst2.ToArray)

Using Tb As New Drawing2D.PathGradientBrush(Gp)

Tb.CenterColor = Color.White

Tb.SurroundColors = New Color() {Color.Gray}

G.FillPath(Tb, Gp)

G.DrawPath(Pens.DarkGray, Gp)

End Using

Me.BackgroundImage = B

End Sub

End Class

vbs画动态爱心代码_求助，求一个vbs画心形的代码（程序小白的求助）相关推荐

vbs画动态爱心代码_用C语言实现心形表白程序[酷炫动态版]
前几天给大家放一个C语言实现心形表白功能的程序,许多小白觉得有意思,今天给大家再放一个更炫酷的表白程序,有需要的童鞋拿去吧~ 先看看效果图吧: 因为是动图,所以只能象征性给大家截图啦~ 怎么样?童鞋们 ...
vbs画动态爱心代码_前端必看之如何用CSS3画一个八卦和爱心
昨天雷雨交加,燥热有所缓解.今晨空气清新,再加上马上三天小长假,心情很不错,祝各位小长假玩的开心.那么,今天就用CSS3做些"不正紧"的事:画八卦和爱心. CSS3我们一般都是用来 ...
vbs画动态爱心代码_用vb算法画出爱心
展开全部方法一:简62616964757a686964616fe58685e5aeb931333332643930单的画法. Private Sub Command1_Click() ForeCol ...
c语言生日创意代码_跪求一个C语言程序输出“生日快乐”（TC）
展开全部 #include #include #include #include #include char s[8]; void show1(char *a) { system("cls& ...
python画动态爱心代码_教你用python画动态爱心表白
原标题:教你用python画动态爱心表白初级画心学Python,感觉你们的都好复杂,那我来个简单的,我是直接把心形看作是一个正方形+两个半圆: 于是这就很简单了,十行代码解决: import tu ...
用一行代码高效的求一个列表的平方和
最近看到一个笔试题,考察的都是 Python 中的高阶函数题目如下:用一行代码高效的求一个列表的平方和(不能用 sum 函数) 分析 1.先将列表中每个值作平方: 立即想到 map 函数,假设列表是 ...
掷骰子python代码_通过构建一个简单的掷骰子游戏去学习怎么用 Python 编程
不论是经验丰富的老程序员,还是没有经验的新手,Python 都是一个非常好的编程语言. Image by : opensource.com Python 是一个非常流行的编程语言,它可以用于创建桌面应 ...
android骰子游戏代码_真神器！不用手写一行代码就能做网站~
点击上方"Python编程时光",选择"加为星标"第一时间关注Python技术干货! 制作网站用什么,Dreamweaver 还是 Fireworks? 现在, ...
对文本根据特殊字符进行分段代码_如何优雅地配置快应用的代码片段
本文使用 Zhihu On VSCode 创作并发布作为一名程序员,在编码的过程中,难免会遇到要写些重复性的代码:假如每次都重新码一遍,既浪费了时间,也有伤身体.倘若可以配置一个像快捷键一样,输入简 ...
python皮卡丘编程代码_再接再厉，用python编程13行代码解方程组（纯字符）
因为是示例为主,我们将方程组限制在二元一次方程组:x,y两个变量,两个方程.类似这样: 每个方程有两个变量,x和y,形式为:ax+by+c=d 由于这次有了两个方程,我们提取参数的代码就适合提炼为一个 ...

vbs画动态爱心代码_求助，求一个vbs画心形的代码（程序小白的求助）

vbs画动态爱心代码_求助，求一个vbs画心形的代码（程序小白的求助）相关推荐

最新文章

热门文章