Область модуля класса
Date: 2015-10-07; view: 361.
' описание переменной, используемой при принятии решения, ' хочет ли пользователь ехать за границуPublic Urlaub As Boolean Public STAAT As String ' страна, выбранная пользователемPublic Ort As String ' город, имеющийся в списке странPublic Kosten As String ' стоимость поездки Private Sub Class_Initialize() ' инициализация свойств классаUrlaub = False: STAAT = "" : Ort = "": Kosten = ""End Sub Public Function Met1() As Boolean' если пользователь нажал кнопку OptionButton (Ja), то ' выполнить процедуры Met2 и Met3, результатом ' работы которых является вывод данных: город и ' стоимость, иначе Met1 = False и выводится ' сообщение "Hier gibt man Auskunft ueber Urlaub im ' Ausland" - "Справки выдаются желающим ' отдыхать за границей"If Urlaub = True Then Ort = Met2()Kosten = Met3()Met1 = TrueElseMet1 = FalseEnd IfEnd Function ' после щелчка на кнопке Ja/Nein (массив переключателей),' рис. 8.1 и выбора страны в списке ComboBox ' (Name = STAAT, слева надпись: "Staat auswaehlen!")' вывести место отдыхаPublic Function Met2() As String Select Case STAAT Case "SPANIEN": Met2 = "MADRID"Case "ENGLAND": Met2 = "LONDON"Case "SCHWITZERLAND": Met2 = "GENF"End SelectEnd Function Public Function Met3() As String ' вывести стоимостьSelect Case STAATCase "SPANIEN": Met3 = "500 $"Case "ENGLAND": Met3 = "800 $"Case "SCHWITZERLAND": Met3 = "1000 $"End SelectEnd Function
| <== previous lecture | | | next lecture ==> |
| Практическая работа 49. Работа с классом | | | Область формы |