vb ico cur

网上有现成的资源

成都创新互联公司作为成都网站建设公司，专注网站建设、网站设计，有关企业网站设计方案、改版、费用等问题，行业涉及广告制作等多个领域，已为上千家企业服务，得到了客户的尊重与认可。

也可以自己制作，用绘图软件自己画例如：PS 或 AI

然后又专门转成图标或鼠标指针的工具，转一下格式 就可以的到ico 或 cur 格式了

但是..............想做的漂亮比较难，做这小东西，其实技术含量挺高，尤其指的是艺术方面。

还是匿了，呵呵~

VB.NET怎样做拨号连接？

Imports System.Drawing.Imaging.ImageFormat

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu

Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem

Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents Button4 As System.Windows.Forms.Button

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

Me.MainMenu1 = New System.Windows.Forms.MainMenu

Me.MenuItem1 = New System.Windows.Forms.MenuItem

Me.MenuItem2 = New System.Windows.Forms.MenuItem

Me.MenuItem3 = New System.Windows.Forms.MenuItem

Me.MenuItem5 = New System.Windows.Forms.MenuItem

Me.MenuItem6 = New System.Windows.Forms.MenuItem

Me.MenuItem4 = New System.Windows.Forms.MenuItem

Me.MenuItem7 = New System.Windows.Forms.MenuItem

Me.MenuItem8 = New System.Windows.Forms.MenuItem

Me.MenuItem9 = New System.Windows.Forms.MenuItem

Me.MenuItem10 = New System.Windows.Forms.MenuItem

Me.MenuItem11 = New System.Windows.Forms.MenuItem

Me.MenuItem12 = New System.Windows.Forms.MenuItem

Me.MenuItem13 = New System.Windows.Forms.MenuItem

Me.PictureBox1 = New System.Windows.Forms.PictureBox

Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.GroupBox1 = New System.Windows.Forms.GroupBox

Me.Button4 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.GroupBox1.SuspendLayout()

Me.SuspendLayout()

'

'MainMenu1

'

Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem9, Me.MenuItem12})

'

'MenuItem1

'

Me.MenuItem1.Index = 0

Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem5, Me.MenuItem6})

Me.MenuItem1.Text = "文件"

'

'MenuItem2

'

Me.MenuItem2.Index = 0

Me.MenuItem2.Text = "打开"

'

'MenuItem3

'

Me.MenuItem3.Index = 1

Me.MenuItem3.Text = "关闭"

'

'MenuItem5

'

Me.MenuItem5.Index = 2

Me.MenuItem5.Text = "保存"

'

'MenuItem6

'

Me.MenuItem6.Index = 3

Me.MenuItem6.Text = "退出"

'

'MenuItem4

'

Me.MenuItem4.Index = 1

Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem8})

Me.MenuItem4.Text = "窗口"

'

'MenuItem7

'

Me.MenuItem7.Index = 0

Me.MenuItem7.MdiList = True

Me.MenuItem7.Text = "属性"

'

'MenuItem8

'

Me.MenuItem8.Index = 1

Me.MenuItem8.Text = "工具"

'

'MenuItem9

'

Me.MenuItem9.Index = 2

Me.MenuItem9.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem11})

Me.MenuItem9.Text = "工具"

'

'MenuItem10

'

Me.MenuItem10.Index = 0

Me.MenuItem10.Text = "中心定位"

'

'MenuItem11

'

Me.MenuItem11.Index = 1

Me.MenuItem11.Text = "选项"

'

'MenuItem12

'

Me.MenuItem12.Index = 3

Me.MenuItem12.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem13})

Me.MenuItem12.Text = "帮助"

'

'MenuItem13

'

Me.MenuItem13.Index = 0

Me.MenuItem13.Text = "关于"

'

'PictureBox1

'

Me.PictureBox1.BackColor = System.Drawing.SystemColors.Control

Me.PictureBox1.Enabled = False

Me.PictureBox1.Location = New System.Drawing.Point(88, 8)

Me.PictureBox1.Name = "PictureBox1"

Me.PictureBox1.Size = New System.Drawing.Size(256, 168)

Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize

Me.PictureBox1.TabIndex = 1

Me.PictureBox1.TabStop = False

'

'Button1

'

Me.Button1.Location = New System.Drawing.Point(8, 16)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(64, 56)

Me.Button1.TabIndex = 2

Me.Button1.Text = "中心定位"

'

'Button2

'

Me.Button2.Location = New System.Drawing.Point(8, 80)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(64, 56)

Me.Button2.TabIndex = 3

Me.Button2.Text = "容错值:0"

'

'GroupBox1

'

Me.GroupBox1.Controls.Add(Me.Button4)

Me.GroupBox1.Controls.Add(Me.Button3)

Me.GroupBox1.Controls.Add(Me.Button2)

Me.GroupBox1.Controls.Add(Me.Button1)

Me.GroupBox1.Cursor = System.Windows.Forms.Cursors.Hand

Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left

Me.GroupBox1.Location = New System.Drawing.Point(0, 0)

Me.GroupBox1.Name = "GroupBox1"

Me.GroupBox1.Size = New System.Drawing.Size(80, 473)

Me.GroupBox1.TabIndex = 4

Me.GroupBox1.TabStop = False

Me.GroupBox1.Text = "功能"

'

'Button4

'

Me.Button4.Location = New System.Drawing.Point(8, 208)

Me.Button4.Name = "Button4"

Me.Button4.TabIndex = 5

Me.Button4.Text = "Button4"

'

'Button3

'

