用vbnet画红心 vbnet绘图

怎样在VB.net中画一个点呢？

画点用vbnet画红心：

在PictureBox用vbnet画红心的Paint事件里面用vbnet画红心：

dim myGraphics=e.Graphics

Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}

myGraphics.DrawPolygon(myPen, myPointArray)

画圆：

Dim g As Graphics

g = PictureBox1.CreateGraphics

g.FillEllipse(Brushes.Red, x, y, 10, 10)

相关问答

Q1: VB.net中如何画图？

VB.net与VB不同。

VB.net已经有专门绘图用vbnet画红心的类。

可以定义笔刷然后用Drawing类中用vbnet画红心的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Q2: 如何用VB打“*”构成爱心

够费劲的，可算画完了

Private Sub Command1_Click()

Print Tab(10); "**";

Print Tab(20); "**",

Print Tab(6); "*";

Print Tab(14); "*";

Print Tab(18); "*";

Print Tab(25); "*",

Print Tab(4); "*";

Print Tab(15); "*";

Print Tab(17); "*";

Print Tab(27); "*",

Print Tab(3); "*";

Print Tab(16); "*";

Print Tab(28); "*",

Print Tab(3); "*";

Print Tab(28); "*",

Print Tab(4); "*";

Print Tab(27); "*",

Print Tab(5); "*";

Print Tab(26); "*",

Print Tab(7); "*";

Print Tab(24); "*",

Print Tab(9); "*";

Print Tab(22); "*",

Print Tab(11); "*";

Print Tab(20); "*",

Print Tab(13); "*";

Print Tab(17); "*",

Print Tab(15); "*",

End Sub

Q3: 用VB怎样把输入的密码变成星号（*）显示出来？

只要将textbox设置属性PARRWORDCHAR为“*”即可，如：textbox1.PasswordChar = '*';

TextBox组件使用虽然比较简单，但TextBox类的构成成员却是非常的丰富。在一般性的编程中，主要涉及到三类：属性、方法和事件。其中属性PasswordChar 获取或设置字符，该字符用于屏蔽单行。

把文本框的passwordchar属性设置为"*"，可以在属性窗口直接设置，也可以在程序中使用代码设置。例如：

Private Sub Form_Load()

Text1.PasswordChar = "*"

End Sub

扩展资料：

TextBox类的其它相关属性：

1、Enabled 获取或设置一个值，该值指示组件是否可以对用户交互作出响应。

2、Focused 获取一个值，该值指示组件是否有输入焦点。

3、Font 获取或设置组件显示的文字的字体。

4、ForeColor 获取或设置组件的前景色。

5、MaxLength 获取或设置用户可以在文本框组件中最多键入的字符数。

6、Multiline TRUE/FALSE，该值指示它是否为多行文本框组件。

参考资料来源：百度百科-textbox

Q4: 用VB的circle画实心红色的圆，就是在窗体上画一个圆，控件窗体为1980，据窗体左边距为1320，请问怎么做

'窗体上添加Shape控件

Private Sub Form_Load()

Shape1.Move 1320, 500, 1980, 1980

Shape1.Shape = 3

Shape1.BackStyle = 1

Shape1.BackColor = vbRed

Shape1.BorderColor = vbRed

End Sub

画椭圆：

Private Sub Form_Load()

Shape1.Move 1320, 500, 1980, 580

Shape1.Shape = 2

Shape1.BackStyle = 1

Shape1.BackColor = vbRed

Shape1.BorderColor = vbRed

End Sub

Q5: 如何用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的内切椭圆。

用vbnet画红心的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet绘图、用vbnet画红心的信息别忘了在本站进行查找喔。