OptionButton, CheckBox компоненттері 96-97 бет. OptionButton Ауыстырып қ ос қ ыш, CheckBox Жалауша. - презентация

1 OptionButton, CheckBox компоненттері бет

2 OptionButton Ауыстырып қ ос қ ыш, CheckBox Жалауша

3 OptionButton CheckBox CheckBox

4

5 OptionButton Ауыстырып қ ос қ ыш Мәліметтер топтамасы ішінен тек бір вариантын ғана таңдауына мүмкіндік береді.

6

7

8 CheckBox Жалауша Топтамалар ішінен бір немесе бірнеше вариант таңдауына мүмкіндік береді.

9

10

11 Негізгі қ асиеттері Негізгі қ асиеттеріOptionButton CheckBox Value Style Picture Caption Visible Enabled Font BackColor ForeColor Value Style Picture Caption Visible Enabled Font BackColor ForeColor Іске қосылуын орнату Түрін өзгерту (0-1) Сурет қою

12

13 True – ауыстыр ғ ышты ң іске қ осылуын орнату False – ауыстыр ғ ышты ң ажыратылуы

14 0 – жалауша орнатылма ғ ан к ү йі 1 – жалауша орнатыл ғ ан к ү йі 2 – белгісіз к ү й

15 0 – к ә дімгі т ү рі 1 – батырма секілді ө згереді

16 Пішінде(формада) орнатыл ғ ан ауыстыр ғ ыштар мен жалаушалар ар қ ылы м ә тінні ң (тексті ң ) жазылу ү лгілерін орнататын қ осымша жасау

17

18 1.Form Font Times New Roman, Option1 Caption Қара 3. Option2 Caption Қызыл 4. Option3 Caption Жасыл 5. Option3 Caption Көк 6. Check1 Caption Қалың 7. Check2 Caption Курсив 8. TextBox1 Text Аа Әә Бб Вв Гг

19

20

21 Private Sub Option1_Click() Text1.ForeColor = vbBlack End Sub Private Sub Option2_Click() Text1.ForeColor = vbRed End Sub Private Sub Option3_Click() Text1.ForeColor = vbGreen End Sub Private Sub Option4_Click() Text1.ForeColor = vbBlue End Sub

22 Private Sub Check1_Click() Text1.SetFocus End Sub Private Sub Check2_Click() Text1.SetFocus End Sub Private Sub Text1_GotFocus() If Check1.Value = Checked Then Text1.FontBold = True _ Else Text1.FontBold = False If Check2.Value = Checked Then Text1.FontItalic = True _ Else Text1.FontItalic = False End Sub

23 Ү йге тапсырма беттер OptionButton Ауыстырып қ ос қ ыш, CheckBox Жалауша