如何消除闪烁现象（用Panel1.CreateGraphics），请高手指点。谢谢

tanchengfang 2009-07-03 10:57:04

当我拖动Trackbar旋转（或缩放）图片时，会有闪烁现象，如何消除，Graphics不是用Me.CreateGraphics。谢谢
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Dim g As Graphics
Dim bm As Bitmap
bm = New Bitmap("d:\00.jpg")
g = Panel1.CreateGraphics '不是用g=Me.CreateGraphics
g.TranslateTransform(Panel1.Width\2, Panel1.Height\2)
'一下两句二选一
'g.ScaleTransform(TrackBar1.Value)
g.RotateTransform(TrackBar1.Value)
g.Clear(Color.White)
'g.DrawImage(bm, -bm.Width \ 2, -bm.Height \ 2)
g.DrawImage(bm, 0, 0)

End Sub

...全文

463 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

tdyan 2010-10-16

打赏
举报

在内存中创建image，把变化后的图像存在image中，再显示。

paxiti 2010-10-16

打赏
举报

将panel控件换成picturebox控件，应该有效。我之前碰到一样的问题，研究了差不多半个月才解决。

ineedchrist 2009-07-09

打赏
举报

以下是我用C#写的，解决旋转的时候不以中心点为轴心的问题，其中rotation是要旋转的角度，_symbol是一个bitmap,不会转VB。NET在说。

另外，解决完问题记得结帖。

double offsetX = pp.X - _symbol.Width / 2;
double offsetY = pp.Y - _symbol.Height / 2;
System.Drawing.Rectangle picRect = new System.Drawing.Rectangle((int)offsetX, (int)offsetY, (int)_symbol.Width, (int)_symbol.Height);
System.Drawing.PointF pCenter = new System.Drawing.PointF((Single)(picRect.X + picRect.Width / 2), (Single)(picRect.Y + picRect.Height / 2));
g.TranslateTransform(pCenter.X, pCenter.Y);
g.RotateTransform(rotation);
g.TranslateTransform(-pCenter.X, -pCenter.Y);
g.DrawImageUnscaled(_symbol, picRect);
g.Transform = startingTransform;

tanchengfang 2009-07-08

打赏
举报

谢谢pjagz,有学了一招。谢谢啊

pjagz 2009-07-07

打赏
举报

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Call MySub()
End Sub

Private Sub MySub()
'绘图代码
End Sub

Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

Call MySub()

End Sub

tanchengfang 2009-07-07

打赏
举报

各位，运行程序后，最小化窗体后图片消失了，如何解决啊。

dylike 2009-07-06

打赏
举报

约4万字代码的东西,我写了3天3夜的.

dylike 2009-07-06

打赏
举报

我写了个DLL.可到我群共享里下载.只需要你添加几句代码即可实现你要的效果.保证不闪.
共享名:DYD.DLL

tanchengfang 2009-07-06

打赏
举报

pjagz你好，这样做的话，图片是沿图片的左上角旋转。能不能让图片沿着图片自身的中点旋转啊？如何做呢？谢谢

tanchengfang 2009-07-06

打赏
举报

谢谢各位了。
dylike你好，如果用分层技术，如果实现呢？能给我例子吗？谢谢

pjagz 2009-07-05

打赏
举报

Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

Dim g As Graphics
Dim bm As New Bitmap(Panel1.Width, Panel1.Height)
Dim grph As Graphics = Graphics.FromImage(bm)
grph.Clear(Color.White)
grph.TranslateTransform(0, 0)
grph.RotateTransform(TrackBar1.Value)
grph.DrawImage(Image.FromFile("E:\temp\2.jpg"), 0, 0)

g = Panel1.CreateGraphics
g.DrawImage(bm, 0, 0)

End Sub

dylike 2009-07-05