Question

Vb 编程怎么做出这样窗体 从文件读取数据绘制直方图 并用能鼠标从窗体上采取数据

Answer 1

画线！下面代码，需要timer一个，text1 text2 text3 控件，并且注意tex1 text2 text3的控件

只能为数字

Dim S1, S2, S3, S4  As Long
Dim A1, A2, A3, A4  As Long
Dim C1, C2, C3, C4  As Long
Private Sub Form_Load()
Me.AutoRedraw = True
Timer1.Interval = 1500
S4 = Form1.Height - 600
S2 = Form1.Height - 600
A4 = Form1.Height - 600
A2 = Form1.Height - 600
C4 = Form1.Height - 600
C2 = Form1.Height - 600
End Sub
Private Sub Timer1_Timer()
S3 = S3 + 100
S4 = 3000 - Text1.Text
Me.ForeColor = &HFF&
Me.Line (OX1, OY1)-(OX2, OY2), Me.BackColor
Me.Line (S1, S2)-(S3, S4)
S1 = S1 + 100
S2 = S4
A3 = A3 + 100
A4 = 3000 - Text2.Text
Me.ForeColor = &H0&
Me.Line (O1X1, O1Y1)-(O1X2, O1Y2), Me.BackColor
Me.Line (A1, A2)-(A3, A4)
A1 = A1 + 100
A2 = A4
C3 = C3 + 100
C4 = 3000 - Text3.Text
Me.ForeColor = &HFF00&
Me.Line (O1X1, O1Y1)-(O1X2, O1Y2), Me.BackColor
Me.Line (C1, C2)-(C3, C4)
C1 = C1 + 100
C2 = C4
End Sub

把上面的代码粘贴到窗体上即可。 

 

 

 

 

或者mschart1控件

用法示例：

Private Sub Form_Load()
MSChart1.chartType = VtChChartType2dLine '设置为二维曲线
Dim a(6, 0) As Integer '声明一个数组
   For i = 1 To 6 '遍历循环
           a(i, 0) = i * i * i '为每一个数组的元素赋值
   Next i
   MSChart1.ChartData = a '把数组的数据赋值给MSChart对象的ChartData属性
   For i = 1 To 7 '设置8个数据点
       MSChart1.Row = i '移动位置,指向第i个位置
       MSChart1.RowLabel = i '设置行标签内容
   Next i
End Sub
 
Private Sub Command1_Click()
With MSChart1
   .chartType = VtChChartType2dLine '设置为二维曲线
   .ColumnCount = 1 '只要一条曲线
   .RowCount = 7 '设置8个数据点
   For i = 1 To 7 '遍历循环
       .Row = i '移动位置,指向第i个位置
       .RowLabel = i '设置行标签内容
       .Data = i ^ 2 '赋值
   Next
End With
End Sub
 
Private Sub Command2_Click()
   Dim cn As New ADODB.Connection
   '声明一个新的连接
   Dim rst As New ADODB.Recordset
   '声明一个新的记录集
   Dim SqlStr As String
   '声明一个字符串
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
   '打开连接
   SqlStr = "Select 收入 From 收入表"
   '设置SQL语句
   rst.CursorLocation = adUseClient
   '设置记录集游标的位置
   rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set MSChart1.DataSource = rst '给MSChart1修改数据源
End Sub