Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'DECLARE THE VARIABLE AND CREATE AN INSTANCE OF THE WEB SERVICE PROXY CLASS Dim localtime As New local_time.LocalTimeSoapClient Dim formattime As Date Dim addtime As Integer 'DISPLAY THE PROPER CURSOR Cursor = Cursors.WaitCursor 'PROCESSES ALL THE WINDOWS MESSAGE THAT IS CURRENTLY IN THE MESSAGE QUEUE. Application.DoEvents() Try 'CHECKING IF THE INPUT IS A NUMERIC VALUE AND NOT A NULL VALUE. 'RETRIEVE THE LOCAL TIME FROM THE WEB SERVICE. formattime = localtime.LocalTimeByZipCode(txtzipcode.Text) 'THE LOCAL TIME FROM THE WEB SERVICE IS DELAYED FOR 1 HOUR, ' THEREFOR, CREATE A FORMULA THAT WILL ADD 1 HOUR IN THE TIME. 'SET THE EXACT TIME IN THE TEXTBOX(txtlocaltime). Else MsgBox("Server was unable to process request. The zip code must be correct!", MsgBoxStyle.Exclamation) End If Catch exp As Exception MsgBox("Server was unable to process request. The zip code must be correct!" & exp.Message, MsgBoxStyle.Exclamation) Exit Sub Finally 'RESET THE CURSOR TO DEFAULT. Cursor = Cursors.Default End Try End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'DISABLE THE TEXTBOX WHEREIN THE LOCAL TIME WILL APPEAR. txtlocaltime.Enabled = False End Sub