禁止遁地 !?
今天在車上停紅燈的時候突然間看到這個指示牌 不過沒看到它的中文說明，為了避免大家不清楚，特別在這裡補上說明給大家參考 禁止遁地 !! 哈~博君一笑..XD PS:照片是在車子裡面有手機拍的，有些倒影，大家可別覺得是靈異照片啊...XD
發表文章
利用"字串"來叫出專案中的Form
今天碰巧看到網友問相關問題，搜尋了一下，在美國的MSDN論壇有這樣的做法(針對Form)，在這邊列出給大家參考 Dim myF As Form = _ CType(Activator.CreateInstance(System.Reflection.Assembly.GetExecutingAssembly.GetType("YourAssemblyName." & "YourFormName")), Form) myF.Show() 這樣就可以叫出對應的form了，今天又學了一招..嘿嘿... 美國論壇搜尋的結果可以參考這邊
MS SQL Server 2008 Express
很久沒灌灌水了，最近事情太多了，忙著弄其他的東西...累啊... 話說SQL Server 2008 RTM版本已經發行，同樣的Express的版本已經出來了，喜歡嘗鮮的朋友可以去看看；不過安裝上有些部份要注意的，請到 Alex前輩的blog 上去看看吧，下載可以到 express網站 下載。
簡單的XML R/W 範例
Note:.net compact framework 2.0,Windows mibile 5.0 這篇主要是回復網友問題時做的測試程式，原文在 這邊 ，下面來看看測試的程式碼 XML內容是像下面這樣 程式碼部分 Imports System.Xml Public Class Form1 Dim xmlDoc As XmlDocument Dim strTmp As String = "" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load xmlDoc = New Xml.XmlDocument() ''載入XML文件 xmlDoc.Load(GetAppPath() & "\test.xml") End Sub Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click Dim xnodelist As Xml.XmlNodeList = xmlDoc.SelectNodes(txtXPath.Text) If xnodelist.Count > 0 Then DisplayXmlNode(xnodelist) Else TextBox1.Text = "Not found" End If End Sub Private Sub DisplayXmlNode(ByRef xNodeList As XmlNodeList) For Each x As Xml.XmlNode In xNodeList If x.HasChildNodes Then ...
WPF - SkewTransform
這篇測試一下SkewTransform的功能，做了一個"丟猴"的按鈕，有興趣的朋友可以跑程式測試看看 測試的程式碼是下面這些，另外由於這邊貼XAML真的是很頭大，到 點部落看完整的文章 吧 Class Window1 Dim st As New SkewTransform Dim myT As Threading.DispatcherTimer Dim R As New Random Dim tmpTop As Double = 0 Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btn1.Click ''Timer相關設定 myT = New Threading.DispatcherTimer myT.Interval = New TimeSpan(0, 0, 0, 0, 100) AddHandler myT.Tick, AddressOf Timer_Tick myT.Start() End Sub Private Sub Timer_Tick(ByVal sender As Object, ByVal e As EventArgs) If Canvas.GetTop(btn1) >= cv.ActualHeight Then myT.Stop() End If Randomize() st.AngleX = (0.5 - R.NextDouble) * 30 st.AngleY = (0.5 - R.NextDouble) * 50 System.Threading.Thread.Sleep(30) btn1.RenderTransform = st Canvas.SetLeft(btn1, R.NextDouble * 50) tmpTop = tmp...