我要实现2个Pic透明叠加应该怎么做呢？

还有让MSchart控件的横坐标变成时间应该怎么做呢�

历史的做picture box的背景,新的在上面画就可以了

LS说的再明白点..好么?
没看得懂...
历史与实时是两个不同的..
我实时曲线是用的picturebox
而历史曲线用的MSchart做的~

曲线是移动的,而网格是不动的
那就让网格作成背景图片好�

网格做成透明图片 用IMAGE控件加载 覆盖在PICTURE上面 行不�

这样：Picture1.Picture = Picture2.Image
注:Picture2是网格,Picture1是曲线�

你只需要一张网格的图片,当作是窗体的背景图片, 里面加上Picture1(下图蓝色部份), 每几毫秒使用 Picture1.print 来画曲线,这张画满了后, 把Picture1.image图像存盘为001.bmp,清空, 继续画第2张.

到最后结束时把这 N 张的 bmp图片平铺在窗体上.(或打印)

上图匡架部份是窗体图片,Picture1内的网格是用 Picture1.print画的,座标值是 Me.print 画上的.

我把程序附上，您帮我看看吧

炎々雨

Private Sub Form_Load()
 With picView
 .BackColor = vbWhite
 .ForeColor = vbBlack

 End With
 With picTmp
 .BackColor = vbWhite
 .ForeColor = vbBlack

 End With
 m_lngCurLeft = -1
 picTmp.Tag = 0
End Sub

Private Sub Form_Resize()
 
 Dim i As Integer
 For i = 0 To 6
 Label1(i).Caption = Format(Time + #12:01:00 AM# * i, "hh:mm")
 Next
 With picView
 .Width = ScaleWidth - 4500
 .Height = ScaleHeight - 5000
 picTmp.Width = .Width
 picTmp.Height = .Height
 End With
 cmdOK.Move ScaleWidth - 4000, ScaleHeight - 600
 Label1(0).Move ScaleWidth - 13200, ScaleHeight - 3800
 Label1(1).Move ScaleWidth - 11400, ScaleHeight - 3800
 Label1(2).Move ScaleWidth - 9600, ScaleHeight - 3800
 Label1(3).Move ScaleWidth - 7800, ScaleHeight - 3800
 Label1(4).Move ScaleWidth - 6000, ScaleHeight - 3800
 Label1(5).Move ScaleWidth - 4200, ScaleHeight - 3800
 Label1(6).Move ScaleWidth - 2400, ScaleHeight - 3800
 DrawGridBack
 
 
End Sub



Private Sub DrawBack()
 Dim lngY As Long, i As Long
 Dim lngWidth As Long, lngHeight As Long
 
 With picTmp
 .DrawStyle = 2
 lngWidth = .ScaleWidth
 lngHeight = .ScaleHeight
 If m_bolFlag Then
 BitBlt .hDC, 0, 0, picView.Width - 2, picView.Height, .hDC, 2, 0, SRCCOPY
 .ForeColor = vbBlack
 For i = m_lngCurLeft To lngWidth - 10 Step LNG_STEP2
 Next
 picTmp.Tag = CLng(picTmp.Tag) + 1
 If CLng(picTmp.Tag) >= 10 Then picTmp.Tag = "4"
 If CLng(picTmp.Tag) >= 3 Then
 picTmp.Line (i - LNG_STEP2, 0)-(i - LNG_STEP2, lngHeight)
 End If
 End If
 .DrawStyle = 6
 .ForeColor = vbBlack
 Randomize Second(Time)
 lngY = Int(((lngHeight - 40) * Rnd) + lngHeight / 30)
 picTmp.Line (m_lngX - 2, m_lngOldY)-(m_lngX - 1, lngY)
 m_lngOldY = lngY
 picView.Picture = .Image
 End With
End Sub

Private Sub DrawGridBack()
 Dim i As Long
 Dim lngWidth As Long, lngHeight As Long
 picTmp.DrawStyle = 2
 With picTmp
 lngWidth = .ScaleWidth
 lngHeight = .ScaleHeight
 '画竖线
 For i = m_lngCurLeft To lngWidth - 2 Step LNG_STEP2
 picTmp.Line (i, 0)-(i, lngHeight)
 Next
 picTmp.DrawStyle = 6
 '画横线
 For i = -1 To lngHeight Step LNG_STEP1
 picTmp.Line (0, i)-(lngWidth, i)
 Next
 End With
 
End Sub





Private Sub Timer1_Timer()
 If m_bolFlag Then m_lngCurLeft = m_lngCurLeft - 2
 If m_lngCurLeft = -LNG_STEP2 * 2 Then m_lngCurLeft = -1
 DrawBack
 m_lngX = m_lngX + 2
 If m_lngX >= picView.ScaleWidth - 2 Then
 m_bolFlag = True
 m_lngX = picView.ScaleWidth - 2
 End If
End Sub

【CBM666 的实时串口数据接收曲线图】

http://hi.baidu.com/cbm666/blog/item/bf8b982224eec8f2d6cae2df.html

我现在的曲线个网格都是移动的...

CMB666老师帮帮我吧~~

CBM老师....

帮我看下这段吧~~
Randomize Second(Time) 
 lngY = Int(((lngHeight - 40) * Rnd) + lngHeight / 30) 
 picTmp.Line (m_lngX - 2, m_lngOldY)-(m_lngX - 1, lngY) 
 m_lngOldY = lngY 
 picView.Picture = .Image 
 End With 

这个是产生随即数,然后划线...
然后把TMP的图考到VIEW
我现在想把网格画到VIEW,曲线画到TMP..
怎么弄呢?
难道你叫我切张网格的图加到TMP的背景上去?

这是现在实现的图~~
后面实在是不会做了...
教教我啊~