vb图像处理刷新问题
请问一下 我用image控件加载了一些图片。 用timer进行划线。用的是form里的line函数。 结果每次timer运行的时候,周围的image都会刷新而闪一下。我不希望image刷新。 请问如何能做到在line划线的时候,周围的image保持原状? 代码: Private Sub Timer1_Timer() Static line1, line2 As Integer line1 = line1 + 10 Line (line1, line1)-(line2, line2) line2 = line1 End Sub
用那个IMAGE一般都会的,最好改成PICTURE不是更好吗 没发现你说的问题 http://download.csdn.net/source/1483925 去掉AutoRedraw = True 如果你的线是画窗体上的,请将AutoRedraw = True 改为AutoRedraw = False,在代码中加Me.Show 把AutoRedraw = False之后的确解决了问题,不过当我画线之后,另外的控件移动上去就会将之擦除,请问如何解决这个问题? 改用PicetureBox1.Line引用 如果你的线是画窗体上的,请将AutoRedraw = True 改为AutoRedraw = False,在代码中加Me.Show 引用 改用PicetureBox1.Line 楼上正解
相关问答:
在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。 代码如下: VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
我是VB的新成员,现在想用VB来做个TXT文档,请大家给我代码及介绍一下相应的控件! 非常感谢!!!!!! 可以用一些OFFICE控件 google上找一下吧,VB写入TXT,很多样例代码的 直接调查用就可以了 面对美女 ......
如题。 不用API也能实现: http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html 使用API输出文本存在显示刷新问题,需在ReSize或Paint事件中加入代码. http://download.csdn.net/ ......
Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount '求当前记录数 If recs > 0 Then '已有考生 Adodc1.Recordset.MoveLast '移到最后一条记录 num = V ......
我用VB自带的TextBox控件, Option Explicit Private Type De '块定义 FSize(1 To 1024) As Byte End Type Private Sub Command1_Click() Dim F As De Dim N As Integer Open "C:\WINDOWS\N ......