vb.net圆形,vb圆形代码

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net使用ovalshape画几个圆

Public a(8) As OvalShape

Dim canvas= New Microsoft.VisualBasic.PowerPacks.ShapeContainer

ConstCircleSize As Integer= 20

Const Dist As Integer = 10

Const Gap As Integer = 50

Dim i As Integer

canvas.Parent = Me.Panel1

For i =0 To 8

a(i) = NewOvalShape

a(i).Size = New Size(CircleSize,CircleSize)

a(i).Location = New Point(Dist +Gap * (i Mod 3), Dist + Gap * (i \ 3))

a(i).BorderWidth = 3

a(i).Enabled = True

a(i).Visible = True

a(i).Parent = canvas

相关问答

Q1: VB.net该如何将图片圆形显示？

新建一个Winform，拖两个图片框。图片框1在设计器中选择一个图片（尺寸在图片框容纳为佳）。如下代码测试通过：

private void button1_Click(object sender, EventArgs e)

{

Image img1 = this.pictureBox1.Image;

Image img2 = CropToCircle(img1);

this.pictureBox2.Image = img2;

}

public Image CropToCircle(Image img1)

{

Image img2 = new Bitmap(img1.Width, img1.Height,

img1.PixelFormat);

Graphics g = Graphics.FromImage(img2);

using (Brush br =

new SolidBrush(SystemColors.Control))//背景色

{

g.FillRectangle(br, 0, 0,

img2.Width, img2.Height);

}

GraphicsPath path = new GraphicsPath();

path.AddEllipse(0, 0, img2.Width, img2.Height);

g.SetClip(path);

g.DrawImage(img1, 0, 0);

return img2;

}

Q2: VB.Net怎么做圆形窗体

设置Region属性：

Dim path As New System.Drawing.Drawing2D.GraphicsPath

path.AddEllipse(0, 0, 400, 300)

Region = New Region(path)

Q3: VB.NET中怎样画圆弧

用Circle 画圆圆弧椭圆都具体参照面详细说明 Circle(一000,一000),500,吧,-陆,-三一000,一000,圆坐标 500,半径面别代表起始角,终止角,短轴比率吧,详细点,Circle都说遍象画圆、椭圆或弧语 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 语象限定符部：部描述 object 选象表达式其值应用于列表象object 省略具焦点窗体作object Step 选关键字指定圆、椭圆或弧相于前 object CurrentX CurrentY 属性提供坐标 (x, y) 必需 Single （单精度浮点数）圆、椭圆或弧坐标object ScaleMode 属性决定使用度量单位 radius 必需Single （单精度浮点数）圆、椭圆或弧半径 object ScaleMode 属性决定使用度量单位 color 选Long （整型数）圆轮廓 RGB 颜色省略则使用 ForeColor 属性值用 RGB 函数或 QBColor 函数指定颜色 start, end 选 Single （单精度浮点数）弧、或部圆或椭圆画完start end 指定（弧度单位）弧起点终点位置其范围 -二 pi 二 pi 起点缺省值0; 终点缺省值二 * pi aspect 选 Single （单精度浮点数）圆纵横尺寸比缺省值一.0何屏幕都产标准圆（非椭圆）说明想要填充圆使用圆或椭圆所属象 FillColor FillStyle 属性封闭图形才能填充封闭图形包括圆、椭圆、或扇形画部圆或椭圆 start 负Circle 画半径 start并角度处理； end 负Circle 画半径 end并角度处理Circle 总逆针（）向绘图画圆、椭圆或弧线段粗细取决于 DrawWidth 属性值背景画圆取决于 DrawMode DrawStyle 属性值画角度 0 扇形要画条半径（向右画水平线段）给 start 规定负值要给 0 .省略语间某参数能省略隔参数逗号您指定参数面逗号省略 Circle 执行CurrentX CurrentY 属性参数设置点能用 With匛nd With 语句块 -------------------------------------------------------------------------------- Circle 示例示例用Circle 窗体央画许同圆要运行示例代码放入窗体 General 部按 F5 并单击窗体 Sub Form_Click () Dim CX, CY, Radius, Limit ' Declare variable. ScaleMode = 三 ' 像素单位 CX = ScaleWidth / 二 ' X 位置 CY = ScaleHeight / 二 ' Y 位置 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半径 Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55) Next Radius End Sub -------------------------------------------------------------------------------

Q4: 如何用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))

End Sub