学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

求教:高手看这里

求教:高手看这里

在一个窗体中画一个已知的BMP,怎么做啊?

我写的好象有错,大家看看:

Private objMine As New clsWinMine

Dim e As PaintEventArgs

Private Sub aaa_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles aaa_Renamed.Click aaa(objMine, e) End Sub

Private Sub aaa(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Dim x As Single = 100.0F Dim y As Single = 100.0F Dim newImage As Image = Image.FromFile("imgMine.bmp") e.Graphics.DrawImageUnscaled(newImage, x, y) End Sub

编译错误为:

未将对象引用设置到对象的实例

TOP

不是用GDI+调用吗?

┏━━━ミ━━┓ ┃     |||┃ ┃━━ ﹏ ━━┃ ┗━━━━━━┛ ~洋葱头~~小辫辫~ ~血可流!头可断~! ~偶滴发型不能乱~

TOP

GDI+的设置应该先是路径名吧

例如

dim imagepath as string

imagepath="盘符:\文件名\"

dim backimage as image

backimage=new bitmap(imagepath & "盘符内的文件名")

这样就OK了,别忘了,如果是加载在窗体上,要用Onpaint事件哦,呵呵

┏━━━ミ━━┓ ┃     |||┃ ┃━━ ﹏ ━━┃ ┗━━━━━━┛ ~洋葱头~~小辫辫~ ~血可流!头可断~! ~偶滴发型不能乱~

TOP

Dim newImage As Image = Image.FromFile("imgMine.bmp") 这一句有问题,应该这样: Dim newImage As new Image = Image.FromFile("imgMine.bmp")

TOP

学到东西了
我试试
嘿嘿~

TOP

发新话题