PartialPublicClass MainPageInherits UserControlPrivate wcf AsNew ServiceReference1.Service1ClientPrivateSub wcf_get_wcf_welcomeCompleted(ByVal s AsObject, _ByVal e As ServiceReference1.get_wcf_welcomeCompletedEventArgs)text_result.Text = e.ResultEnd SubPublicSubNew()InitializeComponent()AddHandler wcf.get_wcf_welcomeCompleted, AddressOf wcf_get_wcf_welcomeCompletedEnd SubPrivateSub button_get_welcome_Click(ByVal sender As System.Object, _ByVal e As System.Windows.RoutedEventArgs)wcf.get_wcf_welcomeAsync()End SubEnd Class
wcf中添加的一段代碼: ?
VB.NET code
<OperationContract()>PublicFunction get_wcf_welcome() AsStringReturn"歡迎連接wcf成功。"End Function