Form1.FillStyle = 0
Circle (X, Y), 500
End Sub
运行后,在窗体上点击看看本回答被提问者采纳
vb 画圆问题
Form1.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆（预设空心） Form1.Picture1.FillStyle = 0 '设定填充模式为实心 Form1.Picture1.FillColor = vbBlue '设定填充色蓝色 Form1.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实心...
用VB编程画圆
'Form3.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆（默认空心）'''Form3.Picture1.FillStyle = 0 '设定填充模式为实心 'Form3.Picture1.FillColor = vbBlue '设定填充色蓝色 'Form3.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实...
VB用circle画圆的命令
你说的意思是画实心圆，我给你一个示例的代码，如下：Dim i As Integer, l As IntegerDim r As BooleanPrivate Sub Form_Load()Form1.Scale (-200, 200)-(200, -200)l = 1i = 1r = FalseEnd SubPrivate Sub Timer1_Timer()DoEventsIf r = False ThenTimer1.Interval = ii = i + ...
在VB.Net中如何画实心的圆
在PictureBox1上画红色的实心圆：Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)Dim gr As Graphics gr = PictureBox1.CreateGraphics Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)gr.Dra...
VB6.0画圆(从内向外画 )?
Private Sub Command1_Click()Dim r As Integer For r = 50 To 1000 Step 100 Picture1.Circle (1050, 1050), r Next End Sub Private Sub Form_Load()Picture1.Move 0, 0, 2100, 2100 End Sub
vb中在任意位置画圆,半径在500以内,颜色随机变化
Private Sub Command1_Click() Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() Randomize (Timer) Circle (Rnd * Me.Width, Rnd * Me.Height), Rnd * 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub
vb 怎么吧把在text里所输入的符号变成实心圆
在textbox的属性框里把passwordchar的值改为实心圆就可以了 1.直接在TextBox1右边的属性设置(运行结果看截图)2.代码是这样写(运行结果看截图)Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox2.PasswordChar = "●"End Sub ...
vb2005用画点方法Pset
在 Visual Basic 6.0 中，PSet 方法用于更改窗体或 PictureBox 控件上的像素颜色。如果 DrawWidth 属性设置为大于 1 的值，PSet 方法将绘制实心圆。如果使用了被省略的 ForeColor ，可通过另一个可选参数指定颜色。在 Visual Basic 2005 中，没有 PSet 方法的等效项。若要更改窗体或 PictureBox ...
如何用vb 6.0 做画图, 怎么写各种形状的代码? (圆形,椭圆,长方形 )
代码:Private Sub Form_Click()'画一个实心椭圆。FillStyle = 0 Circle (600, 1000), 800, , , , 3 '600,1000是中心坐标,800是长轴半径,3是y轴与x轴之比 '画一个空心椭圆。FillStyle = 1 Circle (1800, 1000), 800, , , , 1 \/ 3 '画圆 Circle (3800, 1000), 800 '画矩形 L...
在VB中,这些语句都是什么意思啊,跪求大神解答
'Line 用于画直线和矩形 vbGreen 指颜色填充为绿色,BF 参数表示实心填充 '下面这句用于输出一个以 (xe,ye)为中心的 宽 300,高500 的实心绿色矩形 Line (xe - 150, ye - 250)-(xe + 150, ye + 250), vbGreen, BF 'Circle 用于画圆形,中心 xb,yb 半径 50 Circle (xb, yb), 50 '...
