2013-02-07 88 views
0

我怎么可以把My.Resources变量,像变量内部的对象?

My.Resources.[var] 

这里是我的代码:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    For Each Fe In My.Resources.ResourceManager.GetResourceSet(System.Globalization.CultureInfo.CurrentCulture, False, True) 
    ProgressBar1.Maximum += 1 
    ' MsgBox(Fe.Key) 

    My.Computer.FileSystem.WriteAllBytes _ 
     (appath & "\bin\" & Fe.Key & ".jpeg", My.Resources.F.Key, True) 'Fe.Key As Variable 

    Next 
End Sub 

我怎样才能在My.Resources使用Fe.Key?

+0

这是的WinForms? – AbZy

+0

在VB语言中是。 – Zaid

+0

你想从资源中获得什么? – AbZy

回答

0

解决.☺

Here

报价:

My.Resources.ResourceManager.GetObject(var)

1

或许真的到了添加到您的解决方案,因为你问的关键。试试这个:

Dim RSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(System.Globalization.CultureInfo.CurrentCulture, False, True) 

If RSet IsNot Nothing Then 

    Dim enumerator As IDictionaryEnumerator = RSet.GetEnumerator 

    While (enumerator.MoveNext) 

    ' You can now use enumerator.key 

    End While 

End If 

Source