Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/variables/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 对象内部变量?_Vb.net_Variables_Resources - Fatal编程技术网

Vb.net 对象内部变量?

Vb.net 对象内部变量?,vb.net,variables,resources,Vb.net,Variables,Resources,如何将变量放入.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, T

如何将变量放入.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
如何在我的资源中使用Fe.Key?

已解决。☺

引述:


My.Resources.ResourceManager.GetObject(var)

可能是您的解决方案中需要添加的内容,因为您询问了密钥。试试这个:

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

您想从资源中获得什么?