以下は私のコード全体です。私がやろうとしているのは、XML リソース ファイルのランダムな行を Button10_Click のラベルに読み取らせることですが、プログラムは埋め込まれた xml ファイルからの情報を識別していません。リソース ストリームはどこかで「失われていますか?」
Imports System.IO
Imports System
Imports System.Reflection
Imports System.Xml
Imports System.Security.Permissions
Public Class Form1
Dim asm = Assembly.GetExecutingAssembly()
Dim var = asm.GetManifestResourceStream("WindowsApplication2.british-english-dictionary.xml")
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim rand = New Random()
Dim myXml = New XDocument()
Dim lexemeList = myXml.Descendants("lexeme").ToList()
Dim randomLexeme = lexemeList(rand.Next(0, lexemeList.Count - 1))
Label1.Text = randomLexeme
End Sub
End Class
編集: XML ファイルの例を以下に示します。
<?xml version="1.0" encoding="UTF-8"?>
<root>
<lexeme><grapheme>A</grapheme> <phoneme>'eI</phoneme></lexeme>
<lexeme><grapheme>A'asia</grapheme> <phoneme>a'eIZi@</phoneme></lexeme>
<lexeme><grapheme>A's</grapheme> <phoneme>'eIz</phoneme></lexeme>
<lexeme><grapheme>AOL</grapheme> <phoneme>'eI0l</phoneme></lexeme>
<lexeme><grapheme>AOL's</grapheme> <phoneme>'eI0lz</phoneme></lexeme>
<lexeme><grapheme>Aaberg</grapheme> <phoneme>'A:b3:g</phoneme></lexeme>
<lexeme><grapheme>Aaberg's</grapheme> <phoneme>'A:b3:gz</phoneme></lexeme>
</root>