我如何获得图片资源的名称在一个PictureBox?

Question

我正在制作一款游戏，它有一个放置系统，它几乎完成了，我试图使用My制作一个保存系统。设置，这是我到目前为止的代码

Private Sub Menu_Save_Click(sender As Object, e As EventArgs) Handles Menu_Save.Click
Dg_1 = MessageBox.Show("Are you sure you want to save? This will overwrite your previous save.", "Warning!", MessageBoxButtons.YesNo)
If (Dg_1) = DialogResult.Yes Then
If (Generated = 0) Then
Tb_Chat.Text += Environment.NewLine
Tb_Chat.Text += "Cannot save a blank world"
ElseIf Generated = 1 Then
My.Settings.savslot1_isused = True
My.Settings.savslot1_hearts = Hp
My.Settings.savslot1_hunger = Hunger
My.Settings.stg_slot01 = Pb_BlockSpace001.Image
My.Settings.stg_slot02 = Pb_BlockSpace002.Image
My.Settings.stg_slot03 = Pb_BlockSpace003.Image
My.Settings.stg_slot04 = Pb_BlockSpace004.Image
My.Settings.stg_slot05 = Pb_BlockSpace005.Image
Tb_Chat.Text += Environment.NewLine
Tb_Chat.Text += "World Saved. " + TimeOfDay + "."
Else
Exit Sub
End If
End If
End Sub

(我只保存了5块来测试)

然后出现了一个错误:

类型'Image'的值不能转换为'String'

我怎样才能使它得到资源的名称，而不是试图将图像转换成字符串?

Answer 1

由于位图图像是在我的。资源考虑如下。

首先，如前所述，您可以在PictureBox的Tag属性中设置图像名称，并在需要时检索它，或者使用带有属性(如果需要更改名称)ResourceName的自定义PictureBox，它将存储资源名称。

Public Class ImageBox
Inherits PictureBox
''' <summary>
''' Name of resource in projects Resources
''' </summary>
''' <returns></returns>
Public Property ResourceName() As String

End Class

创建ImageResourceHelper.vb并添加以下

Namespace My
<ComponentModel.EditorBrowsable(ComponentModel.EditorBrowsableState.Never)>
Partial Friend Class _MyImages
Private ReadOnly MyProperties As Reflection.PropertyInfo()
Private ReadOnly MyBitmapNames As List(Of String)
Public BitMapImages As new Dictionary(Of String, Bitmap)
Public ReadOnly Property HasImages() As Boolean
get
Return BitMapImages.Count >0
End Get
End Property
Private Sub GetBitMapImages()
'BitMapImages = New Dictionary(Of String, Bitmap)
Dim propertyInfo As Reflection.PropertyInfo() =
GetType(Resources.Resources).GetProperties(Reflection.BindingFlags.NonPublic Or
Reflection.BindingFlags.Instance Or
Reflection.BindingFlags.Static)
Dim BitMaps = (From T In propertyInfo Where T.PropertyType Is GetType(Bitmap)).ToList
If BitMaps.Count > 0 Then
For Each pInfo As Reflection.PropertyInfo In BitMaps
BitMapImages.Add(
pInfo.Name.Replace("_", " "),
CType(Resources.ResourceManager.GetObject(pInfo.Name), Bitmap)
)
Next
End If
End Sub
Public Function BitmapFromResource(sender As String) As Bitmap
Dim Item = (
From propertyInfo In MyProperties
Where propertyInfo.PropertyType Is GetType(Bitmap) AndAlso propertyInfo.Name = sender
).FirstOrDefault
If Item IsNot Nothing Then
Return CType(Resources.ResourceManager.GetObject(Item.Name), Bitmap)
Else
Dim bm As New Bitmap(256, 256)
Dim gr As Graphics = Graphics.FromImage(bm)
gr.Clear(Color.Transparent)
Return bm
End If
End Function
Public ReadOnly Property BitmapNames As List(Of String)
Get
Return MyBitmapNames
End Get
End Property
Public Sub New()
MyProperties = GetType(Resources.Resources).
GetProperties(
Reflection.BindingFlags.NonPublic Or
Reflection.BindingFlags.Instance Or
Reflection.BindingFlags.Static)
MyBitmapNames = (
From propertyInfo In MyProperties
Where propertyInfo.PropertyType Is GetType(Bitmap)
Select propertyInfo.Name
).ToList
GetBitMapImages()
End Sub
End Class
<HideModuleName()>
Friend Module Resource_Images
Private ReadOnly instance As New ThreadSafeObjectProvider(Of _MyImages)
ReadOnly Property Images() As _MyImages
Get
Return instance.GetInstance()
End Get
End Property
End Module
End Namespace

表单设计器

• 添加一个按钮来设置图像(也可以在ListBox的选择更改或BindingSource的位置更改事件中完成)
• 添加另一个按钮来获取当前资源名。
• 添加一个列表框
• 添加自定义图片框

我的。设置

新增设置SelectedImageName为String。

<<p>

形式代码/strong>下面的代码用资源名加载ListBox，确定是否设置了SelectedImageName，如果设置了，则将PictureBox图像设置为资源名，如果没有设置，则从资源中选择第一个图像。

On Form Closing event如果图片是通过检查PictureBox ResourceName属性设置的，设置SelectedImageName，如果资源仍然存在，它将在表单显示事件中拾取。

Imports System.ComponentModel
Public Class Form1
Private ReadOnly ImageBindingSource As New BindingSource
Private Sub SetImageButton_Click(sender As Object, e As EventArgs) Handles SetImageButton.Click
If ListBox1.SelectedItem Is Nothing Then
Exit Sub
End If
Dim current = CType(ListBox1.SelectedItem, KeyValuePair(Of String, Bitmap))
PictureBox1.Image = current.Value
PictureBox1.ResourceName = current.Key
End Sub
Private Sub GetImageNameButton_Click(sender As Object, e As EventArgs) Handles GetImageNameButton.Click
If Not String.IsNullOrWhiteSpace(PictureBox1.ResourceName) Then
MessageBox.Show(PictureBox1.ResourceName)
Else
MessageBox.Show("Set an image and try again")
End If
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
ImageBindingSource.DataSource = My.Images.BitMapImages
ListBox1.DataSource = ImageBindingSource
ListBox1.DisplayMember = "Key"
ListBox1.ValueMember = "Value"
If My.Images.HasImages Then
If Not String.IsNullOrWhiteSpace(My.Settings.SelectedImageName) Then
If My.Images.BitMapImages.ContainsKey(My.Settings.SelectedImageName) Then
PictureBox1.Image = My.Images.BitMapImages(My.Settings.SelectedImageName)
PictureBox1.ResourceName = My.Settings.SelectedImageName
ListBox1.SelectedIndex = ListBox1.FindString(My.Settings.SelectedImageName)
Else
PictureBox1.Image = My.Images.BitMapImages.First().Value
PictureBox1.ResourceName = My.Images.BitMapImages.First().Key
End If
End If
End If
End Sub
Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If Not String.IsNullOrWhiteSpace(PictureBox1.ResourceName) Then
My.Settings.SelectedImageName = CType(ListBox1.SelectedItem, KeyValuePair(Of String, Bitmap)).Key
End If
End Sub
End Class

当然，这是针对一个PictureBox，重复为每个PictureBox。此外，如果一个或多个资源是图标，则需要相应地调整检索图像的代码。BitmapFromResource方法也可以通过名称从资源中获取图像，如果没有找到则返回空图像。