Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action()
'StaticText1.text = n.StringValue
StaticText1.text = NSSearchFieldControlMBS1.View.StringValue
End EventHandler
End Control
Control Listbox1 Inherits Listbox
ControlInstance Listbox1 Inherits Listbox
End Control
Control NSSearchFieldControlMBS1 Inherits myNSSearchFieldControlMBS
ControlInstance NSSearchFieldControlMBS1 Inherits myNSSearchFieldControlMBS
EventHandler Sub Action()
log CurrentMethodName
End EventHandler
EventHandler Function KeyDown(Key As String) As Boolean
log CurrentMethodName+": "+key
End EventHandler
EventHandler Sub KeyUp(Key As String)
log CurrentMethodName+": "+key
If Asc(Key) = 13 Then
Dim t As String = Me.View.StringValue
Select Case Me.result
Case SearchResult.BeginsWith
t = t + "%"
Case SearchResult.Contains
t = "%" + t + "%"
Case SearchResult.EndsWith
t = "%" + t
End Select
StaticText1.Text = t
End If
End EventHandler
EventHandler Sub Open()
Me.createMenu
End EventHandler
EventHandler Sub TextDidBeginEditing(fieldEditor as NSTextMBS, notification as NSNotificationMBS)
log CurrentMethodName
End EventHandler
EventHandler Sub TextDidChange(fieldEditor as NSTextMBS, notification as NSNotificationMBS)
log CurrentMethodName
End EventHandler
EventHandler Sub TextDidEndEditing(fieldEditor as NSTextMBS, notification as NSNotificationMBS)
log CurrentMethodName
End EventHandler
EventHandler Function textShouldBeginEditing(fieldEditor as NSTextMBS) As boolean
log CurrentMethodName
Return true
End EventHandler
EventHandler Function textShouldEndEditing(fieldEditor as NSTextMBS) As boolean
log CurrentMethodName
Return true
End EventHandler
End Control