Private Sub Command1_Click()
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:域名申請、網絡空間、營銷軟件、網站建設、正定網站維護、網站推廣。
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "選擇文件夾", 0, "")
If Not sf Is Nothing Then
MsgBox "選擇的文件夾是" vbCrLf sf.self.Path
End If
Set sf = Nothing
End Sub
XPS文件格式經常在文件處理應用程序中使用。您可以在基于.NET Framework的應用程序中使用C#或VB.NET以編程方式將XPS或OXPS轉換為JPG或PNG圖像。
讓我們逐步介紹以下方案,以了解有關XPS轉換的更多信息:
使用C#或VB.NET將XPS,OXPS轉換為JPG圖像
使用C#或VB.NET將XPS,OXPS轉換為PNG圖像
目前,.NET版Aspose.page升級到v20.10版,感興趣的朋友可點擊下載
使用C#或VB.NET將XPS,OXPS轉換為JPG圖像
JPG文件之所以出名是因為它們在所有系統環境中均受支持。您可以使用C#或VB.NET以編程方式將XPS或OXPS文件轉換為JPG圖像。對于XPS或OXPS到JPG圖像的轉換,應遵循以下步驟:
加載輸入XPS或OXPS文件
初始化JpegSaveOptions對象
指定要渲染的SmoothingMode,Resolution和PageNumbers
保存輸出的JPG圖像
以下代碼顯示了如何使用C#語言將XPS或OXPS轉換為JPG圖像:
// Input file
string inputFileName = dataDir + "input.xps";
//Output file
string outputFileName = dataDir + "XPStoImage_out.jpeg";
// Initialize XPS input stream
using (Stream xpsStream = File.Open(inputFileName, FileMode.Open, FileAccess.Read))
{
// Load XPS document form the stream
XpsDocument document = new XpsDocument(xpsStream, new XpsLoadOptions());
// or load XPS document directly from file. No xpsStream is needed then.
// XpsDocument document = new XpsDocument(inputFileName, new XpsLoadOptions());
// Initialize options object with necessary parameters.
JpegSaveOptions options = new JpegSaveOptions()
{
SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality,
Resolution = 300
};
// Create rendering device for JPG format
ImageDevice device = new ImageDevice();
document.Save(device, options);
// Iterate through document partitions (fixed documents, in XPS terms)
for (int i = 0; i device.Result.Length; i++) // Iterate through partition pages for (int j = 0; j device.Result[i].Length; j++) { // Initialize image output stream using (Stream imageStream = System.IO.File.Open(Path.GetDirectoryName(outputFileName) + Path.GetFileNameWithoutExtension(outputFileName) + "_" + (i + 1) + "_" + (j + 1) + Path.GetExtension(outputFileName), System.IO.FileMode.Create, System.IO.FileAccess.Write)) // Write image imageStream.Write(device.Result[i][j], 0, device.Result[i][j].Length); } }
使用C#或VB.NET將XPS,OXPS轉換為PNG圖像
可能需要使用C#或VB.NET和Aspose.Page for .NET API將XPS或OXPS文件轉換為PNG。您需要按照以下步驟將XPS轉換為PNG:
加載輸入XPS或OXPS文件
初始化PngSaveOptions對象
設置圖像分辨率或頁面編號為渲染
保存輸出的PNG圖像
System.Windows.Forms.OpenFileDialog
System.Windows.Forms.SaveFileDialog
System.Windows.Forms.FolderBrowserDialog
以上三個類均能夠很好的解決樓主的需求。
具體的請lz自己查msdn
vb.net使用控件FolderBrowserDialog1,在程序中:
'設置對話框中在樹視圖控件上顯示的說明文本
Me.FolderBrowserDialog1.Description
=
"請選擇輸出報表所在路徑:"
'設置從其開始瀏覽的根文件夾
Me.FolderBrowserDialog1.SelectedPath
=
"c:\"
If
Me.FolderBrowserDialog1.ShowDialog()
=
DialogResult.OK
Then
'取得全路徑(包含文件名)
reportPath1
=
System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'設定text顯示文件名
txtReport1.Text
=
reportPath1
setReportList()
End
If
在setReportList()中針對你所需要的文件進行操作等
分享名稱:vb.net打開文件夾,vb 打開文件夾
本文地址:http://vcdvsql.cn/article38/heohsp.html
成都網站建設公司_創新互聯,為您提供電子商務、網頁設計公司、網站收錄、網站維護、微信公眾號、虛擬主機
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