当前位置：首页 > news >正文

建设官网的网站免费seo网站

news 2025/7/23 20:14:49

下载相关代码：【免费】《自己做个国庆75周年头像生成器》代码资源-CSDN文库

又是一年国庆节，今年使用国旗做头像的朋友不少，律师也说了，不违法。

所以，做这个程序也没关系吧。
程序设计界面

准备四张透明png图片到程序目录下的Img目录，分别用1-4.png命名。

主要代码就写在下面了：

Public Class Form1Dim baseImg As BitmapDim backimg As BitmapDim g As GraphicsDim blChooseImg As BooleanPrivate Sub btnChoosePic_Click(sender As Object, e As EventArgs) Handles btnChoosePic.ClickDim picname As StringIf ofdPic.ShowDialog = DialogResult.Cancel ThenExit SubEnd Ifpicname = ofdPic.FileNameTrybackimg = New Bitmap(picname)blChooseImg = TrueCall drawImg(cbMask.SelectedIndex)Catch ex As Exceptionbackimg = NothingEnd TryEnd SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadblChooseImg = FalsebaseImg = New Bitmap(pbCombine.Width, pbCombine.Height)g = Graphics.FromImage(baseImg)cbMask.SelectedIndex = 0AddHandler cbMask.SelectedIndexChanged, AddressOf cbMaskSelectedIndexChangedEnd SubPrivate Sub cbMaskSelectedIndexChanged(sender As Object, e As EventArgs)Call drawImg(cbMask.SelectedIndex)End SubPrivate Sub drawImg(ByVal maskid As Integer)If blChooseImg = False Then Exit Subg.DrawImage(backimg, New Rectangle(0, 0, pbCombine.Width, pbCombine.Height), New Rectangle(0, 0, backimg.Width, backimg.Height), GraphicsUnit.Pixel)Dim maskName As StringmaskName = Application.StartupPath & "\img\" & (maskid + 1).ToString & ".png"Dim maskImg As New Bitmap(maskName)g.DrawImage(maskImg, New Rectangle(0, 0, pbCombine.Width, pbCombine.Height), New Rectangle(0, 0, maskImg.Width, maskImg.Height), GraphicsUnit.Pixel)pbCombine.Image = baseImgEnd SubPrivate Sub pbCombine_MouseDown(sender As Object, e As MouseEventArgs) Handles pbCombine.MouseDownIf e.Button = MouseButtons.Right ThenIf blChooseImg = True ThencmsSave.Show(sender, e.Location)End IfEnd IfEnd SubPrivate Sub tsmSaveImg_Click(sender As Object, e As EventArgs) Handles tsmSaveImg.ClickDim savePath As StringIf sfdPic.ShowDialog = DialogResult.Cancel ThenExit SubEnd IfsavePath = sfdPic.FileNameTrybaseImg.Save(savePath)MessageBox.Show("保存完毕")Catch ex As ExceptionMessageBox.Show(ex.Message)End TryEnd SubPrivate Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosingg.Dispose()baseImg.Dispose()End Sub
End Class

代码太简单，不一一讲解了。
注意一个地方，窗体载入的时候为什么要：
AddHandler cbMask.SelectedIndexChanged, AddressOf cbMaskSelectedIndexChanged
而不是直接使用 cbMask.SelectedIndexChanged 这个事件呢？

Private Sub cbMask_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbMask.SelectedIndexChanged

End Sub

请读者自己想一想。
运行时是这样滴：