2012年9月29日 星期六

LightSwitch如何控制TextBox

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的時候檢查欄位