vbnet form icon from ImageList

Me.Icon = System.Drawing.Icon.FromHandle(CType(ImageList1.Images(x), System.Drawing.Bitmap).GetHicon())

ms sql 修改欄位長度

ALTER TABLE Table1 ALTER Column T_Column_1 nvarchar(50) NOT NULL

vbnet 距自動執行時間

常常寫到自動執行的時間判斷,底下截取片段出來記錄一下
---
Dim dt_now As DateTime = Now.ToString("yyyy/MM/dd HH:mm:ss") '現在時間
Dim dt_tmpa As New DateTime  ' 定義的時間
 
 TSSLabauto.Text = "距自動執行時間:" + _
 (DateDiff(DateInterval.Hour, dt_now, dt_tmpa) Mod 24).ToString + "時" + _
 (DateDiff(DateInterval.Minute, dt_now, dt_tmpa) Mod 60).ToString + "分"

asp ajax select onchange

請參考來源:asp_ajax_database
---
讚!! asp ajax 真是好的範例

XmlWriter 類別

請參考MSDN:XmlWriter 類別
--
底下的這個用法,相對應 電子發票XML 格式寫法的輸出

Dim settings As New XmlWriterSettings()
settings.Indent = True
settings.NewLineOnAttributes = True
Dim writer As XmlWriter = XmlWriter.Create("books.xml", settings)

XML檔案基本操作-XmlDocument

請參考來源
--

Write XML

參考引用來源
--
 Sub Main()

      Dim oXML As Xml.XmlDocument
      Dim oNodes As Xml.XmlNode
      Dim oNode As Xml.XmlNode
      Dim sFilename As String = "D:\Junk\foo.xml"

      oXML = New Xml.XmlDocument
      oXML.Load(sFilename)

      oNodes = oXML.DocumentElement

      oNode = oNodes.ChildNodes(0)
      oNode.Item("s1").InnerText = "Pink Floyd"
      oNode.Item("s2").InnerText = "Dark Side of the Moon"
      oNode.Item("s3").InnerText = "1973"

      oNode = oNodes.ChildNodes(1)
      oNode.Item("s1").InnerText = "Deep Purple"
      oNode.Item("s2").InnerText = "Stormbringer"
      oNode.Item("s3").InnerText = "1974"

      oXML.Save(sFilename)

   End Sub

vbnet 範例教學

VB.net 網站教學(國外)
--