正文
vb.net心形图案,vbs心形代码
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
如何在vb中用星号打出心形
Private Sub Command1_Click()
Print " ** **"
Print "**** ****"
Print "************"
Print " **********"
Print " ********"
Print " ******"
Print " ****"
Print " **"
End Sub
'请参考采纳！谢谢！
相关问答
Q1: 如何用VB.NET画同心圆
窗体上添加一个按钮，在该按钮的单击事件里编写代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'声明窗体的Me.CreateGraphics对象
Dim MyGraphics As Graphics = Me.CreateGraphics
Dim Cx As Integer = 150 '圆心的X坐标
Dim Cy As Integer = 150 '圆心的Y坐标
Dim R As Integer '圆的半径
'绘制半径为R的圆
For R = 5 To 100 Step 5
MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))
Next
End Sub
‘用黑色画笔绘制一组同心圆，半径从5开始，增量为5。
说明：
DrawEllipse是VB.Net的Graphics类的绘制椭圆的方法；他有几种格式，上面使用的是一种；
DrawEllipse（画笔的颜色，绘制椭圆所需要的矩形区域）
其中：绘制椭圆所需要的矩形区域，如果被定义为正方形，就演变成绘制圆，定义该区域由死个数值确定，第1个数值，确定该区域左上角的X坐标，第2个数值，确定该区域左上角的Y坐标，第3个数值，确定该区域的宽度，第4个数值，确定该区域的高度。
例如1：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))
就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），边长为50的正方形里绘制内切圆。理解了是在正方形里绘制内切圆，就可以通过数学计算，知道如何绘制了。
同理例如2：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))
就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），长轴为100，短轴为50的内切椭圆。
Q2: VB绘心形图源代码
放入一个按钮复制下面代码即可
Private Sub Command1_Click()
Print "／＼／＼"
Print "＼ ／"
Print " ＼／"
End Sub
Q3: 怎么用VB变心形窗体
Option Explicit
'类型声明
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'API声明
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long
Private Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Const RGN_AND = 1
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
Dim hRgn1, hRgn2 As Long
Dim rct As RECT
Dim rtn As Long
With Me
.BorderStyle = 0
.Caption = ""
.Font.Name = "Webdings" '设置字体
.Font.Size = 100
.Font.Bold = True
.BackColor = vbRed
.FontTransparent = True
End With
BeginPath hdc
'为窗体形状产生路径
TextOut hdc, 0, 0, "Y", 1 '字符Y的Webdings字体下是心形，1表示一个字节
EndPath hdc
hRgn1 = PathToRegion(hdc)
'将指定路径转换为区域
GetRgnBox hRgn1, rct
'获取完全包含指定区域的最小矩形
hRgn2 = CreateRectRgnIndirect(rct)
'创建rct确定的矩形区域
CombineRgn hRgn2, hRgn2, hRgn1, RGN_AND
DeleteObject hRgn1
'删除GDI对象，释放占用的系统资源
SetWindowRgn hwnd, hRgn2, 1
End Sub
Private Sub Form_DblClick()
Unload Me
End Sub
Q4: 如何用vb 打印出心形图案 用“*”打印 在线等 急！
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 5000
Me.Height = 5500
Me.ForeColor = vbRed
Me.FontSize = 12
Me.Scale (-10, 10)-(10, -10)
For i = 0 To 3.1415926 Step 0.2
CurrentX = -Cos(i) * 4 - 4
CurrentY = Sin(i) * 4 + 3
Print "*"
CurrentX = Cos(i) * 4 + 4
CurrentY = Sin(i) * 4 + 3
Print "*"
Next i
For i = 0 To 8 Step 0.5
CurrentX = 8 - i
CurrentY = -i + 2
Print "*"
CurrentX = i - 8
CurrentY = -i + 2
Print "*"
Next i
End Sub
Q5: 可以让玫瑰花一朵朵出现围成一个桃心的VB程序
首先你要准备一个玫瑰花图片文件，要小一点。
然后在窗体上放12个Image控件，组成一个控件数组，摆成心形，Picture属性设置为你的玫瑰花。Visibel属性全部设置为False。
在窗体上放一个Timer控件。Interval属性设置为1000，每秒显示一朵玫瑰花。
OK！你的心愿完成了！
Private Sub Form_Load()
For i = 0 To 11
Image1(i).Picture = LoadPicture(App.Path + "\西安绿博园七彩玫瑰.jpg")
Next
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static i As Integer
Image1(i).Visible = True
i = i + 1
If i = Image1.Count Then
Label1.Visible = True
Timer1.Enabled = False
End If
End Sub
