ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / использование таблицы для удобства
25 сообщений из 77, страница 3 из 4
  3  все
использование таблицы для удобства
    #37463829
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Antonariy,

Кое-что было, если помнишь темы:
Прыгающая по экрану кнопка "пуск", мерцание и т.п.....
Утечка памяти, как посмотреть список загруженных в память UserControl-s
VB6: Как помочь убиться юзерконтролу.
но поразрулил, тьфу-тьфу....
...
Рейтинг: 0 / 0
01.10.2011, 11:00
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463899
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
автор унифицированные интерфейсы взаимодействия с формой разномастных контролов позволяют унифицировать и саму обработку это наверно очень захватывающе, но как выполнить эту простую строчку
Код: plaintext
MSFlexGrid1.Text = Text1.Text
AndreTMНу и поменять схему взаимодействия (вернее, сделать нормализацию) - никогда не помешает... ............. т.е.? никаких проблем с реализацией и выполнением программы нет. если вы имели ввиду удобство во время создания - для этого и создан этот топик
...
Рейтинг: 0 / 0
01.10.2011, 14:36
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463921
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
BelowZeroэто наверно очень захватывающе, но как выполнить эту простую строчку
Код: plaintext
MSFlexGrid1.Text = Text1.Text

для тупоголовых и у которых нет гугла и F1
Доступ к содержимому текущей ячейки (которая выделена пользователем) осуществляется через свойство Text.

Код: plaintext
1.
Debug.Print MSFlexGrid.Text
MSFlexGrid.Text = "Привет!"

Для доступа к содержимому произвольной ячейки используется свойство TextArray. Оно имеет один параметр - Index. Это индекс ячейки, содержимое которой нужно изменить или получить. Он вычисляется следующим образом. К номеру столбца ячейки прибавляется произведение ее номера строки на количество колонок, определяемое свойством Cols. Для расчёта индекса ячейки удобно использовать эту функцию:

Код: plaintext
1.
2.
Function GetCellIndex (MSFlexGrid As MSFlexGrid, row As Integer, col As Integer)
GetCellIndex = row * MSFlexGrid.Cols + col
End Function
...
Рейтинг: 0 / 0
01.10.2011, 15:45
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463926
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
timtim,

для тех, кому лень прочитать предыдущие смс, прежде чем ответить, повторюсь: код должен быть в главной форме, текстбокс в главной форме, талицу пришлось запихнуть в контрол. как управлять ею из главной формы - хз. с таблицей проблем нет, инструкцию, которую вы предоставили, я прочитал на сайте по программированию после первого упоминания мсгрид в этом топике
...
Рейтинг: 0 / 0
01.10.2011, 15:58
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463934
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
BelowZeroдля тех, кому лень прочитать предыдущие смс
надо формулировать свой вопрос чётко и ясно, а не рассирать на несколько страниц
...
Рейтинг: 0 / 0
01.10.2011, 16:07
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463942
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
timtim,

вопрос я поставил чётко в первом же смс. треть остальных смс занимают ответы по вытекающим из основной темы вопросам, треть флуд по погоде и посторонним темам, треть обвинение во влуде с засиранием топика на несколько страниц.
...
Рейтинг: 0 / 0
01.10.2011, 16:33
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463944
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
timtimДля доступа к содержимому произвольной ячейки используется свойство TextArrayЗачем так сложно, если есть TextMatrix?
...
Рейтинг: 0 / 0
01.10.2011, 16:34
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463945
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BelowZeroдля тех, кому лень прочитать предыдущие смс, прежде чем ответить, повторюсь: код должен быть в главной форме, текстбокс в главной форме, талицу пришлось запихнуть в контрол. как управлять ею из главной формыдля тех, кому лень читать мои ответы, повторю - это делается через публичное свойство, метод или функцию контрола.
Как создать свой метод - я сказал
Как воспользоваться методом - сказал AndreTM
...
Рейтинг: 0 / 0
01.10.2011, 16:36
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463946
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Shocker.ProЗачем так сложно, если есть TextMatrix?
Я так понял, что ТС не нужно легкого решения.
...
Рейтинг: 0 / 0
01.10.2011, 16:40
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463947
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
прикладываю пример
считаю, что этого достаточно для понимания автором способа реализации его желания
...
Рейтинг: 0 / 0
01.10.2011, 16:43
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37463987
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
автор талицу пришлось запихнуть в контрол.
Чем вызвана такая необходимость?
...
Рейтинг: 0 / 0
01.10.2011, 17:49
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464078
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
alex77755автор талицу пришлось запихнуть в контрол.
Чем вызвана такая необходимость?

цель топика: видеть, что и как происходит на уровне создания программы. если таблица не в контроле, от неё нет толку
...
Рейтинг: 0 / 0
01.10.2011, 20:50
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464082
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

пасяп, теперь моя копилка знаний пополнена примером вызова контрола из формы. но строчка
Код: plaintext
MSFlexGrid1.Text = Text1.Text
по-прежнему невыполнима. первое, что приходит на ум, разместить в контроле
Код: plaintext
1.
2.
Public Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
MSFlexGrid1.Text = Me.Form1.Text1.Text 'конечно же ошибка
End Sub
...
Рейтинг: 0 / 0
01.10.2011, 21:21
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464118
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Вы до сих пор так ничего и не почитали?
Me внутри MSFlexGrid - это сам флекс. Где там в нем вы нашли Form1... etc?

