Бесплатные курсовые работы
Программа на VB для разработки сайтов. Продолжение
Добавим в программу для генерации HTML кода удобную функцию масштабирования окна для редактирования. Для этого добавим кнопку Max/Min для максимизации или минимизации размеров окна редактирования Text2
Private Sub Command3_Click()
If d = 0 Then
d = 1 'Окна Text1 и Text3 скрыты. Окно Text2 максимального размера
Text1.Visible = False 'Спрятать поле Text1
Text3.Visible = False 'Спрятать поле Text3
Label1.Visible = False 'Спрятать Label1
Label2.Visible = False 'Спрятать Label2
Label3.Visible = False 'Спрятать Label3
Text2.Top = 1200 'Расширить окно Text2 вверх
Text2.Width = 13335 'Расширить окно Text2
Text2.Left = 240 'Расширить окно Text2 влево
Text2.Height = 9690 'Расширить окно Text2
Else
d = 0 'Окна Text1 и Text3 восстановлены. Окно Text2 минимального размера
Text1.Visible = True
Text3.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Text2.Top = 2880
Text2.Width = 11415
Text2.Left = 2160
Text2.Height = 6690
End If
End Sub
Полностью процедуру можно посмотреть - maximize.doc
Полный листинг программы (Visual Basic project) можно скачать - project2.zip
Макросы для генератора HTML кода
Добавим в программу заготовки HTML кода, считываемые из текстовых файлов. Это очень удобно для написания веб страниц с сложной структурой.
Первая строка такого текстового файла будет содержать название макроса (кнопки). Остальные строки будут содержать HTML код.
Макрос считывается при старте программы (по Form1.Load). В форму Form1 надо дописать следующий код
Command5.Caption = A(0) 'Первую строку файла macros.txt использовать как название кнопки макроса
e = UBound(A) 'Вычислить размер массива A
e = e - 1
ReDim J(e) ' Создать массив на 1 меньше, чем A
'Перепишем массив A в B начиная со второй строчки
For i = 0 To e
J(i) = A(i + 1) 'Переписать массив A() в массив J() кроме первой строки
Next i
macros = Join(J, Chr(13) + Chr(10)) 'Содержимое фпйла с макросом без первой строки (название кнопки).
Полностью процедуру можно посмотреть - macros.doc
Код для кнопки вызова макроса
Private Sub Command5_Click()
Text2.Text = Text2.Text + macros
End Sub
Полный листинг программы (Visual Basic project) можно скачать - project3.zip
Скриншот программы с загруженным макросом. Видно название кнопки, загруженное из файла
Получается очень интересная программа. Макросы позволят экономить дополнительно до 10% времени при разработке веб сайтов. Вы можете разместить в программе любое количество кнопок для вызова макросов. Вместо кнопок можно использовать многоуровневые меню.
Использование готовых редактируемых макросов в курсовой работе ставит ее на ступень выше простейшего редактора HTML.
Чтобы не занимать место на основной форме Form1 новыми кнопками и не использовать многоуровневые меню (чтобы не приводить к лишним действиям), используем в курсовой работе "hot key" - специально назначенные клавиши на клавиатуре.
Главная страница >>>> Читать далее >>>>
Бесплатные курсовые работы
|