13518219792
利用DataWindow点虐 在 vb点虐 下导出PDF格式文件
专注于为中小企业提供网站设计、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业东胜免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
利用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 批处理文件（实现静默安装）
VB.NET网络编程指南 txt全集小说附件已上传到百度网盘，点击免费下载：
有问题再找我
不是阿.你的东西完全可以实现那.
我给你写了个
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.5
Timer1.Enabled = True
'TestEvents()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Opacity += 0.1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity += 0.1
End Sub
Button1点击可以加透明度
也可以timer控制 你timer设置interval 1000 就是1秒
然后就可以啦.
你的失误在于你没有启动 timer
Timer1.Enabled = True 就可以了. 还有不要弄的太快、不然你眼睛还来不及反应就已经好了.
这是个属性没有什么不能设置的.
再给你点参考关于
===================================================
Form.Opacity 属性 [Visual Basic]请参见
Form 类 | Form 成员 | System.Windows.Forms 命名空间 | TransparencyKey | 创建透明 Windows 窗体 | Form 成员（Visual J# 语法） | C++ 托管扩展编程
要求
平台: Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 系列
语言
C#
C++
JScript
Visual Basic
全部显示
获取或设置窗体的不透明度级别。
[Visual Basic]
Public Property Opacity As Double
[C#]
public double Opacity {get; set;}
[C++]
public: __property double get_Opacity();
public: __property void set_Opacity(double);
[JScript]
public function get Opacity() : double;
public function set Opacity(double);
属性值
窗体的不透明度级别。默认值为 1.00。
备注
此属性使您得以指定窗体及其控件的透明度级别。此属性与 TransparencyKey 提供的透明度不同，后者只能使窗体及其控件完全透明，条件是当窗体及其控件与 TransparencyKey 属性中指定的值所表示的颜色相同。当将此属性设置为小于 100% (1.00) 的值时，将使整个窗体（包括边框）更透明。将此属性设置为值 0% (0.00) 时，将使该窗体完全不可见。可以使用此属性提供不同级别的透明度，或者提供如窗体逐渐进入或退出视野这样的效果。例如，可以通过将 Opacity 属性设置为值 0% (0.00)，并逐渐增加该值直到它到达 100% (1.00)，来使某窗体逐渐进入视野。
Windows 2000, Windows Server 2003 系列平台说明: 此属性在无法显示分层窗口的平台上不起作用。
=======================================================
饿的神阿、不给我加分就太不厚道列.
我打开vb2005，给你编了一个，运行通过了，按回车重复执行，按其他键退出，代码如下:
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Sub Main()
Randomize()
Do
Dim i As Integer = 10
Dim a(i - 1) As Integer
For j As Integer = 0 To i - 1
a(j) = CRND(300, 400)
Console.WriteLine(a(j).ToString)
Next
Dim mina As Integer = ProcMin(a)
Console.WriteLine(String.Format("最小值：{0}", mina))
Loop While Console.ReadKey.KeyChar = Chr(13)
End Sub
'产生随机数
Private Function CRND(ByVal min As Int32, ByVal max As Int32) As Int32
If max min Then Return min
Return CInt(Int((max - min + 1) * Rnd() + min))
End Function
'获取数组里的最小值
Private Function ProcMin(ByVal a() As Int32) As Int32
Dim tmp As Integer = Int32.MaxValue
For i As Integer = 0 To a.Length - 1
If tmp a(i) Then tmp = a(i)
Next
Return tmp
End Function
