http://social.msdn.microsoft.com/Forums/en-US/lightswitch/thread/485f2124-3cb9-4dd8-9965-07f02a915651/
VB範例
Imports System.Windows
Imports System.Windows.Controls
Namespace LightSwitchApplication
Public Class 新增資料
Private Sub 新增資料_InitializeDataWorkspace(ByVal saveChangesTo As Global.System.Collections.Generic.List(Of Global.Microsoft.LightSwitch.IDataService))
' Write your code here.
Me.基本資料ItemProperty = New 基本資料Item()
End Sub
Private Sub 新增資料_Saved()
Me.Close(False)
'Application.Current.ShowDefaultScreen(Me.基本資料ItemProperty)
End Sub
'新增一個按鈕
Private Sub ShowMeSomething_Execute()
AddHandler Me.FindControl("客戶").ControlAvailable, AddressOf Showtxt
End Sub
Private Sub Showtxt(sender As Object, e As ControlAvailableBaseEventArgs)
Dim txt As TextBox = CType(e.Control, Windows.Controls.TextBox)
ShowMessageBox("客戶名稱是" & txt.Text)
End Sub
End Class
End Namespace
可以應用在Screen Saving的時候檢查欄位
沒有留言:
張貼留言