a = Val(Text1) b = Val(Text2) h = 0.2 Picture1.CurrentX = a Picture1.CurrentY = a * a Picture1.FillStyle = 0 Picture1.ForeColor = RGB(255, 255, 0) jifen = 0 For i = 1 To (b - a) / h Picture1.Line -(a + i * h, 0), , B '画小矩形 Picture1.CurrentX = a + i * h Picture1.CurrentY = (a + i * h) * (a + i * h) '准备下一个起点 jifen = jifen + (a + i * h) * (a + i * h) * h '求积分 Next i 帮忙讲解一下吧
我想知道VB 中Line 函数的应用
这个是求积分的图形化示意图,line是个画线的函数,Picture1.Line -(a + i h,0),,B是以pincture1点坐标为起点,以(a + i h,0)为对角点画矩形,B就是画矩形,中间省略的空格为颜色参数。希望对你有所帮助
vb中line函数的使用方法
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]object 可选的。 对象表达式,其值为“应用于”列表中的对象。如果object 省略,具有焦点的窗体作为object。Step 可选的。关键字,指定起点坐标,它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。(x1, y1) 可...
vb中line是什么意思
Line是画线条的方法,比如Line(100,250)-(350,500)是画一条线段,将当前绘图点移到坐标(100,250),往坐标(350,500)的方向画一条线段。但加一个参数B后,就变成是画矩形了,画完后,绘图点也就到矩形的右下角(350,500)了
VB中怎么用LINE方法画直线方程?
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]Line 方法的语法有以下对象限定符和部分:部分 描述 object 可选的。 对象表达式,其值为“应用于”列表中的对象。如果object 省略,具有焦点的窗体作为object。Step 可选的。关键字,指定起点坐标,它们相对于由 CurrentX 和...
VB6.0中Line函数的使用.
Line (Shape1.Left, Shape1.Top)-(X, Y)Shape1.Left = X Shape1.Top = Y k = 1 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If k = 1 Then Line (Shape1.Left, Shape1.Top)-(X, Y)Shape1.Left = X Shape1.Top =...
怎么使用VB中的lineto函数?
lineto 是在HDC里从当前点开始画线,画到x,y这个点。用lineto前通常用movetoex定起始点 MoveToEx hdc, x(0), y(0), null LineTo hdc, x(1),y(1)就会从1,2这个点画线到2,1这个点 movetoex最后的参数是个lppoint结构用来存放初始点 ...
VB line函数用法
你试下 Form1.Line (1, 1)-(2000, 2000)Form1.Line (1, 1)-(2000, 2000), , B Form1.Line (1, 1)-(2000, 2000), , BF 然后就知道了 第一个是画线 第二个是画空心矩形 第三个是画实心矩形
VB中控件Line的问题
Line (-1, ly)-(lscalewidth, ly), , B '这时候矩形的上下边框是重叠的,这种情况VB会进行特殊处理,把它看作是直线(不再是矩形),显示的是FillColor颜色(因为直线是没有边框的)。因此,上述情况1、3可实现你要的功能,而2则不能实现。事实上只要把DrawStyle = vbInvisible这行删掉或改...
vb 用line 画线的问题
把Step去掉,Step是步长,所以会发生坐标变更
VB中line控件问题
缺省用Line画的线是黑色的,可能与底色黑背景黑到一起了。需要把Picture的Forecolor属性设为其它颜色,比如Picture2.Forecolor = RGB(255,0,0)这时再画线就是红色的了。Picture插入图片的方法如下 Picture1.Picture = LoadPicture("C:\\test.bmp")...