Главная Статьи DownLoad Ссылки
Написание функций
Сейчас мы рассмотрим одну из важнейших возможностей Visual Basic, это возможность писать функции. Чтобы обучение прошло легко и быстро мы,для лучшего понимания, приступим к практике сразу. Создайте новый проект, на форме разместите один Label и один TextBox, в его коде,
в разделе General, напишите следующее:
Public Function fonter(font As String, size As String)
Text1.font = font
Label1.font = font
End Function
Теперь киньте на форму две кнопки и в коде напишите следующее:
Public Function fonter(font As String, size As String)
Text1.font = font
Label1.font = font
End Function
Private Sub Command1_Click()
fonter ("MS Sans Serif")
End Sub
Private Sub Command2_Click()
fonter ("Verdana")
End Sub
Теперь поясню. Когда мы пишем в коде fonter("MS Sans Serif") мы вызываем нашу функцию и она устанавливает шрифт в Label1 и Text1 как MS Sans Serif.
На этом всё. Если что-то будет непонятно, то пишите.
Обратно... На главную
