В. OptionButton

Date: 2015-10-07; view: 450.

Создать на форме:

1. элемент управления Frame, массив из двух элементов OptionButton, Name = Option1(0) и Option1(1) соответственно, Caption = "присоединить текст" и "заменить текст" соответственно; поместить элементы управления внутрь рамки,

2. два текстовых поля (Name = Text1 и Text2 соответственно) и CommandButton, схема формы дана на рис. 5.3

3. ввести код, данный ниже; стартовать проект,

4. ввести текст в первое текстовое поле, выбрать щелчком одну из опций, сделать щелчок на командной кнопке, наблюдать результат. Если был сделан щелчок на элементе Option1(0), то проводится присоединение текста во втором текстовом поле, иначе - замена текста (см. процедуру Command1_Click ()).

Рис. 5.3.OptionButton

Private Sub Command1_Click()If Option1(0) Then' присоединить текст, если выбран первый переключательText2.Text = Text2.Text + Text1.Text Else' заменить текст, если выбран второй' переключательText2.Text = Text1.Text End IfText1.Text = ""End Sub

<== previous lecture	\|	next lecture ==>
А. CheckBox	\|	Элемент управления Animation

lektsiopedia.org - 2013 год. | Page generation: 0.002 s.