Me.Button3.Location = New System.Drawing.Point(8, 144)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(64, 56)

Me.Button3.TabIndex = 4

Me.Button3.Text = "显示过渡"

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(800, 473)

Me.Controls.Add(Me.GroupBox1)

Me.Controls.Add(Me.PictureBox1)

Me.Menu = Me.MainMenu1

Me.Name = "Form1"

Me.Text = "Form1"

Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

Me.GroupBox1.ResumeLayout(False)

Me.ResumeLayout(False)

End Sub

#End Region

Dim PropertyWindows As New 属性窗口

Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

'PropertyWindows.Parent = Me

'PropertyWindows.MdiParent = Me

PropertyWindows.Show()

End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Dim Open As New OpenFileDialog

Open.Title = "选择图片"

Open.Filter = "全部|*.*|JPG(*.jpg)|*.jpg|BMP(*.bmp)|*.bmp|TIFF(*.Tiff)|*.Tiff|PNG(*.png)|*.png|ICO(*.ico)|*.ico"

If Open.ShowDialog = DialogResult.OK Then

Try

PictureBox1.Image = Image.FromStream(Open.OpenFile, True)

'确定类型

If PictureBox1.Image.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Bmp) Then

PropertyWindows.P1.Text = "Bmp"

ElseIf PictureBox1.Image.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Gif) Then

PropertyWindows.P1.Text = "Gif"

ElseIf PictureBox1.Image.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Icon) Then

PropertyWindows.P1.Text = "Ico"

ElseIf PictureBox1.Image.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Jpeg) Then

PropertyWindows.P1.Text = "Jpg"

ElseIf PictureBox1.Image.RawFormat.Equals(System.Drawing.Imaging.ImageFormat.Png) Then

PropertyWindows.P1.Text = "Png"

End If

'确定黑白

'其它

PropertyWindows.P3.Text = PictureBox1.Image.PhysicalDimension.Width

PropertyWindows.P4.Text = PictureBox1.Image.PhysicalDimension.Height

PropertyWindows.P5.Text = PictureBox1.Image.HorizontalResolution

PropertyWindows.P6.Text = PictureBox1.Image.VerticalResolution

PictureBox1.Enabled = True '激活

Catch ex As Exception

MessageBox.Show("你打开的文件为无法识别的图像格式")

End Try

End If

End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

Dim Save As New SaveFileDialog

Save.Title = "保存图片"

Save.Filter = "全部|*.*| JPG(*.jpg)|*.jpg|BMP(*.bmp)|*.bmp _|TIFF(*.Tiff)|*.Tiff|PNG(*.png)|*.png|ICO(*.ico)|*.ico"

If Save.ShowDialog = DialogResult.OK Then

Dim PicFormat As System.Drawing.Imaging.ImageFormat

Select Case Save.FilterIndex

Case 1

PicFormat = Jpeg

Case 2

PicFormat = Jpeg

Case 3

PicFormat = Bmp

Case 4

PicFormat = Tiff

Case 5

PicFormat = Png

Case 6

PicFormat = System.Drawing.Imaging.ImageFormat.Icon

End Select

PictureBox1.Image.Save(Save.FileName, PicFormat)

End If

End Sub

Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click

End

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

PictureBox1.Image = Nothing

'PictureBox1.Image.Dispose()

PropertyWindows.P1.Text = " "

PropertyWindows.P2.Text = " "

PropertyWindows.P3.Text = " "

PropertyWindows.P4.Text = " "

PropertyWindows.P5.Text = " "

PropertyWindows.P6.Text = " "

PictureBox1.Enabled = False '关闭激活

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

PropertyWindows.Show()

Dim path As New System.IO.FileInfo("图像处理")

Me.Text = path.FullName

End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

Dim a As Bitmap = PictureBox1.Image

PropertyWindows.P7.Text = a.GetPixel(e.X, e.Y).R

PropertyWindows.P8.Text = a.GetPixel(e.X, e.Y).G

PropertyWindows.P9.Text = a.GetPixel(e.X, e.Y).B

PropertyWindows.P10.Text = e.X

PropertyWindows.P11.Text = e.Y

End Sub

Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

Data.X1 = Data.X2 : Data.Y1 = Data.Y2

Data.X2 = PropertyWindows.P10.Text : Data.Y2 = PropertyWindows.P11.Text

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim RCoperation As New 容错值设置

If RCoperation.ShowDialog = DialogResult.OK Then

Button2.Text = "容错值:" Data.容错值

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim 定位 As New 中心定位(PictureBox1.Image)

定位.MyPic = PictureBox1.Image

PictureBox1.Image = 定位.Enter()

定位 = Nothing

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Data.Pic = PictureBox1.Image

Dim ShowTool As New 显示过渡工具

ShowTool.ShowDialog()

End Sub

Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick

Data.Pic = PictureBox1.Image

Dim ShowTool As New 显示过渡工具

ShowTool.Show()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

MessageBox.Show(Int(3 / 2))

End Sub

End Class

vb编程高手进

使用Microangelo5.5就可以制作ICO图标

先用Microangelo5.5中的studio.exe新建一个图标，如32*32的。

然后用一个图片处理软件（一般的图片可以用系统带的“画图”）打开你要弄的图片，选中全部（或者你要的那一部分，大小一定要比刚才新建的图标小，太大要改小点），按下Ctrl+c

切换到studio.exe,按下Ctrl+V

保存，OK

网页标题：包含vb.net使用ico的词条
转载注明：http://azwzsj.com/article/doscoss.html