| Вопрос: Как сделать занесение данных в MsflexGrid? | Добавлено: 16.07.07 00:13 |
Автор вопроса:  robinLib
|
| Необходимо чтобы в Excel при нажатии на кнопку появлялась форма с табличкой, где пользователь может задать в одной из колонок названия. Как это сделать? Ведь в MSflex Grid по умолчанию отсутсвует возможность внесения пользовательских данных с клавиатуры |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #1 | Добавлено: 16.07.07 17:51 |
|
лови нжатие клавишь и посылай их туда, куда надо
типа: Private Sub Grid1_KeyPress(KeyAscii As Integer)
RaiseEvent KeyPress(KeyAscii) Select Case KeyAscii Case 13 'Enter If Grid1.row < Grid1.Rows - 1 Then Grid1.row = Grid1.row + 1 ElseIf Grid1.col < Grid1.Cols - 1 Then Grid1.row = 1 Grid1.col = Grid1.col + 1 End If Grid1.Text = "": Exit Sub Case 32 To 255 If KeyAscii = 46 Then KeyAscii = 44 Grid1.Text = Grid1.Text & Chr(KeyAscii) If KeyAscii = 45 Then Grid1.Text = "-": Exit Sub Case 8 If Len(Grid1.Text) = 0 Then Exit Sub Grid1.Text = Mid(Grid1.Text, 1, Len(Grid1.Text) - 1) End Select Dim f As Single On Error GoTo h f = Grid1.Text Exit Sub h: MsgBox "ВНИМАНИЕ! " & Grid1.Text & " не является числовым значением" Me.Text = "" End Sub |
||
Страница: 1 |