Dim x, y, r
x = InputBox("请输入圆心坐标x", "参数输入", 30)
y = InputBox("请输入圆心坐标y", "参数输入", 30)
r = InputBox("请输入半径r", "参数输入", 15)
Picture1.ScaleMode = 3
Picture1.Circle (x, y), r, , 0, 0
End Sub
vb 画圆问题
vb 画圆 画在picture里 Private Sub Command1_Click() Dim x, y, r x = InputBox("请输入圆心座标x", "引数输入", 30) y = InputBox("请输入圆心座标y", "引数输入", 30) r = InputBox("请输入半径r", "引数输入", 15) Picture1.ScaleMode = 3 Picture1.Circle (...
vb 画圆 画在picture里
x = InputBox("请输入圆心坐标x", "参数输入", 30)y = InputBox("请输入圆心坐标y", "参数输入", 30)r = InputBox("请输入半径r", "参数输入", 15)Picture1.ScaleMode = 3 Picture1.Circle (x, y), r, , 0, 0 End Sub ...
vb中在picturebox里画好了坐标系,在坐标系上画圆,圆不显示,不画坐标系...
1. 将坐标系原点移到PictureBox的中心。可以通过设置PictureBox的Anchor属性或者使用代码控制PictureBox的位置实现。2. 计算平移的距离dx和dy。dx = Ox + Cx - PictureBox.Width \/ 2 dy = Oy + Cy - PictureBox.Height \/ 2 3. 将坐标系各点的坐标按照平移距离进行平移。4. 将圆的半径进行缩放...
vb编程在picturebox画圆
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Then x1 = x: y1 = y End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Then Picture1.AutoRedraw...
VB编程在PictureBox中画圆弧,自定义坐标系,三点,Circle函数是不是有...
这不是缺陷，是因为计算机的显示系统，点与点之间有距离造成的。. . . . .. . . . .. . . . .. . . . .. . . . .如图，如果画线时候，线在一条直线上，当然无问题。如果不在一条直线上，假设第一点在(1,1)位置，第二点在(1.4,1,4)位置上，由于显示器不能显示 (1.4,1,...
vb题目:画100个同心圆在图片框picture1里面(编程)
这个简单，马上就好。。Private Sub Command1_Click() For i = 1 To 10 '要多少就改成多少，我话10个演示 R = 100 + i * 100 '半径的变化规律随便你自己定 Picture1.Circle (Picture1.Width \/ 2, Picture1.Height \/ 2), R'括号里面是圆心坐标 NextEnd Sub ...
vb题目:画100个同心圆在图片框picture1里面(编程)
放一个text，一个按钮，text里输入几个就画几个 private sub command2_click()dim i as integer for i = 1 to val(text2.text)form3.picture1.circle (120,260),i 10,vbred '在左边为120.260的位置为圆心，i*10的数量为半径画个圆 next form3.picture1.refresh end sub ...
VB,在picture控件中先导入了一个图片,然后用代码画圆,圆总在图片后,看...
贴代码 关键是picture的AutoRedraw属性要设为true！！！
VB中用Circle画圆,怎样设置颜色?
'画一个圆：圆心在(80, 50)，半径为50，圆周的颜色为蓝色 Picture1.Circle (80, 50), 50, vbBlueEnd SubPrivate Sub Command2_Click() Picture1.Cls '设置圆的填充色为黄色 Picture1.FillStyle = vbFSSolid Picture1.FillColor = vbYellow '画一个圆：圆心在(80, 50)，...
vb怎么实现在图片框拖动画圆的功能,松开鼠标结束画圆?
= swEnd IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Picture1.Circle (sp.Width \/ 2 + sp.Left, sp.Height \/ 2 + sp.Top), sp.Width \/ 2, vbRed sp.Visible = FalseEnd IfEnd Sub ...
