189 8069 5689
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
.net 取宽带账号和密码的我没，如果你想实现拨号和断网的话 ，我有现成的模块
编写一个宽带连接的批处理脚本：
rasdial entryname [unseranamd 12345678]
编写一个宽带断开的批处理脚本：
rasphone -h entryname
在vb中调用这两个脚本执行就可以了；