DBGrid Автоматическое изменение ширины ячейки в зависимости от количества текста в ней - VB
Формулировка задачи:
Здравствуйте! Пишу программу на Visual Basic 6.0. Интересует как в компоненте DBGrid сделать автоматическое изменение ширины ячейки в зависимости от количества текста в ней. Когда в огромной ячейке всего 1 цифра, то как-то убого смотрится... Или же посоветуйте подобный компонент для отображения таблиц бд(но при этом должна быть возможность редактирования данных в ячейках). Заранее спасибо.
Решение задачи: «DBGrid Автоматическое изменение ширины ячейки в зависимости от количества текста в ней»
textual
Листинг программы
Option Explicit Sub DBGridLayout(Operation As String) 'сохраняет ширину столбцов Dim lWidth As Long Dim clm As Column Dim lDefWidth As Long ' lDefWidth = DBGrid1.DefColWidth For Each clm In DBGrid1.Columns With cl Select Case LCase(Operation) Case "save" lWidth = .Width SaveSetting App.Title, "Cols" _ CStr(.ColIndex), lWidth Case "load" lWidth = GetSetting(App.Title, _ "Cols", CStr(.ColIndex), _ lDefWidth) .Width = lWidth End Select End With Next clm End Sub Private Sub Form_Load() DBGridLayout "Load" End Sub Private Sub Form_Unload(Cancel As Integer) DBGridLayout "Save" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д