| Вопрос: Срочно нужна помощь | Добавлено: 24.12.05 08:04 |
Автор вопроса:  Евгений
|
|
Имеется
Text1(0)… Text1(11) и Text2(0)… Text2(11) Как сделать чтобы при вводе в Text2(0) и т. д. Буквы к, з или ж Text1(0) и т.д. окрашивался в к (красный), з (зеленый) или ж (желтый) в зависимости от того какую букву вводят в Text2(0) и т. д. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Dushes ICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #1 | Добавлено: 24.12.05 08:34 |
|
Private Sub Text2_Change(Index As Integer)
Dim C$, L& On Error Resume Next C = LCase(Text2(Index)) Select Case C Case "к" L = vbRed Case "з" L = vbGreen Case "ж" L = vbYellow Case Else L = vbWhite End Select Text1(Index).BackColor = L End Sub |
||
|
Номер ответа: 2 Автор ответа: DushesICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #2 | Добавлено: 24.12.05 08:35 |
| З.Ы. кому то видимо дали лабу на массивы текстбоксов. | ||
Страница: 1 |