Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Суживание столбцов табличной формы. / 1 сообщений из 1, страница 1 из 1
18.01.2005, 10:41:46
    #32869388
Arles
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суживание столбцов табличной формы.
Привет!

В идеале задача формулируется так. Разрешить пользователю при помощи мыши суживать столбцы табличной формы только до определенного размера (например, 0,5 см.). Т. е., каждый столбец всегда должен быть заметным. (У меня имеется очень красивая программа, написанная на CLARION-е (без исходных текстов), где это реализовано.)

Упрощенная задача такова. Если пользователь слишком сильно сузил столбец или вообще его скрыл, то минимальная допустимая ширина (например, 0,5 см.) тут же должна устанавливаться автоматически.

Скорее всего, эти две задачи имеют общепринятые решения. Тогда подскажите, пожалуйста. Я же для тестирования при помощи мастера создал простейшую табличную форму и не придумал ничего лучшего, чем следующее:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Form_MouseUp _
  (Button As Integer, Shift As Integer, X As Single, Y As Single)

  'Табличная форма.
  For Each ctl In Me.Controls
    'Контролы состоят из двух типов: Label и TextBox. 
    If TypeOf ctl Is TextBox Then
      If ctl.ColumnHidden Then
        ctl.ColumnHidden = False: ctl.ColumnWidth =  200 
      Else
        If ctl.ColumnWidth <  200  Then ctl.ColumnWidth =  200 
      End If
    End If
  Next

End Sub

Проблема в том, что приложение не всегда работает правильно. Часто суженные или скрытые столбцы не расширяются до 200 твипов. Где ошибка?

Какие есть идеи и решения?

Спасибо.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Суживание столбцов табличной формы. / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]