Область формы
Date: 2015-10-07; view: 380.
Dim url As Class1 ' описать объектPrivate Sub Form_Load() ' создать объектSet url = New Class1 ' заполнить список ComboBox названиями трeх странSTAAT.AddItem "SPANIEN": STAAT.AddItem "ENGLAND"STAAT.AddItem "SCHWITZERLAND"End Sub Private Sub Command1_Click() ' вывести справочные данныеDim stri As String ' описание аргумента функции MsgBox' значение свойства STAAT объекта url взять из списка поля ' ComboBoxurl.STAAT = STAAT.Text ' значени свойства Urlaub объекта url взять из поля массива' OptionButtonurl.Urlaub = Option1(0).Value If url.Met1 = True Then ' вывод справочных данныхstri = CStr(url.Ort) & vbCrLf: stri = stri & CStr(url.Kosten)MsgBox stri Elsestri = "Hier gibt man Auskunft ueber Ublaub im Ausland"MsgBox striEnd IfEnd Sub' удалить объект из памятиPrivate Sub Form_Unload(Cancel As Integer) Set url = NothingEnd Sub
Рис. 8.1.Работа с классом
| <== previous lecture | | | next lecture ==> |
| Область модуля класса | | | Общие сведения |