WPF圖像路徑藍調

Question

我有很多的資源目錄的圖像和訪問他們像這樣...

Public Function ReturnToolBarImage(ByVal ImageName As String) As Image 
    Dim UpdateImage As New Image 
    With UpdateImage 
    End With 
    Dim UpdateBitmap As New BitmapImage 
    With UpdateBitmap 
     .BeginInit() 
     .UriSource = New Uri("pack://application:,,,/HOA_Manager_Client_04;component/Resources/" & ImageName, UriKind.Absolute) 
     .EndInit() 
     .DecodePixelHeight = 32 
    End With 
    UpdateImage.Source = UpdateBitmap 
    Return UpdateImage 
End Function 

我在使用時的成像路徑不是一個形象，堅持控制 - 我可以訪問它這樣

.ImageSource = "//application:,,,/HOA_Manager_Client_04;component/Resources/Customers.png" 

，但圖像，或課程，過於龐大.. Soooooo我增加了一個功能，調整後的圖像保存到Temp文件夾（即工作），併發送路徑返回 - 但對於一些原因，只是不工作（沒有錯誤，只是沒有圖像）。有任何想法嗎？

Public Function ReturnToolBarImageAsString(ByVal ImageName As String) As String 
    Dim UpdateImage As New Image 
    With UpdateImage 
    End With 
    Dim UpdateBitmap As New BitmapImage 
    With UpdateBitmap 
     .BeginInit() 
     .UriSource = New Uri("pack://application:,,,/HOA_Manager_Client_04;component/Resources/" & ImageName, UriKind.Absolute) 
     .EndInit() 
     .DecodePixelHeight = 32 
    End With 
    Using FS As New IO.FileStream("../../Pages/Temp/" & ImageName, IO.FileMode.Create) 
     Dim vEncoder As New PngBitmapEncoder 
     vEncoder.Frames.Add(BitmapFrame.Create(UpdateBitmap)) 
     vEncoder.Save(FS) 
    End Using 
    'Return "../Temp/" & ImageName 
    Return "//application:,,,/HOA_Manager_Client_04;component/Pages/Temp/" & ImageName 
End Function 

Answer 1

通過在bin目錄中創建在運行時的目錄似乎已經治癒的問題

Public Function ReturnToolBarImageAsString(ByVal ImageName As String) As String 
    Dim UpdateImage As New Image 
    With UpdateImage 
    End With 
    Dim UpdateBitmap As New BitmapImage 
    With UpdateBitmap 
     .BeginInit() 
     .DecodePixelHeight = 32 
     .UriSource = New Uri("pack://application:,,,/HOA_Manager_Client_04;component/Resources/" & ImageName, UriKind.Absolute) 
     .EndInit() 
    End With 

    Dim vPath As String = My.Application.Info.DirectoryPath 
    If Not IO.Directory.Exists(vPath & "\Temp_Images") Then 
     IO.Directory.CreateDirectory(vPath & "\Temp_Images") 
    End If 
    Using FS As New IO.FileStream(vPath & "\Temp_Images\" & ImageName, IO.FileMode.Create) 
     Dim vEncoder As New PngBitmapEncoder 
     vEncoder.Frames.Add(BitmapFrame.Create(UpdateBitmap)) 
     vEncoder.Save(FS) 
    End Using 
    Return vPath & "\Temp_Images\" & ImageName 
End Function