• На форуме с 9 декабря 2005г.
  • Сообщений: 80
  • Спасибо: 0

Тема: Передача объектов на задний - передний план в форме

Добрый день!
В стандартном Acad-овском VBA появилась такая проблема.
На форме 2-ва объекта:
1-MsFlexGrid
2-Текстовое поле
Хочу сделать на заднем плане MSFlexGrid , на переднем текстовое поле - Не слушаеться. Текстовое поле остаёться закрытым MSflexGrid. В VB такая же операция получаеться.

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Передача объектов на задний - передний план в форме

> Василий
Самому стыдно за то что посоветую такой вариант, если че придумаю лучше покажу :)
кидаем едит на frame, и он будет выше решетки

  • На форуме с 9 декабря 2005г.
  • Сообщений: 80
  • Спасибо: 0

Re: Передача объектов на задний - передний план в форме

> SmeL
Получаться то оно получиться, но вот в чём дело textbox у меня меняется в размерах в соответствии с шириной, высотой кликнутой ячейки, интересно а у frame одновременно с textbox, размеры менять можно?
Я уже писал часть кода, но в другой теме, приведу его ниже:

Private Sub UserForm_Activate()
s$ = "<Nomer |<Yklon |<Otmetka |<Rasstoinie "
MSFlexGrid1.FormatString = s$
 Text1.Visible = False
End Sub
Private Sub MSFlexGrid1_Click()
Call MSFlexGrid1_RowColChange
End Sub
Private Sub MSFlexGrid1_RowColChange()
With MSFlexGrid1
    Text1.Left = .Left + .CellLeft
    Text1.top = .top + .CellTop
    Text1.Width = .CellWidth
    Text1.Height = .CellHeight
    Text1.Text = .Text
    Text1.Visible = True
    Text1.SetFocus
End With
End Sub
Private Sub Text1_Change()
MSFlexGrid1.Text = Text1.Text
End Sub