- •1)Структурные особенности Visual Basic. Подпрограммы. Пример.
- •2. Диалоговые окна MsgBox и InputBox. Примеры.
- •3. Четыре принципа объектно-ориентированного программирования. Их реализация в Visual Basic.
- •4. Классы. Интерфейс классов. Создание динамических библиотек на основе классов в Visual Basic. Регистрация библиотек.
- •5. Способы объявления объектных переменных в Visual Basic.
- •6. Раннее и позднее связывание с объектом. Примеры.
- •7. Способы объявления событий классов. Примеры.
- •8. Создание элемента управления ActiveX в Visual Basic. Отображаемые и пользовательские свойств и методы ActiveX-компонент. Передача события приложению–контейнеру. Регистрация компонент.
- •9. Пример динамического способа формирования объектов на форме vb.
- •10)Пример работы с коллекцией объектов, свойствами и методами объектов.
- •11. Работа с отладчиком Visual Basic. Окна Watch, Immediate.
- •12. Оператор On Error. Методы объектов Debug. Условная компиляция. Примеры
- •13. Свойства и методы объектов Debug, Err. Примеры.
- •Объявление переменных
- •Математические операции
- •Строковые операции
- •Оптимизация приложений
- •Оптимизация скорости работы приложения
- •Оптимизация размера приложения
- •Оптимизация размера графики приложения
- •15. Основные свойства и методы объектов Screen. Примеры
- •Свойство ActiveControl
- •16. Основные свойства и методы объектов Clipboard. Примеры.
- •17. Основные свойства и методы объектов App. Примеры
- •18.Редактор меню Menu Editor. Оконные приложения.Основные свойства объекта Menu. Примеры.
- •Отображение контекстных меню
- •Изменения кода для отображения контекстных меню
- •19.Основные объекты (FileSystemObject, File, Drive, Folder и TextStream.), их свойства и методы библиотеки Scripting.FileSystemObject
- •20. Основные свойства, методы и события объекта UserControl.
- •26. История развития объектных моделей.
- •27. Компонентные приложения. Особенности компонент.
- •28. Интеграция приложений средством Automation.
- •29. Объектная модель ms Word. Свойства и методы объекта Application модели ms Word. Пример.
- •30. Примеры процедур на определение списка всех панелей инструментов и тем главного меню ms Word.
- •32. Свойства и методы объектов Options, Dialogs, Selection и Range объектной модели ms Word.
- •33. Объекты, свойства и методы семейства CommandBars
- •34. Объекты и семейства объекта vbe
- •Объект CodeModule .Представляет программу, определенную для таких компонентов проекта как форма, класс или документ. Дополнительные сведения
- •Объект CommandBarEvents
- •Семейство CommandBars
- •Объект vbComponent
- •Семейство vbComponents
- •Объект CodePane
- •Семейство CodePanes
- •Объект Events
- •Семейство LinkedWindows
- •Объект Property
- •Семейство Properties
- •Объект Reference
- •Семейство References
- •Объект ReferencesEvents
- •Объект vbe
- •Объект vbProject
- •Семейство vbProjects
- •Объект Window
- •Семейство Windows
- •Редактор Visual Basic
- •Библиотека объектов Office 2000 и Object Browser
- •37. Объектная модель ms Excel. Свойства и методы объекта Application.
- •38. Объектная модель ms Excel. Свойства, методы, события объекта WorkBook.
- •39. Объектная модель ms Excel. Свойства, методы, события объекта WorkSheet
- •40. Методы класса WorkSheetFunction объектной модели ms Excel. Пример на вычисление выражения.
- •41. Пример использования объекта SpreadSheet в проектах vb.
- •42. Функции работы с матрицами окна vba Excel. Пример решения системы линейных уравнений.
- •43. Свойства объекта Range объектной модели ms Excel.
- •44. Методы объекта Range объектной модели ms Excel. Примеры.
- •45. Пример сортировки слов в строке с использованием объектной модели ms Excel.
- •46. Пример вычисления корня нелинейного уравнения с использованием объектной модели ms Excel.
- •47. Свойства и методы объекта Chart объектной модели ms Excel. Пример.
- •Терминальные свойства объекта Chart
- •Методы объекта Chart
- •События объекта Chart
- •Построение обработчиков событий
- •48. Пример отображения на форме vb графика функции с использованием объектной модели ms Excel. Рассмотреть способ передачи графика через диск и через буфер обмена.
- •49. Методы SolverOk и SolverAdd библиотеки Solver.Xla.
- •50. Методы SolverOptions, SolverSolve и SolverDelete, SolverSave, SolverLoad библиотеки Solver.Xla.
- •52. Пример динамического способа формирования объектов на форме vba Excel.
- •51. Пример решения системы нелинейных уравнений с использованием объектной модели ms Excel.
- •53. Объектная модель (объекты и коллекции) ms Access.
- •54. Свойства и методы объекта Application объектной модели ms Access.
- •55. Интерфейсы объектов данных и интерфейсы прикладного уровня программирования.
- •56. Объектная модель dao рабочей области ms Jet. Объекты и семейства. Пример открытия бд Access.
- •57. Объектная модель dao рабочей области odbcDirect.
- •59.Ручной и программный способ установления связи с источником данных.
- •62.ActiveX-компонент WebBrowser и объект InternetExplorer для работы в www из проектов Visual Basic.
- •86.Особенности работы с логическим инструментом. Пример отображения в окне прямоугольника заданного размера, толщины и цвета.
- •87.Работа со строками в Windows. Изменение цвета и фона строки текста.
- •89.Пример работы с базовыми шрифтами.
- •95.Пример отображения базовых геометрических фигур, использующих api-функции.
- •96.Создание и заполнение произвольных областей. Пример.
45. Пример сортировки слов в строке с использованием объектной модели ms Excel.
Sort Выстраивает данные в лексикографическом порядке по возрастанию или убыванию. Он осуществляет сортировку строк, списков и БД, а также столбцов рабочих листов с учетом до трех критериев сортировки. Имеет ряд параметров key1 – ссылка на первое упорядочиваемое поле; order1 – задает порядок сортировки (x1Ascending – по возрастанию, x1Descendng – по убыванию); key2, order2, key3, order3 – аналогично; header – определяет наличие в первой строке диапазона заголовка (x1Yes) или его отсутствие (x1No); matchCase – учитывает наличие регистра (True) или его отсутствие (False); orientation задает направление сортировки сверху вниз (xlTopToBottom) или слева направо (x1LeftToRight).
Пример. (Отсортировать слова в строке по возрастанию с учетом регистра.)
Dim s As String
Private Sub Command1_Click()
Const xlAscending = 1
Const xlDescending = 2
Const xlNo = 2
Const xlTopToBottom = 1
Dim ObjExcel As Object
'Создаем объект OLE Automation и задаем свойства книги и листа
Set ObjExcel = CreateObject("Excel.Application")
With ObjExcel
.WorkBooks.Add
.ActiveSheet.Name = "Сортировка"
.Visible = False
.DisplayAlerts = False
End With
p = Split(s, ",") 'Создаем массив слов из строки
n% = UBound(p)
For i% = 0 To n
ObjExcel.Cells(i + 1, 1) = p(i)
Next i
ObjExcel.Range("A1:A" & Trim(CStr(n + 1))).Sort key1:=ObjExcel.Range("A1"), order1:=xlAscending, Header:=xlNo, matchCase:=True, Orientation:=xlTopToBottom
s = ""
For i% = 1 To n + 1
p = ObjExcel.Cells(i, 1).Value
I f i <> n + 1 Then
s = s & p & ","
Else
s = s & p
End If
Next i
Text2 = s
ObjExcel.Quit
Set ObjExcel = Nothing
End Sub
Private Sub Form_Load()
Caption = "Сортировка слов в строке"
Command1.Caption = "Sort"
Text1 = ""
Text2 = ""
'Ввод исходной строки
s = InputBox("Строка", , "Маша,маша,мАша,МАША,маША,маШа,мАшА,мАША")
Text1 = s
End Sub
46. Пример вычисления корня нелинейного уравнения с использованием объектной модели ms Excel.
метод GoalSeek() позволяет применить автоподбор значений для функции Excel программным способом. На графическом экране то же самое можно сделать при помощи меню Сервис -> Подбор параметра.
Подбирает значение параметра (неизвестной величины), являющееся решением уравнения (ур-я) с одной переменной. Предполагается, что правая часть явл-ся постоянной, не зависящей от парамета, кот. Входит только в лев.часть ур-я. Имеет два параметра: goal – значение правой части ур-я; changingcell содержит ссылку на ячейку с изменяющимся значением (приближение к искомому корню).
Пример. (С помощью метода «Подбор параметра» определить корень нелинейного уравнения.)
Private Sub Command1_Click()
Dim Eque As String, bool As String, Approx As Double
Dim ObjExcel As Object
'Создаем объект OLE Automation
Set ObjExcel = CreateObject("Excel.Application")
'Задаем свойства рабочей книги и листа
With ObjExcel
.WorkBooks.Add
.ActiveSheet.Name = "Решение нелинейных уравнений"
.Visible = False
.DisplayAlerts = False 'Запретить промежуточные диалоги
.MaxIterations = 10000 'Число итераций
.MaxChange = 0.00001 'Точность вычисления
End With
'Считываем уравнение из поля Text1 и помещаем его в ячейку A2
Eque = "=" & Text1
ObjExcel.Range("A2").Value = Eque
'Считываем начальное приближение к корню и помещаем его в A1
Approx = CDbl(Text2)
ObjExcel.Range("A1").Value = Approx
'Присваиваем имя "X" ячейке A1, иначе в уравнении необходимо
'использовать полную ссылку. Например, =0.5*A1^2-5*A1+8,
'вместо общепринятой формы: =0.5*X^2-5*X+8
ObjExcel.Range("A1").Name = "X"
'Объект GoalSeek вычисляет корень уравнения
'Он возвращает True, если решение найдено.
bool = ObjExcel.Range("A2").GoalSeek(Goal:=0, _
ChangingCell:=ObjExcel.Range("X"))
' Вывод результата в текстовое поле
Text3 = ObjExcel.Range("A1").Value
ObjExcel.Quit 'Закрываем Excel без сохранения
Set ObjExcel = Nothing 'Удаление объекта
End Sub
Private Sub Form_Load()
Caption = "Пример на OLE Automation"
Command1.Caption = "Найти корень"
Text1 = ""
Text2 = ""
Text3 = ""
Text1.TabIndex = 0
End Sub