Deprecated: __autoload() is deprecated, use spl_autoload_register() instead in /www/wwwroot/www.angcn.net/source/class/class_core.php on line 27
[教程]Visual Basic .net起步教程（号外）——AngCN 附件上传准备工具：完整源代码 - 张韶涵中文网--论坛 - Powered by Discuz!

张韶涵中文网--论坛

标题: [教程]Visual Basic .net起步教程（号外）——AngCN 附件上传准备工具：完整源代码 [打印本页]
作者: x.n.a    时间: 2008-7-18 18:03
标题: [教程]Visual Basic .net起步教程（号外）——AngCN 附件上传准备工具：完整源代码
Form1.vb
  1. '--------------------------------------
  2. ' Form1.vb
  3. '--------------------------------------
  4. ' AngCN附件上传准备工具主体&算法
  5. ' 版本 1.0.0
  6. ' (c) 2008 xcVista
  7. '--------------------------------------

  9. Imports System
  10. Imports System.ComponentModel
  11. Imports System.Convert
  12. Imports System.Drawing
  13. Imports System.Drawing.Imaging
  14. Imports System.IO
  15. Imports System.IO.Path
  16. Imports System.Math
  17. Imports System.Threading
  18. Imports System.Windows.Forms

  20. ''' <summary>
  21. ''' AngCN 附件上传工具——主窗体
  22. ''' </summary>
  23. ''' <remarks></remarks>
  24. Public Class Form1
  25.   '需要用到的类变量（不需要其他类看到就用Private修饰符）
  26.   Private IsPictureDone As Boolean '图像生成好标志
  27.   Private TempFile As String '临时文件名——很重要
  28.   Private FileExt As String '目标文件扩展名——很重要
  29.   Private FileSize As Long '文件大小——提示用户用

  31.   Private Sub Button2_Click(ByVal sender As System.Object, _
  32.       ByVal e As System.EventArgs) Handles Button2.Click
  33.     '呼叫远程线程——省得操作卡机器
  34.     bwWork.RunWorkerAsync()
  35.   End Sub

  37.   Private Sub bwWork_DoWork(ByVal sender As System.Object, _
  38.     ByVal e As System.ComponentModel.DoWorkEventArgs) _
  39.     Handles bwWork.DoWork

  41.     '先把输入禁掉，免得用户惹事。
  42.     GroupBox1.Enabled = False
  43.     GroupBox2.Enabled = False
  44.     Button2.Enabled = False

  46.     '打开忙碌鼠标指针
  47.     Me.UseWaitCursor = True

  49.     '搞清楚图像是不是准备好了。
  50.     If IsPictureDone Then
  51.       '图像已经生成

  53.       '准备两个buffer
  54.       Dim Buffer(0 To 1)() As Byte
  55.       Dim fs As FileStream

  57.       '读入两个文件
  58.       fs = New FileStream(TempFile, FileMode.Open)
  59.       Buffer(0) = New Byte(fs.Length) {}
  60.       fs.Read(Buffer(0), 0, fs.Length)
  61.       fs.Close()
  62.       fs.Dispose()

  64.       '技巧：引用类型变量可以重复使用——只要重新赋值
  65.       '（一般赋New）
  66.       fs = New FileStream(TextBox1.Text, FileMode.Open)
  67.       Buffer(1) = New Byte(fs.Length) {}
  68.       fs.Read(Buffer(1), 0, fs.Length)
  69.       fs.Close()
  70.       fs.Dispose()

  72.       fs = New FileStream(GetFullPath(TextBox1.Text) _
  73.         + GetFileNameWithoutExtension(TextBox1.Text) _
  74.         + "." + FileExt, FileMode.OpenOrCreate)
  75.       '技巧：重复操作由循环代替
  76.       For Each bf As Byte() In Buffer
  77.         fs.Write(bf, 0, bf.Length)
  78.       Next
  79.       fs.Close()
  80.       fs.Dispose()
  81.     Else
  82.       '图像还需要生成

  84.       '先准备好环境
  85.       Dim fs As New FileStream(TempFile, _
  86.        FileMode.OpenOrCreate)

  88.       '生成空白图片
  89.       Dim img As New Bitmap(CInt(NumericUpDown1.Value), _
  90.        CInt(NumericUpDown2.Value), _
  91.        PixelFormat.Format24bppRgb)

  93.       '保存图片文件
  94.       Select Case ComboBox1.SelectedIndex
  95.         Case 0
  96.           FileExt = "jpg"
  97.           img.Save(fs, ImageFormat.Jpeg)
  98.         Case 1
  99.           FileExt = "gif"
  100.           img.Save(fs, ImageFormat.Gif)
  101.         Case 2
  102.           FileExt = "png"
  103.           img.Save(fs, ImageFormat.Png)
  104.       End Select
  105.       FileSize = fs.Length

  107.       '释放系统资源
  108.       fs.Close()
  109.       img.Dispose()
  110.     End If

  112.     '还原界面
  113.     Label5.Text = GetFileSizeString(120000L - FileSize)
  114.     GroupBox2.Enabled = True
  115.     Button2.Enabled = True
  116.     Me.UseWaitCursor = False
  117.     IsPictureDone = True
  118.   End Sub

  120.   Private Sub Form1_Load(ByVal sender As System.Object, _
  121.       ByVal e As System.EventArgs) Handles MyBase.Load
  122.     '准备开机环境
  123.     ComboBox1.SelectedIndex = 0
  124.     Label5.Text = GetFileSizeString(120000L)
  125.     TempFile = My.Computer.FileSystem.GetTempFileName

  127.     If LCase(Command) = "-gosite" Then
  128.       Me.Hide()
  129.       Shell("""" + _
  130.          My.Computer.FileSystem.SpecialDirectories.ProgramFiles + _
  131.          "/Internet Explorer/iexplore.exe"" ""http://bbs.angcn.com/""", _
  132.         AppWinStyle.NormalFocus)
  133.       Me.Close()
  134.     End If

  136. #If DEBUG Then
  137.     Control.CheckForIllegalCrossThreadCalls = False
  138. #End If
  139.   End Sub

  141.   Private Sub Form1_Closing(ByVal sender As Object, _
  142.       ByVal e As CancelEventArgs) Handles Me.Closing
  143.     '清理临时文件
  144.     File.Delete(TempFile)
  145.   End Sub

  147.   Public Function GetFileSizeString(ByVal Length As Long) _
  148.   As String
  149.     Dim fn() As String = New String() {"字节", "KB", _
  150.       "MB", "GB", "TB", "YB"}
  151.     Dim i As Integer = 0
  152.     Dim size As Double = Length

  154.     Do Until Abs(size) < 1024.0
  155.       size /= 1024.0
  156.       i += 1
  157.     Loop

  159.     Return String.Format("{0:0.00} {1}", size, fn(i))
  160.   End Function

  162.   Private Sub Button1_Click(ByVal sender As System.Object, _
  163.     ByVal e As System.EventArgs) Handles Button1.Click
  164.     With ofd
  165.       .FileName = ""
  166.       If .ShowDialog(Me) = _
  167.       Windows.Forms.DialogResult.Cancel Then Exit Sub
  168.       TextBox1.Text = .FileName

  170.       If New FileInfo(.FileName).Length + FileSize > _
  171.       120000L Then MessageBox.Show(Me, _
  172.       "文件大小超出允许范围，可能无法上传。", _
  173.       Me.Text, MessageBoxButtons.OK, _
  174.       MessageBoxIcon.Warning, _
  175.       MessageBoxDefaultButton.Button1)
  176.     End With
  177.   End Sub
  178. End Class
