看别人写的文件分割工具挺好用,用VB学着写了一个,附源代码。
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "文件分割工具"
ClientHeight = 2880
ClientLeft = 45
ClientTop = 330
ClientWidth = 3795
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2880
ScaleWidth = 3795
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txtCode
BackColor = &H8000000F&
Height = 3945
Left = 30
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Top = 2910
Visible = 0 'False
Width = 3705
End
Begin VB.Frame frmContainer
Height = 2865
Left = 0
TabIndex = 0
Top = 30
Width = 3735
Begin VB.CommandButton cmdUnit
Caption = "合 并"
Enabled = 0 'False
Height = 345
Left = 1890
TabIndex = 11
Top = 2400
Width = 945
End
Begin VB.CommandButton cmdSplit
Caption = "分 割"
Height = 345
Left = 120
TabIndex = 10
Top = 2400
Width = 945
