Языки информационного обмена


Пример 13.4 - часть 2


'Button1

'

Me.Button1.Location = New System.Drawing.Point(16, 56)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(264, 24)

Me.Button1.TabIndex = 2

Me.Button1.Text = "Получить данные"

'

'DataGrid1

'

Me.DataGrid1.DataMember = ""

Me.DataGrid1.DataSource = Me.DataSet1

Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText

Me.DataGrid1.Location = New System.Drawing.Point(16, 88)

Me.DataGrid1.Name = "DataGrid1"

Me.DataGrid1.Size = New System.Drawing.Size(264, 80)

Me.DataGrid1.TabIndex = 3

'

'DataSet1

'

Me.DataSet1.DataSetName = "NewDataSet"

Me.DataSet1.Locale = New System.Globalization.CultureInfo("ru-RU")

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(292, 273)

Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.DataGrid1, Me.Button1, Me.Label1, Me.TextBox1})

Me.Name = "Form1"

Me.Text = "Form1"

CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xml = New WindowsApplication2.localhost.Service1()

DataSet1.Merge(xml.XMLData(TextBox1.Text))

End Sub

End Class




Начало  Назад  Вперед



Книжный магазин