Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Размер переменной... ламерские вопросы... 
:(
    Опции темы
Kurt
Дата 27.8.2003, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Увлеченный
***


Профиль
Группа: Участник Клуба
Сообщений: 1662
Регистрация: 22.8.2003
Где: Краснодар

Репутация: нет
Всего: 36



Я знаю, это очень глупый вопрос, ламерский, но как в VB узнать размер переменной, структуры ("type") в байтах?
Типа Pascal-го "sizeof".
Просто возникла необходимость, ан незнаю... confused.gif
И еще один действительно ламерский вопрос: withstupid.gif
как в MSFlexGrid заставить появится курсор в ячейке? Типа редактировать ячейку вручную.
P.S. Дело в том, что у меня почти нет опыта работы с таблицами в VB...


--------------------
Для корабля, который не знает куда плыть, нет попутного ветра... ((С) Архимед)
...
Все знают, что это невозможно. Но случайно находится невежда, который этого не знает. Он-то и делает открытие.. ((С) А. Эйнштейн)
PM ICQ   Вверх
-Mikle-
Дата 28.8.2003, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59



Цитата
как в VB узнать размер переменной, структуры ("type") в байтах?

Ответ:
Код
Dim msAny as MyStructure
Ln=Len(msAny)

Цитата
как в MSFlexGrid заставить появится курсор в ячейке? Типа редактировать ячейку вручную.

Средствами самого MSFlexGrid - невозможно никак! Но есть выход. Он состоит в том, чтобы ставить TextBox поверх нужной ячейки. Вот как это делается:
Ложишь на форму ТехтВох в одном контейнере с MSFlexGrid. Дальше код: (txtEditCell - ТехтВох, flGrd - MSFlexGrid)
Код

'Эти переменные опиши в области General
Dim chCol as long
Dim chRow as long

private sub flGrd_Click()
  txtEditCell.FontSize = 1
  txtEditCell.Top = flGrd.CellTop
  txtEditCell.Left = flGrd.CellLeft
  txtEditCell.Width = flGrd.CellWidth
  txtEditCell.Height = flGrd.CellHeight
  txtEditCell.Font.Size = flGrd.Font.Size
  txtEditCell.Font.Name = flGrd.Font.Name
  txtEditCell.Text = flGrd.Text
  txtEditCell.Visible = True
  txtEditCell.SelStart = 0
  txtEditCell.SetFocus
  chCol = flGrd.Col
  chRow = flGrd.Row
end sub

private sub txtEditCell_KeyDown(KeyCode as integer, Shift as integer)
  select case KeyCode
  case vbKeyReturn  'Когда нажали Enter
     txteditCell.visible = false
     flgrd.TextMatrix(chRow,chCol)=txtEditCell.text
     'здесь код для изменения полей твоей БД
  case vbKeyEscape  'Когда нажали Esc
     txtEditCell.visible = false
  end select
end sub

private sub txtEditCell_LostFocus()
  'Когда фокус перешел к другому элементу
  'делаем отмену (vbKeyReturn - чтобы запомнить изменения)
  txtEditCell_KeyDown(vbKeyEscape, 0)
end sub

Помоему понятно написал. Писал по памяти, вроде должен работать, нет времени проверить... Будут вопросы, пиши.

PS: никогда не пиши, что твой вопрос ламерский
PPS: в следующий раз, для двух разных вопросов, создавай разные темы, или, в крайнем случае, в теме указывай так, чтоб было понятно обо всех вопросах в этой теме. Форум - прежде всего для начинающих, поэтому имей уважение к другим, которые могут искать ответ на вопрос про редактирование в гриде, и не найдут его, потому что тема называется - "размер переменной"(!!!)
Желаю удачи!


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
Kurt
Дата 29.8.2003, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Увлеченный
***


Профиль
Группа: Участник Клуба
Сообщений: 1662
Регистрация: 22.8.2003
Где: Краснодар

Репутация: нет
Всего: 36



Большое спасибо! smile.gif
Все замечания обязательно учту...


--------------------
Для корабля, который не знает куда плыть, нет попутного ветра... ((С) Архимед)
...
Все знают, что это невозможно. Но случайно находится невежда, который этого не знает. Он-то и делает открытие.. ((С) А. Эйнштейн)
PM ICQ   Вверх
Kurt
Дата 29.8.2003, 01:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Увлеченный
***


Профиль
Группа: Участник Клуба
Сообщений: 1662
Регистрация: 22.8.2003
Где: Краснодар

Репутация: нет
Всего: 36



А вообще не понятно, почему нет компонента как StringGrid в Delphi...
Приходится выдумывать всякую ерунду... confused.gif


--------------------
Для корабля, который не знает куда плыть, нет попутного ветра... ((С) Архимед)
...
Все знают, что это невозможно. Но случайно находится невежда, который этого не знает. Он-то и делает открытие.. ((С) А. Эйнштейн)
PM ICQ   Вверх
Black_Star
Дата 10.9.2003, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4



Цитата
Dim msAny as MyStructure
Ln=Len(msAny)


sad.gif Неверно...
Len - это конечно длина, но не в байтах!...
правильнее будет:
Ln=LenB(msAny)



PM ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.3183 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.