![](/icons/37557yi.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557yi.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557yinwei.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557chengxu.gif)
![](/icons/37557dou2.gif)
![](/icons/37557yi.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557yi.gif)
![](/icons/37557yi.gif)
![](/icons/37557chengxu.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
这个
![](/icons/37557chengxu.gif)
![](/icons/37557de.gif)
![](/icons/37557if.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557yi.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
我先介绍说明
![](/icons/37557yi.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557diaoyong.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
![](/icons/37557dou2.gif)
现在就来看
![](/icons/37557yi.gif)
![](/icons/37557dou.gif)
![](/icons/37557main.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557chengxu.gif)
Public Class Form1
Inherits
.Windows.Forms.Form
Public imagepen,
bit, changiamge, mpen 'movepen,moveb,,grh,filenames,endpen
Dim xd, yd, xu, yu, pk, ps
Private Sub MenuItem9_Click(ByVal sender As
.Object,
ByVal e As
.EventArgs) 'Handles MenuItem9.Click
'新建
个ico文件
即"新建"菜单
PictureBox1.Image = Nothing
Dim bit
As New
.Drawing.Bitmap(32, 32,
Drawing.Imaging.PixelFormat.Format32bppArgb)'建立
个Bitmap对象
以便在它上面画图
Dim x, y
For x = 0 To 31
For y = 0 To 31
bit
.SetPixel(x, y, Color.Transparent)'将Bitmap
背景设置为透明
Next
Next
bit = bit![](/icons/37557new.gif)
MenuItem3.Enabled = False'"选择颜色"菜单不可用
MenuItem2.Enabled = True'"直线"菜单可用
End Sub
Private Sub MenuItem6_Click(ByVal sender As
.Object,
ByVal e As
.EventArgs)' Handles MenuItem6.Click
'打开图片文件即"打开"菜单"
OpenFileDialog1.Filter = "ico文件(*.ico)|*.ico|图像文件
(*.BMP;*.JPG;*.jpeg;*.GIF;*.png;*.t
f)|*.BMP;*.JPG;*.jpeg;*.GIF;*.png;*.t
f"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.ShowDialog![](/icons/37557kh.gif)
OpenFileDialog1.FileName = ""
End Sub
Private Sub MenuItem8_Click(ByVal sender As
.Object,
ByVal e As
.EventArgs) 'Handles MenuItem8.Click
Me.Close
'退出
End Sub
Private Sub MenuItem7_Click(ByVal sender As
.Object,
ByVal e As
.EventArgs)
'Handles MenuItem7.Click
'保存文件
即"保存"对话筐
PictureBox1.Cursor =
.Windows.Forms.Cursors.Default
SaveFileDialog1.Filter = "ico文件(*.ico)|*.ico"'设置要保存
文件后缀
SaveFileDialog1.ShowDialog![](/icons/37557kh.gif)
If SaveFileDialog1.FileName <> "" Then
If Not SaveFileDialog1.ShowDialog.Cancel Then
Dim bmp As New
.Drawing.Bitmap(PictureBox1.Image,
32,32)'从PictureBox1.Image
化Bitmap
设置保存为图片
大小
标准ico图由
32*32和16*16两种格式组成
此处为32*32
你也可以设置为16*16
Dim ico As
.Drawing.Icon = ico.FromHandle(bmp.GetHicon
)
'用Bitmap
句柄![](/icons/37557dou.gif)
化icon
他是专门处理ico文件
类
Dim file As New
.IO.FileStream(SaveFileDialog1.FileName
,
IO.FileMode.Create)'创建文件流
ico.Save(file)'保存为ico文件
file.Close
'关闭流
End If
End If
End Sub
Public Sub MenuItem2_Click(ByVal sender As
.Object,
ByVal e As
.EventArgs)
'Handles MenuItem2.Click
'是用直线在新建
ico中画图
PictureBox1.Cursor =
.Windows.Forms.Cursors.Cross
'在PictureBox1中鼠标
样式
ColorDialog1.ShowDialog![](/icons/37557kh.gif)
Dim pen As New Pen(ColorDialog1.Color, Do
UpDown1.Text
)'创建画笔
imagepen = pen
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As
.Object,
ByVal e As
.Windows.Forms.MouseEventArgs)
'Handles PictureBox1.MouseDown
'当按下鼠标左键时获取直线
起点
If e.Button = MouseButtons.Left Then
xd = e.X / 8 : yd = e.Y / 8
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As
.Object,
ByVal e As
.Windows.Forms.MouseEventArgs)
'Handles PictureBox1.MouseUp
'画出直线
If PictureBox1.Cursor Is
.Windows.Forms.Cursors.Cross And ps <> 1 Then
xu = e.X : yu = e.Y
Me.k(1, imagepen, yu / 8, xu / 8, xd, yd)
Else
If OpenFileDialog1.FilterIndex = 1 Then
xu = e.X : yu = e.Y
Me.k(2, mpen, yu / 8, xu / 8, xd, yd)
End If
End If
End Sub
Public Sub k(ByVal k As Integer, ByVal drawtool As Object,
ByVal x As Integer, ByVal y As Integer, ByVal xs As Integer,
ByVal ys As Integer)
If k = 1 Then
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage'自动容纳图片
PictureBox1.Image =
bit
Dim Graphic As Graphics
Graphic = Graphic.FromImage(Me.PictureBox1.Image)'在PictureBox1上画图
Graphic.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias'锯齿削边
Graphic.DrawLine(drawtool, y, x, xs, ys)'画线
End If
If k = 2 Then
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Image = changiamge
Dim Graphic As Graphics
Graphic = Graphic.FromImage(Me.PictureBox1.Image)
Graphic.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
Graphic.DrawLine(drawtool, y, x, xs, ys)
End If
End Sub
Private Sub MenuItem3_Click(ByVal sender As
.Object,
ByVal e As
.EventArgs)
'Handles MenuItem3.Click
'对打开
ico文件用直线画图
ColorDialog1.ShowDialog![](/icons/37557kh.gif)
Dim m3pen As New Pen(ColorDialog1.Color, Do
UpDown1.Text
)'建立画笔
mpen = m3pen
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As
.ComponentModel.CancelEventArgs)
'Handles OpenFileDialog1.FileOk
'打开文件
If OpenFileDialog1.FilterIndex = 1 Then
Dim m3pen As New Pen(Color.Black, Do
UpDown1.Text
)
mpen = m3pen
MenuItem2.Enabled = False
MenuItem3.Enabled = True
Else
MenuItem3.Enabled = False
MenuItem2.Enabled = False
End If
If OpenFileDialog1.FileName <> "" Then
PictureBox1.Cursor =
.Windows.Forms.Cursors.Default
Dim images As New
.Drawing.Bitmap(OpenFileDialog1.FileName)
changiamge = images
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Image = images
Me.Text = OpenFileDialog1.FileName
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As
.EventArgs)
'Handles MyBase.Load
'由于刚运行次
时
没有打开
ico文件和新建立
ico对象所以不可以创建画图工具对象
MenuItem3.Enabled = False
MenuItem2.Enabled = False
End Sub
End Class
![](/icons/37557chengxu.gif)
1. 如何新建ico文件:先
![](/icons/37557chushi.gif)
![](/icons/37557dou.gif)
![](/icons/37557smhr.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557yi.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
2.如何打开已有
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557chushi.gif)
![](/icons/37557yi.gif)
![](/icons/37557dou.gif)
![](/icons/37557smhr.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
3.保存文件和对非ico文件转化为ico文件:通过打开文件
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557chushi.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557chushi.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
4.如何画:当完成1或2后
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557diaoyong.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557diaoyong.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557yi.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
5.
![](/icons/37557yi.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
6.文件格式
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557yi.gif)
![](/icons/37557hanshu.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
7.有关k
![](/icons/37557de.gif)
![](/icons/37557yi.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557else.gif)
![](/icons/37557de.gif)
![](/icons/37557if.gif)
![](/icons/37557chengxu.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
1. .NET本身问题
![](/icons/37557dou2.gif)
2.如果分开使PictureBox1.Image对象丢失(PictureBox1.Image返回
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
3. PictureBox1.Image对象在sub k中不可见
![](/icons/37557dou2.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
对于
![](/icons/37557chengxu.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557main.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557chengxu.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou2.gif)
![](/icons/37557chengxu.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou.gif)
![](/icons/37557de.gif)
![](/icons/37557dou.gif)
![](/icons/37557dou2.gif)
运行如图:
![](http://www.crazycoder.cn/WebFiles/20091/c8e90012-e5dd-4306-8ce6-798bc38a6f64.g<img src='/icons/37557if.gif' />)
最新评论