ВЗАИМОДЕЙСТВИЕ MICROSOFT VISUAL BASIC.ppt

Sub

Private Sub HScroll2_Scroll()
HScroll2_Change
End Sub
Private Sub HScroll1_Change()
'ca
Label6.Caption = CStr(HScroll1.Value / 10000)
End

Sub

Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub

True
k = k + 1: m = m + 1
If

m * 100 > Picture1.Width Then
m = 1
Picture1.Cls
End If
dt = CSng(Label11.Caption)
ca = CSng(Label6.Caption)
cb = CSng(Label7.Caption)
cd = CSng(Label8.Caption)
ce = CSng(Label9.Caption)
tau = tau + dt
MSFlexGrid1.Row = k
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = CStr(Int(tau * 1000) / 1000)
ca = ca - dt * (k1 * ca * cb)
Picture1.Line ((m - 1) * 100, Picture1.Height - Int(ca1 * Picture1.Height))-(m *_ 100, Picture1.Height - Int(ca * Picture1.Height)), RGB(255, 0, 0)
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = CStr(Int(ca * 10000) / 10000)

ca * cb + k2 * cd * cb)
Picture1.Line ((m

- 1) * 100, Picture1.Height - Int(cb1 * Picture1.Height))-(m *_ 100, Picture1.Height - Int(cb * Picture1.Height)), RGB(0, 255, 0)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = CStr(Int(cb * 10000) / 10000)
Label7.Caption = CStr(cb)
cd = cd + dt * (k1 * ca * cb - k2 * cd * cb)
Picture1.Line ((m - 1) * 100, Picture1.Height - Int(cd1 * Picture1.Height))-(m *_ 100, Picture1.Height - Int(cd * Picture1.Height)), RGB(0, 0, 255)
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = CStr(Int(10000 * cd) / 10000)
Label8.Caption = CStr(cd)
ce = ce + dt * (k2 * cd * cb)
Picture1.Line ((m - 1) * 100, Picture1.Height - Int(ce1 * Picture1.Height))-(m *_ 100, Picture1.Height - Int(ce * Picture1.Height)), RGB(255, 255, 0)
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = CStr(Int(10000 * ce) / 10000)
Label9.Caption = CStr(ce)

Int(10000 * cd)
HScroll4.Value = Int(10000 * ce)
HScroll5.Value = Int(100 *

dt)
ca1 = ca: cb1 = cb: cd1 = cd: ce1 = ce
If ca = 0 Or cb = 0 Then
Timer1.Enabled = False
End If
If k > 10 Then
k = 0
For i = 1 To 11
MSFlexGrid1.Row = i
For j = 0 To 4
MSFlexGrid1.Col = j
MSFlexGrid1.Text = ""
Next j
Next i
End If
End Sub

пользовательского интерфейса приложения. Под приложением будем понимать программу, работающую в

среде Windows.

Под интерфейсом будем понимать внешнюю оболочку приложения вместе с программами управления доступом и другими скрытыми для пользователя механизмами управления, дающую возможность работать с документами, данными и другой информацией, хранящейся в компьютере или за его пределами.

Project ►Add Form.
2) В появившемся меню перейти на вкладку New,

где дважды щелкнуть левой кнопкой мышки по значку Form.

появившемся выпадающем списке выбрать пункт Form, затем нажать на клавиатуре

клавишу Enter.

окне перейти на вкладку General .
В выпадающем списке Startup

Object необходимо выбрать имя формы, которую предполагается сделать стартовой.
Нажать на кнопку Ok.

в следующем порядке:
Initialize
Load
Activate
Deactivate
QueryUnload
Unload
Terminate.

В обработчике данного события (в процедуре обработки данного события) присваиваются

переменным начальные значения, расставляются на форме элементы управления, задаются их свойства.

Private Sub Form_Initialize()
…….
End Sub

Событие Initialize возникает в момент создания экземпляра формы (до ее загрузки в память компьютера и отображения на экране). Это событие генерируется только один раз в течение всего сеанса работы приложения. Для того, чтобы еще раз вызвать событие Initialize, потребуется завершить программу и перезапустить приложение.
Таким образом, если какой-то код необходимо выполнить в приложении более чем один раз, то он должен быть помещен в обработчик другого события.

возникает, когда возвращается одно из свойств формы, или вызывается метод,

определенный в модуле (процедуре или функции) формы. Например, в форме Form2 определена процедура общего вида Proc1. При вызове этой процедуры из модуля другой формы Form2.Proc1, создается экземпляр формы Form2, что приводит к генерации события Initialize. Переменные уровня формы при инициализации существуют, пока выполняется приложение, даже если форма выгружена из памяти. При повторном запуске формы событие Initialize не генерируется.

формы на экран. Оно позволяет присвоить исходные значения свойствам формы

и ее элементов управления. Данное событие происходит при каждой загрузке формы в память. При первой загрузке событие Load следует за событием Initialize.
Событие Load генерируется в результате применения оператора Load или метода Show, также может генерироваться после ссылки на свойства, методы или элементы управления незагруженной формы.
Пример.
Private Sub Form_Load()
List1.Clear
List1.AddItem (“Элемент1”)
List1.AddItem (“Элемент2”)
List1.AddItem (“Элемент3”)
End Sub

то для определения поведения этих форм могут быть использованы события

Activate и Deactivate.
Событие Activate возникает, когда фокус ввода переходит на данную форму от другой формы того же приложения. При этом форма должна быть видима. Например, форма, загруженная оператором Load, остается невидимой, пока к ней не применен метод Show или не установлено свойство формы Visible в положение True. Событие Activate генерируется до события GotFocus.

другую форму того же приложения. Оно генерируется после события LostFocus.

События

Activate и Deactivate генерируются только в том случае, если фокус ввода переходит между формами одного и того же приложения. Если пользователь переходит в другое приложение, а потом вернется в программу на Visual Basic, то ни одно из этих событий не происходит.

именно пользователь закрывает форму. Оно генерируется перед событием Unload. Аргумент

процедуры обработки данного события UnloadMode сообщает, как закрывается форма и при необходимости позволяет аннулировать это действие.

Close
когда в программе выполняется оператор Unload
когда текущий сеанс работы в

операционной системе Windows завершается
когда Диспетчер задач операционной системы Windows закрывает данное приложение
когда закрывается дочерняя MDI-форма, так как закрывается основная MDI-форма.

Sub Form_QueryUnload(Cancel as Integer, UnloadMode As Integer)
If UnloadMode vbFormCode

then
MsgBox “Используйте для закрытия формы кнопку Выход”
Cancel = True
End If
End Sub

может быть использован для проверки того, надо ли выгрузить форму,

или для определения операций, выполняемых при выгрузке формы. Сюда можно включить программный код проверки введенных значений на уровне формы, код для сохранения данных в файле.
При обработке события Unload можно добавить оператор End – он гарантирует выгрузку всех форм до завершения программы.
Присвоение аргументу Cancel любого ненулевого значения предотвращает удаление формы, но не запрещает другие события, вроде выхода из среды Windows. Чтобы не допустить выхода из Windows нужно использовать событие QueryUnload.

на экземпляр формы. Чтобы убрать из памяти переменные этой формы

и освободить занимаемые системные ресурсы, объектной переменной формы нужно присвоить значение Nothing.
Set Form2=Nothing
Для всех объектов, кроме классов, событие Terminate генерируется после события Unload.
Но, оно не возникает, если экземпляр формы или класса удаляется из памяти вследствие некорректного завершения программы. Если Ваша программа рухнет перед удалением из памяти всех существующих экземпляров класса или формы, то событие Terminate не произойдет.