我想知道VB 中Line 函数的应用

这个是求积分的图形化示意图，line是个画线的函数，Picture1Line
-(a
+
i

h,
0),
,
B是以pincture1点坐标为起点，以(a
+
i

h,
0)为对角点画矩形，B就是画矩形，中间省略的空格为颜色参数。
希望对你有所帮助

VB可用objectLine - (x2, y2)写法实现在对象上绘制连续折线。

Line 方法，在对象上画直线和矩形。

以下是具体实现绘制曲线的代码：

Option Explicit
    Const PI = 314159265432
    
Private Sub Command1_Click()
    Picture1Scale (-2  PI, 1)-(2  PI, -1) '建立坐标系
    Dim I As Single
    Picture1CurrentX = -2  PI '建立当前坐标
    Picture1CurrentY = 0
    For I = -2  PI To 2  PI Step 001
        Picture1Line -(I, Cos(3  I)  Sin(5  I)), vbRed '绘制曲线
    Next
End Sub

运行效果：

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

line input# 从已打开的顺序文件中读出一行并将它分配给string变量。
语法：line input #filenumber,varname
filenumber 必要。任何有效的文件号
varname 必要。有效的variant（变体数据）值或string（字符串）变量名
示例：
dim text
open"c:\windows\systemini" for input as #1 '打开文件
do while not eof(1) '循环至文件尾
line input#1,text '读入一行数据并将其赋予某变量
debugprint text ’在立即窗口中显示数据
loop
close#1 '关闭文件

Private Sub Form_Load()
MeAutoRedraw = True '===============或者窗体AutoRedraw 属性设置成 True
Dim x1, x2, y1, y2 As Long
For i = 0 To 100
x1 = Line1x1 + (Line1x2 - Line1x1)  i / 100
y1 = Line1y1
x2 = Line3x1 + (Line3x2 - Line3x1)  i / 100
y2 = Line3y1
Line (x1, y1)-(x2, y2), vbRed
Next
End Sub

vb6中不能在label控件中绘图，可在窗体中绘图，示例如下：
Private Sub Command1_Click()
MeLine (500, 400)-(1200, 1200)
MeLine (1200, 1200)-(500, 2000)
MeLine (500, 2000)-(500, 400)
End Sub

是没有看到画出来的曲线还是别的什么问题？如果是看不到画出来的曲线的话，有可能是因为你没有把窗体的AutoRedraw属性设为true，你让Form1autoredra=true试试，不行的话Hi我讨论

---