Даю наводку - любой объект имеет свойство Parent - указатель на объект-родитель.
Если у вас MSFlexGrid расположен на Form1 - то обратиться к контролам формы "изнутри" флекса можно через MSFlexGrid1.Parent.<control>... При этом для уверенности - надо проверять, тот ли объект возвращен в качестве родителя.
...
Рейтинг: 0 / 0
01.10.2011, 23:01
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464227
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
авторчто и как происходит на уровне создания программы
Никогда не интересовало. Зачем?
Запустил в режиме отладки. Прошел пошагово. Всё видно.
Зачем необоснованно создавать себе проблему и потом искать пути её решения?
...
Рейтинг: 0 / 0
02.10.2011, 10:43
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464231
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
AndreTM Me внутри MSFlexGrid - это сам флекс.Интересно, как вы попали внутрь MSFlexGrid?
...
Рейтинг: 0 / 0
02.10.2011, 10:53
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464233
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
авторпо-прежнему невыполнима
Отнюдь! Элементарно на базе твоего примера:
...
Рейтинг: 0 / 0
02.10.2011, 11:07
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464239
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
На контроле тексбокс "Текст1" без рамки
В контроле:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Option Explicit
Dim RR, CC
Public Sub Записат(R As Integer, C As Integer, VALUE As String)
 MSFlexGrid1.TextMatrix(R, C) = VALUE
End Sub
Private Sub MSFlexGrid1_Click()
RR = MSFlexGrid1.Row
CC = MSFlexGrid1.Col
Текст1.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
Текст1.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
Текст1.Width = MSFlexGrid1.CellWidth
Текст1.Text = MSFlexGrid1.Text
Текст1.Visible = True
Текст1.SetFocus
End Sub

Private Sub MSFlexGrid1_SelChange()
MSFlexGrid1.TextMatrix(RR, CC) = Текст1.Text
Текст1.Text = ""
Текст1.Visible = False
End Sub
...
Рейтинг: 0 / 0
02.10.2011, 11:19
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37464243
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BelowZeroпасяп, теперь моя копилка знаний пополнена примером вызова контрола из формы. но строчка
Код: plaintext
MSFlexGrid1.Text = Text1.Text
по-прежнему невыполнима. первое, что приходит на ум, разместить в контролепопробуй сам себе объяснить, чем отличается обращение к MSFlexGrid1.Text от обращения к MSFlexGrid1.Rows в моем примере? Я тебе объяснил, как посчитать яблоки в корзинке. Ты же все равно говоришь, что не можешь посчитать груши в корзинке, потому что знаешь только как считать яблоки.

Не делай сам из себе идиота. Я даю тебе сутки на размышление над моим примером без возможности задать вопрос. Тогда тебе ПРИДЕТСЯ подумать, чего тебе так не хочется.

ЗЫ: Обращение через Parent конечно можно сделать, но это не совсем правильно с точки зрения построения программы....
...
Рейтинг: 0 / 0
02.10.2011, 11:41
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37476197
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
ещё раз извините за долгое отсутствие в своём же топике...

alex77755, в вашем примере текстбокс находится в контроле, а не на форме, что требуется в задаче(т.е. уметь обмениваться данными между контролом и формой) а насчёт exe файлов... очень уж я их не люблю, так как в 99,98% это вирусы. если даже нет, то толку в решении проблемы нет. если только вы не хотите похвастаться тем, что вы решили задачу, а я ещё нет)
буду экспериментировать...
...
Рейтинг: 0 / 0
10.10.2011, 20:24
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37476212
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
вот она, заветная строчка:
Код: plaintext
Parent.Text1.Text
никакой логики или прыжков выше головы. всё что нужно было, это антоним к me. им оказался parent. такими несложными, но полезными ответами длина топиков сократится в десятки раз)
...
Рейтинг: 0 / 0
10.10.2011, 20:42
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37476221
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
остались актуальными 2 темы: 1)сделать несколько столбиков невидимыми. 2)изменять ширину некороых стобиков(это решит и первую задачу, т.к. длину некоторых столбиков можно будет поставить на 0, т.е. спрятать их. сам работаю над третьей, неполучится - отпишусь
...
Рейтинг: 0 / 0
10.10.2011, 20:56
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37476268
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
чтобы не затруднять чтение топика, создам новую тему
...
Рейтинг: 0 / 0
10.10.2011, 22:01
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37476895
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
В контроле:
Код: plaintext
1.
2.
Public Sub Shirina(C As Integer, SH As Integer)
 MSFlexGrid1.ColWidth(C) = SH
End Sub
на форме:
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Комманда2_Click()
Dim C As Integer, SH As Integer
C = InputBox("Номер столбца", "",  2 )
SH = InputBox("И его ширина", "",  500 )
Me.UserControl11.Shirina C, SH
End Sub
...
Рейтинг: 0 / 0
11.10.2011, 12:16
| Ответить | Цитировать | Написать  
использование таблицы для удобства
    #37487644
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
как управлять объектами в контроле из главной формы? можно конешь создать в контроле событие и вызывать его, но это как-то неправильно.
Me.UserControl11.MSFlexGrid1.Rows = 1
не работает
...
Рейтинг: 0 / 0
18.10.2011, 19:33
| Ответить | Цитировать | Написать  
25 сообщений из 77, страница 3 из 4
  3  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / использование таблицы для удобства
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37463947&tid=2158369]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 49ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 355ms
total:  499ms
созд. / загр.: 499ms
x
x
Закрыть


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