BitBlt()函数动态显示问题

Question

Option Explicit
Private Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal DrawStyle As Long) As Long
Dim GobalS As Long '秖祘
Dim GobalL As Long 'Ω?Г?
Dim GobalT, yy As Integer 'Ω??だ
Dim objCn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
    Set objCn = New Connection
    objCn.ConnectionString = "driver=SQL Server;server=(LOCAL);database=dt"
    objCn.Open
    Set rs = New Recordset
    rs.Open "select * from line", objCn, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    Picture1.AutoRedraw = False 
    Picture1.ScaleMode = 
    GobalL = -1 
    GobalS = 400
    GobalT = 1
    yy = 0
End SubPrivate Sub Timer1_Timer()
    Dim w As Long, h As Long, y1 As Long, Data As Long
    Dim hBmp, ShowMode As Long, ii As Long, t1 As Integer
    rs.MoveNext
    w = Picture1.Width
    h = Picture1.Height
    hBmp = Picture1.hDC
    ShowMode = &HCC0020 
    Data = rs("line")  
    y1 = (GobalS - Data) / GobalS * h 
    ii = BitBlt(hBmp, 0, 0, w - 1, h, hBmp, 1, 0, ShowMode) 
    Picture1.Line (w - 1, yy)-(w, y1), RGB(56, 255, 0)
    yy = y1
    t1 = Val(Mid$(Time$, 3, 2))
    If GobalT <> t1 Then  
        Picture1.CurrentX = w - 16
        Picture1.CurrentY = h - 8
        Picture1.Print Mid$(Time$, 1, 5)
        GobalT = t1
    End IfEnd Sub
我这我的一个程序,想让它能动态的显示数据,画出曲线,可是就是不能,不知道哪错了,还望名位给我指点一下,谢谢

Answer 1

hBmp = Picture1.hDChBmp = Picture1.Picture.Handle

Answer 2

是说把hBmp = Picture1.hDC这句换成hBmp = Picture1.Picture.Handle吗,很抱欠,我试了一下,还是不行的,麻烦大家帮帮忙吧,我刚接触这个不久,很多都不清楚,

Answer 3

我说的不是把hBmp = Picture1.hDC这句换成hBmp = Picture1.Picture.Handle位图的句柄通常写成hBmp设备的句柄通常写成hDC你的写法我看着就晕参考http://dev.wl668.com/vb/bclass/20056305101_3206512.shtml

Answer 4

Hassle
   你好
   其实上面的程序,我也不怎样理解是从网上找的,我是昨天才接触到API的,几乎什么都不懂,可是我现在急着写一个监控软件,是从PLC中读取数据,然后以实时曲线显示出来,用到一个Picture控件作用曲线的容器,和一个定时器,每一分钟取一次数据,动态的显示数据和时间.我不知道怎样写,能帮个忙吗,谢谢,谢谢

Answer 5

楼主如果不理解api的话也可以不用api啊，如果只要实现功能的话自己给picture控件自定义个坐标系动态的静态的都可以，然后再用你读取上来的数据在picture上画出你想要的曲线不就可以拉。
  其实一些api函数的功能完全可以自己定义函数来完成的。
不知道我有没有理解到搂主的意思。

Answer 6

你是让把几次画的曲线图都显示在picture上吗？还是一次就一条曲线？
比方说你已经在picture上画了一条曲线了，现在过了一分钟，你要画第二条曲线了，那第一条曲线还要在picture上吗？还是只要picture上只有第二条曲线就可以了?

Answer 7

要的,在picture里,要显示十分钟的曲线,在第十一分钟是要把第一分钟的从picture移去(或删除),就类似于,任务管理器中CPU的使用率记录一样的

Answer 8

工具箱上找到Line控件放到窗体上设置Line控件的属性名称=oLine设置Line控件的属性Index=0, 建立控件数组用代码增加直线 Load oLine(n)    'n=1或2或3...用代码删除直线 UnLoad oLine(n)  'n=1或2或3...每条直线的位置和长短用属性X1,X2,Y1,Y2控制注意: 非常复杂的曲线或者对响应时间要求高的曲线用这个方法效果不好

Answer 9

怎么,没有人来指教了呀,就没有更好的方法了吗,等着大侠的回答
TO Hassle ,我给你加十分,