MakeIT

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 ...

這篇大部分是XAML Code，所以這邊就只留轉向了，請有興趣的朋友到 點部落看相關文章 吧，感恩。

這篇測試一下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...