在vb中怎么用line画圆
VB中直接有“填充方式”， FillStyle 属性就决定了用什么样的填充方式填充圆内空间。
其中：
VbFSSolid 0 实心
VbFSTransparent 1 （缺省值）透明。
VbHorizontalLine 2 水平直线。
VbVerticalLine 3 垂直直线。
VbUpwardDiagonal 4 上斜对角线。
VbDownwardDiagonal 5 下斜对角线
VbCross 6 十字线
VbDiagonalCross 7 交叉对角线
示例代码如下：
Private Sub Command1_Click() Dim CX, CY, Radius, Limit ' Declare variable. FillColor = vbRed '填充颜色 FillStyle = 0 '实心 FillStyle = 1 '无填充 FillStyle = 2 '水平直线
FillStyle = 3 '垂直直线
FillStyle = 4 '上斜对角线
FillStyle = 5 '下斜对角线
FillStyle = 6 '十字线
FillStyle = 7 '交叉对角线
ScaleMode = 3 ' 以像素为单位。 CX = ScaleWidth / 2 ' X 位置。 CY = ScaleHeight / 2 ' Y 位置。 If CX > CY Then Limit = CY Else Limit = CX Radius = Limit ' 半径。 Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub
你试下,简单的例子
Form1.Line (1, 1)-(2000, 2000)--------------画线
Form1.Line (1, 1)-(2000, 2000), , B---------画空心矩形
Form1.Line (1, 1)-(2000, 2000), , BF-------画实心矩形
line 方法
在对象上画直线和矩形。
语法
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]
Line 方法的语法有以下对象限定符和部分：
部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。
(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。
Step 可选的。关键字，指定相对于线的起点的终点坐标。
(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。
color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
B 可选的。如果包括，则利用对角坐标画出矩形。
F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。
说明
画联结的线时，前一条线的终点就是后一条线的起点。
线的宽度取决于 DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。
执行 Line 方法时， CurrentX 和 CurrentY 属性被参数设置为终点。
这个方法不能用于With...End With 语句块。
VB中有专门画圆的函数Circle，命令如下：
Circle (x, y), r, c 其中(x, y)是原点坐标,r是半径,c是颜色
如果一定要用Line，以圆心（x,y）为例，在为r(x-1+cosi,y+sini)起点，以r(x+cosi,y+sini)为终点画一个点的线。用for 循环来做。步长i越小，效果越好。
Private Sub Command1_Click()
Dim i As Single, x As Integer, y As Integer, r As Integer
x = Form1.Width / 3
y = Form1.Height / 3
r = Form1.Width / 4
For i = 0 To 6.3 Step 0.00001
Line (x - 1 + r * Cos(i), y + r * Sin(i))-(x + r * Cos(i), y + r * Sin(i)), vbRed
Next i
End Sub
效果如下：
line你从英文原意就知道这是用来画直线的。画圆的有专门的命令：
Circle (x, y), r, c
其中(x, y)是原点坐标，r是半径，c是颜色
VB6.0中如何实现我在RichTextBox1中的任何位置打字,list1都能跟随其下...
Const EM_GETSEL = &HB0 Const EM_LINEFROMCHAR = &HC9 Const EM_LINEINDEX = &HBB Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public LiN As Long, Col As ...
VB如何用WinIO打字?
运行上面的程序,就会每隔3秒钟模拟按下一次A键,试试看,怎么样,是不是对所有程序都有效果了?需要注意的问题:要在VB的调试模式下使用WINIO,需要把那3个文件拷贝到VB的安装目录中。键盘上有些键属于扩展键(比如键盘上的方向键就是扩展键),对于扩展键不应该用上面的MyKeyDown和MyKeyUp过程来模拟,可以使用下面的2...
vb如何实现一段文本每一行生成一个txt的文件
Sub FindText()On Error Resume Next Dim StartL As Integer, A As Integer, NowL As String, C as Integer A = 0 '设定a=0 c = 0 'c=0 For StartL = 0 To Len(Text1.Text) '从text1第一个字找起 NowL = Right(Left(Text1.Text, StartL), 1) '逐字排查 If NowL = Chr(...
VB 如何查看右键菜单的代码
我看过你的那个源程序了···我这里运行正常的啊··他就是一个点击左键出来右键快捷菜单··你看我的截图 你在编辑模式下在你的窗口右键 选中 菜单编辑器··然后将那个minglin设置为可见（子菜单）
汉字转拼音!!VB问题
5个回答 #热议# 作为女性,你生活中有感受到“不安全感”的时刻吗?scutapple 2008-11-06 · TA获得超过209个赞 知道小有建树答主 回答量:259 采纳率:0% 帮助的人:216万 我也去答题访问个人页 关注 展开全部 用查表的方式。下面的程序是ASP语言编写的,与VB差不多。'汉字转换为拼音'例子: ...
求用VB做一个记事本的简单程序
'利用对话框控件设置“打开”对话框中默认的文件过滤器为1，'即文本文件 cd1.FilterIndex = 1 cd1.ShowOpen '利用对话框控件显示“打开”对话框 f_name = cd1.FileName '保存打开的文件名 If f_name <> "" Then fileno = FreeFile '用FreeFile函数产生一个新的文件号 '设置当前打开的文件...
VB中将数据导入EXCEL
' MsgBox rs.RecordCount '显示表里的记录数 For i = 0 To rs.Fields.Count - 1 '读一行数据 Label3(i).Caption = rs.Fields.Item(i).Name Next i ALL_Lin = rs.RecordCount If Reg_Lin > ALL_Lin Then Reg_Lin = ALL_Lin ReDim Preserve Wavx(ALL_Lin - 1)i = 0 Do Until...
VB可以直接运行资源管理器的exe文件么?
VB可通过Shell 函数来运行EXE文件。Shell 函数 执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。Shell 函数示例 本示例使用 Shell 函数来完成一个用户指定的应用程序。' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且...
...每行十个单元格列出0~9不重复的数字 vb能编辑一下吗?
n, r)End SubPrivate Sub 递归求排列(ByVal deep As Integer, ByVal n As Integer, ByVal r As Integer)Dim i As IntegerDim LinStr As StringIf MyCount = 200 Then Exit SubIf deep = r Then MyCount = MyCount + 1 LinStr = "" For i = 0 To r - 1 Sheets...
求这段VB程序每句话的意思
If i > 0 Then 'Load Line1(i) '如果i大于0,就加载Line1(i)的控件,使用for循环,即循环设置Line1(1-14)控件的属性 '上面这里我想应该在Load加单引号注释掉 Line1(i).Visible = True '可见度为真 Line1(i).BorderWidth = 3 '设置Lin1的大小,换句话说就是线条的粗细(Line是线条控件)Lin...
詹须力得： VB中有专门画圆的函数Circle,命令如下:Circle (x, y), r, c 其中(x, y)是原点坐标,r是半径,c是颜色 如果一定要用Line,以圆心(x,y)为例,在为r(x-1+cosi,y+sini)起点,以r(x+cosi,y+sini)为终点画一个点的线.用for 循环来做.步长i越小,效...
福田区13260489558： 在VB中怎么让line圆周运动 - ？
詹须力得： VB中有专门画圆的函数Circle,命令如下:Circle (x, y), r, c 其中(x, y)是原点坐标,r是半径,c是颜色 如果一定要用Line,以圆心(x,y)为例,在为r(x-1+cosi,y+sini)起点,以r(x+cosi,y+sini)为终点画一个点的线.用for 循环来做.步长i越小,效...
福田区13260489558： vb中画点 画线 画圆分别用什么方法 - ？
詹须力得： vb中画点 画线 画圆分别用Pset、Line、Circle 方法
福田区13260489558： VB里面怎么画矩形? - ？
詹须力得： 使用Line方法,向Form,PictureBox这些控件都支持这个方法. 语法: object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F] 如: Me.Line (100,100)-(600,600), vbred, bf 加B这个参数就是矩形,加F就是用就边框颜色填充补充: Color参数就是边框颜色,如果省略,就用对象的ForeColor(前景色,就是字体的颜色) 属性值
福田区13260489558： VB中如何用line画线的方法给圆里面填充颜色 - ？
詹须力得： 没时间细说.呵呵.给你个思路:以圆心(x,y)为起点,以r(x+cosi,y+sini)为终点画线.这要用for 循环来做.步长i越小,效果越好.
福田区13260489558： vb中绘制圆和绘制直线等等使用的方法是 ? - ？
詹须力得： 画圆 Picture1.Circle (500, 500), 500 圆心座标,半径 画直线 Picture1.Line (10, 10)-(200, 200) 起点-终点
福田区13260489558： vb中画出线条或形状(例如圆)的代码并注释其格式 - ？
詹须力得： 在窗体上画一条(0, 0)到(1000,1000)的直线 me.line (0,0)-(1000,1000) 画圆或者椭圆用circle方法. circle方法的语法如下 对象名.circle (x , y) , 半径 , [,颜色] [, 起始角] [, 终止角] [, 长短轴比率] 如,在窗体上以(1000,1000)为圆心画一个半径为500的圆. me.circle (1000, 1000) , 500
福田区13260489558： VB中如何使用line语句 - ？
詹须力得： LINE函数是在一些可以画图的控件中可以使用,比如FORM,PICTUREBOX,PRINTER ,等.line (x1,y1)-(x2,y2),yanse,BF 以颜色参数 yanse 为色泽 在 X1,Y1,X2,Y2,之间画一个实心方框 BF改为 B,是空心方框,BF这个参数不填,则在2点见画条线
福田区13260489558： VB里面的Line方法的具体使用方法 - ？
詹须力得： 你试下,简单的例子 Form1.Line (1, 1)-(2000, 2000)--------------画线 Form1.Line (1, 1)-(2000, 2000), , B---------画空心矩形 Form1.Line (1, 1)-(2000, 2000), , BF-------画实心矩形 line 方法 在对象上画直线和矩形. 语法 object.Line [Step] (x1, 1) [Step] ...
福田区13260489558： vb中line函数的使用方法 - ？
詹须力得： 把画板的scaleMode设置为3,在画板的mousedown事件时记下x,y(用全局变量)在mouseup事件使用line函数画线,从全局变量中的xy到函数的xyOption ExplicitPrivate Type pointX As LongY As Long End Type Dim oldP As pointPrivate ...
