189 8069 5689
今天，随着应用软件的复杂化，开发者经常需要处理一些很长的类。一种更易于管理这些类的方法就是，将这些类分成多个文件。Partial是VB.NET新引进的一个关键字，它允许您将类分成多个物理源文件。您也可以使用Partial关键字用多个文件来定义一个类。 一般大型项目都有很多开发者，这些开发者可能会在同一时间对同一个类进行操作，这时候将一个类分解成多个源文件就更利于开发者同时对同一个类进行操作，或者当这些类定义得太长的时候，将它分解成多个文件就会更易于处理。 您需要使用Partial关键字，这个关键字的作用就是告诉VB编译器在创建类之前去收集类的所有分块。如果您使用了多个文件，您并不需要在类的每一个地方都使用这个关键字——只要在一个地方用到就可以了。然而，同一个类的所有块都必须定义在同一个命名空间中。 编译器将类看作是所有部分声明的集合。每个部分定义的每个修改者都可以应用完整的类。 注意：如果您使用的类是从其它类继承而来的，或者是实现了某个接口，那么只要在类的某一部分使用Inherits或者Implements关键字就可以了。
成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站制作、网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的方山网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
原字符串里：00.0 R-1 SW_STOP 6-9 之间是不是有空格？
如果是的话
Dim STR1, STR2() As String
Dim arr1 As New ArrayList
STR1 = ":00.00 R-1 Sw_STOP 6-9" '你原来的字符串
STR2 = STR1.Split(" ") ‘按空格符截取
Dim i As Integer
For i = 0 To STR2.Length - 1 Step 1
If STR2(i) "" Then
arr1.Add(STR2(i))
End If
Next
最后得到的 arr1 就是分割后的字符串集合
如果原字符串没有空格，并且字符串长度固定，截取出来的部分也固定
那么就用 substring函数 一个一个的截取也就试了
如果原字符串长度也不固定，那么要根据你的截取规则来做。如果上述两个答案不能解决的话还需要更详细的问题
不需要用数组：
假设已经存在的图片文件存放在 C：\图片 文件夹里，并假设新创建的文件夹位于C：\图片 文件夹里。
在窗体上添加一个按钮，代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Long = -1
Dim P As Long = -1
Dim Pn As String
Dim MyNum As Integer = 100 '每100个文件存放在一个文件夹里
Dim MyPath As String
Dim MyFileName As String
Button1.Enabled = False
MyPath = "C:\图片\" '指定已有图片的路径
MyFileName = UCase(Dir(MyPath, FileAttribute.Normal)) ' 找寻第一项。
Do While MyFileName "" ' 开始循环。
If InStr(MyFileName, "JPG") 0 Or InStr(MyFileName, "GIF") 0 Or InStr(MyFileName, "PNG") 0 Then
n = n + 1
If n \ MyNum P Then
P = P + 1
Pn = CStr(n \ MyNum + 1)
MkDir(MyPath Pn)
End If
FileCopy(MyPath MyFileName, MyPath Pn "\" MyFileName)
End If
MyFileName = UCase(Dir()) ' 查找下一项
Loop
Button1.Enabled = True
End Sub
代码通过测试。