189 8069 5689
今天，随着应用软件的复杂化，开发者经常需要处理一些很长的类。一种更易于管理这些类的方法就是，将这些类分成多个文件。Partial是VB.NET新引进的一个关键字，它允许您将类分成多个物理源文件。您也可以使用Partial关键字用多个文件来定义一个类。 一般大型项目都有很多开发者，这些开发者可能会在同一时间对同一个类进行操作，这时候将一个类分解成多个源文件就更利于开发者同时对同一个类进行操作，或者当这些类定义得太长的时候，将它分解成多个文件就会更易于处理。 您需要使用Partial关键字，这个关键字的作用就是告诉VB编译器在创建类之前去收集类的所有分块。如果您使用了多个文件，您并不需要在类的每一个地方都使用这个关键字——只要在一个地方用到就可以了。然而，同一个类的所有块都必须定义在同一个命名空间中。 编译器将类看作是所有部分声明的集合。每个部分定义的每个修改者都可以应用完整的类。 注意：如果您使用的类是从其它类继承而来的，或者是实现了某个接口，那么只要在类的某一部分使用Inherits或者Implements关键字就可以了。
创新互联服务项目包括米脂网站建设、米脂网站制作、米脂网页制作以及米脂网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，米脂网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到米脂省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
利用DataWindow点虐 在 vb点虐 下导出PDF格式文件
利用datawindow点虐 ，导出PDF文件，实现前提：
1.安装Acrobat Distiller虚拟打印机,注意要用datawindow点虐 提供的打印驱动，在c:\program files\sybase\datawindow点虐 2.0\driver中,在文章最后，我会提供一个静态安装虚拟打印机的批处理文件，方便安装。
2.安装Ghostscript 7.05 ，在网上找,免费的。
3.导出PDF文件前，一要指定虚拟打印机名，其次导出格式为PDF（Export.PDF.Method=Distill!）,另外还要指定 PDF.Distill.CustomPostScript=Yes。
具体代码如下：
''' summary
''' 导出文件
''' /summary
''' param name="sender"/param
''' param name="e"/param
''' remarks/remarks
Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
Try
Dim strFilename, strPrinter As String
Dim saveDg As New SaveFileDialog
strPrinter = Me.dwPrint.Describe("DataWindow.Print.PrinterName")
saveDg.FileName = Me.dwPrint.Tag.ToString
saveDg.Filter = "Pdf文件|*.pdf|Excel文件|*.xls|所有文件|*.*"
If saveDg.ShowDialog = Windows.Forms.DialogResult.OK Then
strFilename = saveDg.FileName
If strFilename.IndexOf(".pdf") 0 Then
Me.dwPrint.Modify("DataWindow.Print.PrinterName='Acrobat Distiller'")
Me.dwPrint.Modify("DataWindow.Export.PDF.Method=Distill!")
Me.dwPrint.Modify("DataWindow.Export.PDF.Distill.CustomPostScript=Yes")
Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Pdf, True)
ElseIf strFilename.IndexOf(".xls") 0 Then
Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Excel, True)
End If
Me.dwPrint.Modify("DataWindow.Print.PrinterName='" + strPrinter + "'")
MessageBox.Show("导出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
4 批处理文件（实现静默安装）
就是拆分字符串嘛用一个例子就知道了s=split("赵,钱,孙,李",",")s是个字符串数组,这样的话,s中就有四个元素s(0)是赵s(1)是钱s(2)是孙s(3)是李比自己一个个赋值快多了