End Sub
Программный код для списка:
Private Sub sp_Click()
tekstr.Caption=sp.Text
End Sub
Программный код для кнопки очистить:
Private Sub ochis_Click()
Sp.Clear
Nst.SetFocus
End Sub
Программный код для формы:
Private Sub Form_Activate()
Nst.SetFocus
maxl="*"
minl=Space(256)
End Sub
Программный код для кнопки переопределить:
Private Sub opred_Click()
Dim i As Integer
maxl="*"
minl=Space(256)
For i=0 To ilem-1
If Len(maxl)<=Len(stl(i)) Then
maxl=stl(i)
End If
If Len(minl)>=Len(stl(i)) Then
minl=stl(i)
End If
Next i
max.Caption=maxl
min.Caption=minl
Nst.SetFocus
End Sub
Форма отчета: дискета или иной носитель с файлами форм и проектов работы № 3; текстовый файл с изображениями форм и текстами программных кодов.
Тема 4. Метод PRINT и стандартные окна сообщений