タイトル : Re: xmlファイル作成 投稿日 : 2005/01/21(Fri) 16:08 投稿者 : aki
[OSのVer]:Windows [VBのVer]:VB.NET 最悪の場合、↓のようにすれば可能です。 ただし、すっごく厳しい条件があります。 そのフォームにコントロールを増やせないこと。(^_^;) っと、textBox15,comboBox15,textBox14,comboBox14 ・・・・・textBox2,comboBox2,textBox1,comboBox1,Button1 の順番を確実にまもってフォームにのせていかなくては いけません。(爆) 最後のボタンはMe.Controls(0)にあたるので、下記コードの場合 必要になります。(カウントの問題だけですが。) Dim xWriter As XmlTextWriter xWriter = New XmlTextWriter("abc.xml", System.Text.Encoding.GetEncoding(&qu ot;Shift_jis")) Dim i As Integer Dim comboBoxi As ComboBox ' Object Dim textBoxi As TextBox ' Object With xWriter For i = 1 To 15 .WriteStartElement("textBox" & i) comboBoxi = Me.Controls(i) '"comboBox" & i .WriteAttributeString("atb", "", comboBoxi.Text) textBoxi = Me.Controls(i * 2) '"textBox" & i .WriteString(textBoxi.Text) .WriteEndElement() Next i End With |