|
|

楼主 |
发表于 2006-1-15 10:54:00
|
显示全部楼层
Re:关于图片格式的一个问题
程序基本上是这样的:
Dim Card_Picture As System.Drawing.Image
OD.FileName = ""
OD.ShowDialog()
If OD.FileName = "" Then
TPictureName.Text = ""
Else
Card_Picture = New Drawing.Bitmap(OD.FileName)
If Card_Picture.Width = 144 And Card_Picture.Height = 144 Then
TPictureName.Text = OD.FileName
PCardPicture.Image = Card_Picture
Else
MsgBox("您所选择图片大小错误,请选用144*144大小的图片!", MsgBoxStyle.OKOnly, "卡片生成系统")
End If
End If
以下程序是在一个函数中:
我把 PCardPicture.Image做为参数传给了ByVal CardPicture As System.Drawing.Bitmap
Dim MCard As System.Drawing.Bitmap
Dim MCardG As Drawing.Graphics
MCard = New Drawing.Bitmap("c:\v\魔法.bmp")
MCardG = Drawing.Graphics.FromImage(MCard)
MakePicture(MCardG, CardPicture)
MCardG.Dispose()
MCard.Save(CardSave)
以下为MakePicture的内容
Private Sub MakePicture(ByVal MCardG As Drawing.Graphics, ByVal MMainCard As Drawing.Bitmap)
Dim Top As Integer, Left As Integer
Top = 63 : Left = 28
MCardG.DrawImage(MMainCard, Left, Top)
End Sub |
|