十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
换成form1的Load事件就不能画图了:
邓州网站建设公司成都创新互联,邓州网站设计制作,有大型网站制作公司丰富经验。已为邓州成百上千家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱,请找那个售后服务好的邓州做网站的公司定做!
是因为form1在Load的时候,它还不能创建图形界面,也就不能执行 Me.CreateGraphics
不用PictureBoxTest.Image属性,直接把图形绘制到PictureBoxTest上面就可以了。
Dim button As Integer = 0
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button1.Click
Using g As Graphics = Graphics.FromHwnd(PictureBoxTest.Handle)
Dim penRed As Pen = New Pen(Color.Red, 1) '定义红色画笔
Dim penblue As Pen = New Pen(Color.Blue, 1) '定义蓝色画笔
If button = 0 Then
g.DrawLine(penRed, 0, 0, 100, 100)
button = 1
ElseIf button = 1 Then
g.DrawLine(penblue, 100, 100, 200, 200)
button = 0
End If
End Using
End Sub
只有windows 7等以上版本的操作系统才可以自动消失。其他windows NT内核版本,例如:windows 2003,windows xp,windows 2000等老版本,要让图标托盘消失,必须至少要两种方法:
1:退出程序时,在代码里调用删除托盘图标的代码。
2:程序崩溃时或者是手动结束进程后,图标遗留在右下角,只能用鼠标移动到上面,它才会消失。
所以,必须要在代码里面写上退出托盘的程序,因为很多人当然也包括我自己,有时候编写代码,只编写了启动托盘的代码,没有写退出托盘的代码,以为程序退出了,托盘图标会自己消失。而事实上不是这样的,托盘的启动和退出,必须要自己来显式的在程序里面实现。启动托盘实现后,必须要实现退出托盘。
所以建议大家在编写托盘图标程序时,在退出程序的时候,显式的调用删除托盘图标的代码就可以了。
你想的以及接近了,要达到你要的效果,需要使用多线程,写入数据库和显示绘图的结果各一个线程