Question

vb制作温度实时曲线例子，谁给我个例子啊，最好还有虚线格的。

'绘制温度实时曲线，运行起来时全是竖线，帮忙找找毛病吧。还有坐标原点怎么定呢，

Private Sub draw()
Dim x0, y0, h, w As Single
y0=Picture1.Height+Picture1.left
x0=picture.left
Picture1.Scale (0, Picture1.Height)-(Picture1.Width, 0)

h = Picture1.Height / 450 '图片的高4500，宽6000.
w = Picture1.Width / 600
Picture1.ForeColor = QBColor(1)
Picture1.Cls
Picture1.DrawWidth = 1
Picture1.BackColor = QBColor(15)

For i = 1 To num - 1
X1 = x0 + (i - 1) * w
Y1 = y0 - datatemp(i - 1) * h
X2 = x0 + i * w
Y2 = y0 - datatemp(i) * h
Picture1.Line (X1, Y1)-(X2, Y2), vbBlack
Next i
End Sub

Answer 1

Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

private sub form_load()
'有图形的话 设图形的句柄为HWND
hbrush=createsolidbrush(vbred)
FillRgn hwnd ,hbrush
end sub
就搞定了 关键你自己把图形的句柄填上去
另外,虚机团上产品团购,超级便宜

Answer 2

你这程序看着也太乱了，就不能换行么？