vb点虐 编程pdf vb,net

vb点虐 导出PDF

利用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全集下载

VB.NET网络编程指南 txt全集小说附件已上传到百度网盘，点击免费下载：

有问题再找我

VB.NET编程

不是阿.你的东西完全可以实现那.

我给你写了个

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 系列平台说明: 此属性在无法显示分层窗口的平台上不起作用。

=======================================================

饿的神阿、不给我加分就太不厚道列.

vb点虐 编程，急~~

我打开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