Sub Process_Globals
End Sub
Sub Globals
Dim myButton As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
myButton.Initialize("myButton")
Activity.AddView(myButton, 5dip, 5dip, 200dip, 60dip)
myButton.Text = "Monat waehlen..."
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub myButton_Click
Dim ListOfMonth As List
Dim SelectedMonth As Int
ListOfMonth.Initialize
ListOfMonth.Add("Januar")
ListOfMonth.Add("Februar")
ListOfMonth.Add("Maerz")
ListOfMonth.Add("April")
ListOfMonth.Add("Mai")
ListOfMonth.Add("Juni")
ListOfMonth.Add("Juli")
ListOfMonth.Add("August")
ListOfMonth.Add("September")
ListOfMonth.Add("Oktober")
ListOfMonth.Add("November")
ListOfMonth.Add("Dezember")
SelectedMonth = InputList(ListOfMonth, "Monat waehlen", -1)
If SelectedMonth <> DialogResponse.Cancel Then
Msgbox(ListOfMonth.Get(SelectedMonth), "Gewaehlter Monat")
End If
End Sub