阿發仔部落

今晚有空，把自己以往用JAVASCRIPT所寫的UI元件拿些出來和大家分享一下，為何要自己寫UI元件? 因為我用過很多軟件，但發覺有些軟件內的UI元件是會很有用。但編程工具未必會提供的，以下就是其中一個我會用的UI元件，所以花了些時間用JAVASCRIPT寫成。先來一張圖:

我把此UI元件用於多項選擇，左面的是未被選擇的項目，你可以在選擇幾項項目後再按>按鈕，把那些選了的項目移動到右面的已選表。或是把右面的項目搬回左面的未選表，配合ASP.NET使用。以下是程序碼 :

這是我以往用(ASP.NET)寫了的香港天氣報告程式分享一下:

   1:  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

2:

   3:          Dim sHtml As String

   4:          Dim request As System.Net.WebRequest = System.Net.WebRequest.Create("http://www.weather.gov.hk/textonly/forecast/englishwx.htm")

   5:          ' 要抓取該日天氣資料的天文台網頁.

6:

   7:          request.Credentials = System.Net.CredentialCache.DefaultCredentials

   8:          ' 憑據確認.

9:

  10:          Try

  11:              Dim response As System.Net.HttpWebResponse = CType(request.GetResponse(), System.Net.HttpWebResponse)

12:

  13:              ' 回應確認有權取得該天文台網頁上的HTML程式碼.

  14:              Console.WriteLine(response.StatusDescription)

15:

  16:              ' 透過streamReader去存取該天文台網頁上的HTML程式碼

  17:              Dim dataStream As System.IO.Stream = response.GetResponseStream()

  18:              Dim sr As New System.IO.StreamReader(dataStream)

19:

  20:              sHtml = sr.ReadToEnd()

  21:              dataStream.Close()

  22:              response.Close()

23:

  24:              If sHtml <> "" Then

  25:                  '把抓取到的該日天氣資料拆開成陣列

  26:                  Dim WeatherParam As String() = sHtml.Split(vbCrLf)

27:

  28:                  '抓取該日的氣溫

  29:                  LblTemperature.Text = WeatherParam(12)

30:

  31:                  '抓取該日天氣的濕度值

  32:                  LblHumidity.Text = WeatherParam(13)

33:

  34:                  '抓取該日天氣縮圖

  35:                  LblWeatherCartoon.Text = WeatherParam(14)

36:

  37:                  '抓取該日天氣的Intensity

  38:                  LblIntensity.Text = WeatherParam(17)

  39:              Else

  40:                  LblTemperature.Text = "網頁無法正常顯示."

  41:              End If

42:

  43:          Catch ex As Exception

  44:              LblTemperature.Text = ex.Message

45:

  46:          End Try

  47:      End Sub

安安!! 這陣子要講的是如何以asp.net編寫網頁版的網絡應用程式。你會問為什麼要學用Asp.net來寫網頁版的網絡應用程式，而不是用VB.NET或C#來寫傳統的桌面應用程式呢? 我覺得有以下很多的好處:

2011年8月25日星期四