复制代码
Form1.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Form1
  3.   Inherits System.Windows.Forms.Form

  5.   'Form 重写 Dispose，以清理组件列表。
  6.   <System.Diagnostics.DebuggerNonUserCode()> _
  7.   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.     Try
  9.       If disposing AndAlso components IsNot Nothing Then
  10.         components.Dispose()
  11.       End If
  12.     Finally
  13.       MyBase.Dispose(disposing)
  14.     End Try
  15.   End Sub

  17.   'Windows 窗体设计器所必需的
  18.   Private components As System.ComponentModel.IContainer

  20.   '注意: 以下过程是 Windows 窗体设计器所必需的
  21.   '可以使用 Windows 窗体设计器修改它。
  22.   '不要使用代码编辑器修改它。
  23.   <System.Diagnostics.DebuggerStepThrough()> _
  24.   Private Sub InitializeComponent()
  25.     Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
  26.     Me.GroupBox1 = New System.Windows.Forms.GroupBox
  27.     Me.Label3 = New System.Windows.Forms.Label
  28.     Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown
  29.     Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown
  30.     Me.Label2 = New System.Windows.Forms.Label
  31.     Me.ComboBox1 = New System.Windows.Forms.ComboBox
  32.     Me.Label1 = New System.Windows.Forms.Label
  33.     Me.GroupBox2 = New System.Windows.Forms.GroupBox
  34.     Me.Button1 = New System.Windows.Forms.Button
  35.     Me.TextBox1 = New System.Windows.Forms.TextBox
  36.     Me.Label6 = New System.Windows.Forms.Label
  37.     Me.Label5 = New System.Windows.Forms.Label
  38.     Me.Label4 = New System.Windows.Forms.Label
  39.     Me.Button2 = New System.Windows.Forms.Button
  40.     Me.bwWork = New System.ComponentModel.BackgroundWorker
  41.     Me.ofd = New System.Windows.Forms.OpenFileDialog
  42.     Me.GroupBox1.SuspendLayout()
  43.     CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
  44.     CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
  45.     Me.GroupBox2.SuspendLayout()
  46.     Me.SuspendLayout()
  47.     '
  48.     'GroupBox1
  49.     '
  50.     Me.GroupBox1.Controls.Add(Me.Label3)
  51.     Me.GroupBox1.Controls.Add(Me.NumericUpDown2)
  52.     Me.GroupBox1.Controls.Add(Me.NumericUpDown1)
  53.     Me.GroupBox1.Controls.Add(Me.Label2)
  54.     Me.GroupBox1.Controls.Add(Me.ComboBox1)
  55.     Me.GroupBox1.Controls.Add(Me.Label1)
  56.     Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
  57.     Me.GroupBox1.Name = "GroupBox1"
  58.     Me.GroupBox1.Size = New System.Drawing.Size(307, 79)
  59.     Me.GroupBox1.TabIndex = 0
  60.     Me.GroupBox1.TabStop = False
  61.     Me.GroupBox1.Text = "外框图像"
  62.     '
  63.     'Label3
  64.     '
  65.     Me.Label3.AutoSize = True
  66.     Me.Label3.Location = New System.Drawing.Point(223, 53)
  67.     Me.Label3.Name = "Label3"
  68.     Me.Label3.Size = New System.Drawing.Size(15, 16)
  69.     Me.Label3.TabIndex = 5
  70.     Me.Label3.Text = "X"
  71.     '
  72.     'NumericUpDown2
  73.     '
  74.     Me.NumericUpDown2.Location = New System.Drawing.Point(244, 51)
  75.     Me.NumericUpDown2.Maximum = New Decimal(New Integer() {65, 0, 0, 0})
  76.     Me.NumericUpDown2.Name = "NumericUpDown2"
  77.     Me.NumericUpDown2.Size = New System.Drawing.Size(57, 22)
  78.     Me.NumericUpDown2.TabIndex = 4
  79.     Me.NumericUpDown2.Value = New Decimal(New Integer() {15, 0, 0, 0})
  80.     '
  81.     'NumericUpDown1
  82.     '
  83.     Me.NumericUpDown1.Location = New System.Drawing.Point(160, 51)
  84.     Me.NumericUpDown1.Maximum = New Decimal(New Integer() {65, 0, 0, 0})
  85.     Me.NumericUpDown1.Name = "NumericUpDown1"
  86.     Me.NumericUpDown1.Size = New System.Drawing.Size(57, 22)
  87.     Me.NumericUpDown1.TabIndex = 3
  88.     Me.NumericUpDown1.Value = New Decimal(New Integer() {15, 0, 0, 0})
  89.     '
  90.     'Label2
  91.     '
  92.     Me.Label2.AutoSize = True
  93.     Me.Label2.Location = New System.Drawing.Point(6, 53)
  94.     Me.Label2.Name = "Label2"
  95.     Me.Label2.Size = New System.Drawing.Size(52, 16)
  96.     Me.Label2.TabIndex = 2
  97.     Me.Label2.Text = "图像大小"
  98.     '
  99.     'ComboBox1
  100.     '
  101.     Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  102.     Me.ComboBox1.FormattingEnabled = True
  103.     Me.ComboBox1.Items.AddRange(New Object() {"联合图象专家组（JPEG）", "图形交换格式（GIF）", _
  104.     "W3C 可移植网络图像（PNG）"})
  105.     Me.ComboBox1.Location = New System.Drawing.Point(64, 21)
  106.     Me.ComboBox1.Name = "ComboBox1"
  107.     Me.ComboBox1.Size = New System.Drawing.Size(237, 24)
  108.     Me.ComboBox1.TabIndex = 1
  109.     '
  110.     'Label1
  111.     '
  112.     Me.Label1.AutoSize = True
  113.     Me.Label1.Location = New System.Drawing.Point(6, 24)
  114.     Me.Label1.Name = "Label1"
  115.     Me.Label1.Size = New System.Drawing.Size(52, 16)
  116.     Me.Label1.TabIndex = 0
  117.     Me.Label1.Text = "图像格式"
  118.     '
  119.     'GroupBox2
  120.     '
  121.     Me.GroupBox2.Controls.Add(Me.Button1)
  122.     Me.GroupBox2.Controls.Add(Me.TextBox1)
  123.     Me.GroupBox2.Controls.Add(Me.Label6)
  124.     Me.GroupBox2.Controls.Add(Me.Label5)
  125.     Me.GroupBox2.Controls.Add(Me.Label4)
  126.     Me.GroupBox2.Enabled = False
  127.     Me.GroupBox2.Location = New System.Drawing.Point(12, 91)
  128.     Me.GroupBox2.Name = "GroupBox2"
  129.     Me.GroupBox2.Size = New System.Drawing.Size(307, 66)
  130.     Me.GroupBox2.TabIndex = 1
  131.     Me.GroupBox2.TabStop = False
  132.     Me.GroupBox2.Text = "上传文件"
  133.     '
  134.     'Button1
  135.     '
  136.     Me.Button1.Location = New System.Drawing.Point(226, 37)
  137.     Me.Button1.Name = "Button1"
  138.     Me.Button1.Size = New System.Drawing.Size(75, 23)
  139.     Me.Button1.TabIndex = 4
  140.     Me.Button1.Text = "浏览(&B)"
  141.     Me.Button1.UseVisualStyleBackColor = True
  142.     '
  143.     'TextBox1
  144.     '
  145.     Me.TextBox1.Location = New System.Drawing.Point(42, 37)
  146.     Me.TextBox1.Name = "TextBox1"
  147.     Me.TextBox1.ReadOnly = True
  148.     Me.TextBox1.Size = New System.Drawing.Size(178, 22)
  149.     Me.TextBox1.TabIndex = 3
  150.     '
  151.     'Label6
  152.     '
  153.     Me.Label6.AutoSize = True
  154.     Me.Label6.Location = New System.Drawing.Point(6, 40)
  155.     Me.Label6.Name = "Label6"
  156.     Me.Label6.Size = New System.Drawing.Size(30, 16)
  157.     Me.Label6.TabIndex = 2
  158.     Me.Label6.Text = "文件"
  159.     '
  160.     'Label5
  161.     '
  162.     Me.Label5.Location = New System.Drawing.Point(108, 18)
  163.     Me.Label5.Name = "Label5"
  164.     Me.Label5.Size = New System.Drawing.Size(193, 16)
  165.     Me.Label5.TabIndex = 1
  166.     Me.Label5.Text = "120 KB"
  167.     Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
  168.     '
  169.     'Label4
  170.     '
  171.     Me.Label4.AutoSize = True
  172.     Me.Label4.Location = New System.Drawing.Point(6, 18)
  173.     Me.Label4.Name = "Label4"
  174.     Me.Label4.Size = New System.Drawing.Size(96, 16)
  175.     Me.Label4.TabIndex = 0
  176.     Me.Label4.Text = "最大单个文件大小"
  177.     '
  178.     'Button2
  179.     '
  180.     Me.Button2.Location = New System.Drawing.Point(244, 163)
  181.     Me.Button2.Name = "Button2"
  182.     Me.Button2.Size = New System.Drawing.Size(75, 23)
  183.     Me.Button2.TabIndex = 2
  184.     Me.Button2.Text = "生成(&G)"
  185.     Me.Button2.UseVisualStyleBackColor = True
  186.     '
  187.     'bwWork
  188.     '
  189.     '
  190.     'ofd
  191.     '
  192.     Me.ofd.FileName = "OpenFileDialog1"
  193.     '
  194.     'Form1
  195.     '
  196.     Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
  197.     Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  198.     Me.ClientSize = New System.Drawing.Size(331, 198)
  199.     Me.Controls.Add(Me.Button2)
  200.     Me.Controls.Add(Me.GroupBox2)
  201.     Me.Controls.Add(Me.GroupBox1)
  202.     Me.Font = New System.Drawing.Font("微软雅黑", 8.25!, System.Drawing.FontStyle.Regular, _
  203.     System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  204.     Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  205.     Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  206.     Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
  207.     Me.MaximizeBox = False
  208.     Me.Name = "Form1"
  209.     Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  210.     Me.Text = "AngCN 论坛附件上传准备工具"
  211.     Me.GroupBox1.ResumeLayout(False)
  212.     Me.GroupBox1.PerformLayout()
  213.     CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
  214.     CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
  215.     Me.GroupBox2.ResumeLayout(False)
  216.     Me.GroupBox2.PerformLayout()
  217.     Me.ResumeLayout(False)
  218.   End Sub

  220.   Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  221.   Friend WithEvents Label3 As System.Windows.Forms.Label
  222.   Friend WithEvents NumericUpDown2 As System.Windows.Forms.NumericUpDown
  223.   Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
  224.   Friend WithEvents Label2 As System.Windows.Forms.Label
  225.   Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
  226.   Friend WithEvents Label1 As System.Windows.Forms.Label
  227.   Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  228.   Friend WithEvents Label5 As System.Windows.Forms.Label
  229.   Friend WithEvents Label4 As System.Windows.Forms.Label
  230.   Friend WithEvents Label6 As System.Windows.Forms.Label
  231.   Friend WithEvents Button1 As System.Windows.Forms.Button
  232.   Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  233.   Friend WithEvents Button2 As System.Windows.Forms.Button
  234.   Friend WithEvents bwWork As System.ComponentModel.BackgroundWorker
  235.   Friend WithEvents ofd As System.Windows.Forms.OpenFileDialog
  236. End Class
复制代码
下载地址：http://bbs.angcn.com/viewthread.php?tid=23084&extra=page%3D1&page=2（20楼）

[ 本帖最后由 xcvista 于 2008-7-18 06:08 PM 编辑 ]
作者: 涵涵永远幸福    时间: 2008-7-18 18:18
谢谢了
不好意思
vb学起来头晕
作者: x.n.a    时间: 2008-7-18 18:26
引用模块：
  1. System.dll
  2. System.Drawing.dll
  3. System.Windows.Forms.dll
复制代码
在集成环境（从.net 2005开始即可使用）里创建新空白项目，引入以上三个程序集，把这两个文件加入项目，重新选择图标，编译——成品就来了——这个可是完整源代码！！！
作者: 直角圆形    时间: 2008-7-18 20:50
毕竟这是专业人士写的

顶起
作者: x.n.a    时间: 2008-7-18 21:41
标题: 回复 4# 的帖子
谢谢~~~~~~



欢迎光临 张韶涵中文网--论坛 (http://www.angcn.net/) Powered by Discuz! X3.3