Public Shared fldNewPasword As String Private Sub btnSubmit_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs ) _ Handles btnSubmit.Click ? Описываем proxy и переменную для сохранения массива объектов Dim xws1 As New cab233a.SSMWSEmpPhones Dim response As System.Array ? Вызвать метод UpdateEmpPhonesRow и обеспечить реакцию на ошибки. Try response = xws1.UpdateEmpPhonesRow( _ CInt(txtEmplyeeID.Text), True, txtPassword.Text, _ txtFname.Text, txtLname.Text, CInt(txtPhone.Text), True) If response(0) = 0 Then MessageBox.Show(«Введите корректные значения EmployeeID и Password « & _ «соответствующие выделенной строке Web-службы.», _ «SSMWSEmpPhones Web Service Message») End If Catch ex1 as Exception MsgBox («Error message: « & vbCr & ex1.Message) Exit Sub End Try End Sub Private Sub btnValidate _Click ( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs ) _ Handles btnValidate.Click ? Открыть новый экземпляр формы Form3 Dim frm3 As New Form3 frm3.Show ? Скопировать значения из Form2 в Form3 frm3.txtEmployeeID.Text = txtEmployeeID.Text frm3.txtOldPassword.Text = txtPassword.Text End Sub Private Sub btnUpdate_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs ) _ Handles btnUpdate.Click ? Описываем proxy Dim xws1 As New cab233a.SSMWSEmpPhones ? Если fldNewPassword не равно Failed, выполнить метод UpdatePassword ? Иначе выдать диагностическое сообщение. If Not (fldNewPassword = «Failed») Then xws1.UpdatePassword(CInt(txtEmployeeID.Text), True, _ fldNewPassword) Else MessageBox.Show(«Введите корректный пароль.», _ «SSMWSEmpPhones Web Service Message») End If End Sub