重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
程序界面本身就是被windows画出来的,每次显示都要画上一遍,而每次重新画出程序,你的函数并没有因此而重新调用,当然图形就不见.
创新互联专注于企业成都营销网站建设、网站重做改版、锡林浩特网站定制设计、自适应品牌网站建设、HTML5建站、商城网站建设、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为锡林浩特等各大城市提供网站开发制作服务。
你可以在窗体的paint()事件里掉用函数
我的做法是先写入一个图片变量,然后再写入到容器上。容器设置双缓冲
还有你说的控件必须透明不太明白,可以直接在容器上绘图,不需要控件,图片的透明度可以用RGBA色的A值(透明度)来控制
我这个也是实时翻滚刷新的,不会闪!
应该是需要在Form2上做一个事件,只要在Form2里成功修改了数据库中Machine的值,则Form2可在FormCloseing事件中将修改的Machine关键值传回给Form1。而Form1中应该还要写一个更新Machine的函数,根据Form2传回的参数对Form1现在有控件进行查找参数对应的控件,然后再读取数据库中数据,再修改Form1里对应控件属性。
绘图代码写在Paint事件中,如
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = Me.CreateGraphics
g.DrawLine(Pens.Red, 100, 100, 200, 100)
End Sub
'方法二:在 PictureBox1上显示图像----图画在Bitmap
PictureBox1.Image = Nothing
Dim wid As Integer = PictureBox1.ClientSize.Width
Dim hgt As Integer = PictureBox1.ClientSize.Height
Dim bm As New Bitmap(wid, hgt)
Dim g As Graphics = Graphics.FromImage(bm)
'画图代码
'画图代码
PictureBox1.Image = bm
PictureBox1.Refresh()
g.Dispose()