ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
25 сообщений из 30, страница 1 из 2
  1  все
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630702
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Вот код который выполняется после выбора опции в контекстном меню. Создается запись в таблице БД, добавляется ListItems в ListView и потом нужно отредактировать данные. Не получается войти в режим редактирования программно. Посоветуйте что-то. Спасибо.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Private Sub PopUpMenuListViewCreateComponent_Click()

Dim db As Database
Dim rstCustomers As DAO.Recordset
Dim itmX As Object

Me!lvListView.SmallIcons = Me.ImageList1

Set db = OpenDatabase("C:\ADLib\DbLib\MainLib.mdb")
db.Execute ("INSERT INTO T_Devices ( ParentID, Name, [Library Ref], [Library Path], [Footprint Ref], [Footprint Path] ) VALUES (" & Me.Text1 & ", 'Новый компонент', '@', 1, '@', 1);")


Set rstCustomers = db.OpenRecordset("SELECT * From T_Devices WHERE (((T_Devices.ParentID)=" & Me.Text1 & ") AND ((T_Devices.Name)=" & "'Новый компонент'" & "));", , dbOpenForwardOnly)

If rstCustomers.RecordCount <>  0  Then
   rstCustomers.MoveFirst
   Set itmX = lvListView.ListItems.Add(, "@" & rstCustomers!ID, "Новый компонент")
   S1 = "One"
   itmX.SmallIcon = "One"
   itmX.SubItems( 1 ) = "@"
   itmX.SubItems( 2 ) = "@"
   itmX.Selected = True
   Me!lvListView.StartLabelEdit
End If

End Sub
...
Рейтинг: 0 / 0
16.05.2010, 17:12
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630712
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
MSDNThe StartLabelEdit method must be used to initiate a label editing operation when the LabelEdit property is set to 1 (Manual).
...
Рейтинг: 0 / 0
16.05.2010, 17:20
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630717
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Чет не помогло:(
В режиме конструктора формы зашел в св-ва ListView и выбрал для LabelEdit "1-lvmManual"
После этого не получается и просто руками редактировать итемс.
...
Рейтинг: 0 / 0
16.05.2010, 17:28
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630720
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну а зачем вы сюда кучу постороннего кода вывалили?
У вас просто в чистом виде Me!lvListView.StartLabelEdit работает?
...
Рейтинг: 0 / 0
16.05.2010, 17:32
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630724
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.ProНу а зачем вы сюда кучу постороннего кода вывалили?
У вас просто в чистом виде Me!lvListView.StartLabelEdit работает?

так уж и кучу?
как понимать "просто в чистом виде"?
Поставил кнопку на форму, в обработчике нажатия написал Me!lvListView.StartLabelEdit, скомпилил, при нажатии фокус исчезает и в режим редактирования не попадаю ни разу.
...
Рейтинг: 0 / 0
16.05.2010, 17:36
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630740
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что-то не верится. Отделите этот листвью на отдельную форму, кнопку с кодом заполнения тестовыми данными и старта редактирования метки и положите эту форму сюда.
...
Рейтинг: 0 / 0
16.05.2010, 17:46
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630762
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.ProЧто-то не верится. Отделите этот листвью на отдельную форму, кнопку с кодом заполнения тестовыми данными и старта редактирования метки и положите эту форму сюда.

Только не ругайтесь пожалуйста. Сейчас такое время что пользоватли (вот например я) вынуждены заниматься программированием.
Итак, я создал форму с именем Form1 повесил на нее листвью и имаджелист, написал простой код для события открытия формы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Form_Load()
Dim itmX As Object
Me!ListView.ListItems.Clear
Me!ListView.SmallIcons = Me.ImageList1
Set itmX = ListView.ListItems.Add(, "@" & rstCustomers!ID, rstCustomers!Name)
itmX.SmallIcon = "One"
End Sub
Как мне теперь эту форму вызвать из основной формы программы? Еще раз прошу прощения за "хамство" в сути вопроса.
...
Рейтинг: 0 / 0
16.05.2010, 17:59
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630766
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Form_Load()
Dim itmX As Object
Me!ListView1.ListItems.Clear
Me!ListView1.SmallIcons = Me.ImageList1
Set itmX = ListView.ListItems.Add(, "@" &  1 , "Hello World")
itmX.SmallIcon = "One"
End Sub
Исправил ошибки :)
...
Рейтинг: 0 / 0
16.05.2010, 18:01
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630769
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_Load()
Dim itmX As Object
Me!ListView1.ListItems.Clear
Me!ListView1.SmallIcons = Me.ImageList1
Set itmX = ListView.ListItems.Add(, "@" &  1 , "Hello World")
itmX.SmallIcon = "One"

Me!ListView1.StartLabelEdit

End Sub

Окончательный вариант тестового кода.
...
Рейтинг: 0 / 0
16.05.2010, 18:03
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630777
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
поставьте
Код: plaintext
Me!lvListView.SetFocus
перед
Код: plaintext
Me!lvListView.StartLabelEdit
...
Рейтинг: 0 / 0
16.05.2010, 18:06
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630788
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.Proпоставьте
Код: plaintext
Me!lvListView.SetFocus
перед
Код: plaintext
Me!lvListView.StartLabelEdit


неа, не получается
на .SetFocus вообще ругается:(

сейчас вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim itmX As Object
Me!ListView1.ListItems.Clear
Me!ListView1.SmallIcons = Me.ImageList1
Set itmX = ListView1.ListItems.Add(, "@" &  1 , "Hello World")
itmX.SmallIcon = "One"

'Me!ListView1.SetFocus
Me!ListView1.StartLabelEdit
...
Рейтинг: 0 / 0
16.05.2010, 18:14
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630790
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Шо за дела?
Где почитать, ну обидно даже немного становится(((((9
...
Рейтинг: 0 / 0
16.05.2010, 18:15
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630794
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
tutti-fruttiнеа, не получается
на .SetFocus вообще ругается:(

Все работает, в том числе ваш код, в том числе в режиме Automatic (это я не так трактовал msdn).

Только SetFocus нужен.


Вообще ругается - сделайте, чтобы вообще не ругался.
...
Рейтинг: 0 / 0
16.05.2010, 18:18
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630798
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.Protutti-fruttiнеа, не получается
на .SetFocus вообще ругается:(

Все работает, в том числе ваш код, в том числе в режиме Automatic (это я не так трактовал msdn).

Только SetFocus нужен.


Вообще ругается - сделайте, чтобы вообще не ругался.
...
Рейтинг: 0 / 0
16.05.2010, 18:22
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630812
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
на какой строке?
...
Рейтинг: 0 / 0
16.05.2010, 18:29
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630815
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.Proна какой строке?
Me!ListView1.SetFocus
...
Рейтинг: 0 / 0
16.05.2010, 18:32
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630820
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
tutti-fruttiShocker.Proна какой строке?
Me!ListView1.SetFocus

Значит у вас ListView1 запрещен (Enabled=False). Хотя вроде не должен, так как вы говорите, что вручную редактирование метки работает. Короче, давайте форму.
...
Рейтинг: 0 / 0
16.05.2010, 18:39
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630830
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.Protutti-fruttiShocker.Proна какой строке?
Me!ListView1.SetFocus

Значит у вас ListView1 запрещен (Enabled=False). Хотя вроде не должен, так как вы говорите, что вручную редактирование метки работает. Короче, давайте форму.
...
Рейтинг: 0 / 0
16.05.2010, 18:45
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630835
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Блин, как я сразу не заметил!
Код: plaintext
Private Sub Form_Load()

Вы что же, хотите запустить редактирование или установить фокус, когда форма еще не загружена и не видна на экране? Не выйдет.
...
Рейтинг: 0 / 0
16.05.2010, 18:57
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630842
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.ProБлин, как я сразу не заметил!
Код: plaintext
Private Sub Form_Load()

Вы что же, хотите запустить редактирование или установить фокус, когда форма еще не загружена и не видна на экране? Не выйдет.

Да, заработало. Буду разбираться ,почему в основной программе не получается. Спасибо!
...
Рейтинг: 0 / 0
16.05.2010, 19:06
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630846
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
tutti-fruttiДа, заработало. Буду разбираться ,почему в основной программе не получается. Спасибо!

А что, там SetFocus не помогает? Я-то думал, что вы сразу там его попробуете...
...
Рейтинг: 0 / 0
16.05.2010, 19:11
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630868
tutti-frutti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tutti-frutti
Участник
Shocker.Protutti-fruttiДа, заработало. Буду разбираться ,почему в основной программе не получается. Спасибо!

А что, там SetFocus не помогает? Я-то думал, что вы сразу там его попробуете...

Сразу и попробовал. Методы:
Me!lvListView.SetFocus
Me!lvListView.StartLabelEdit
выполняются, но после этого нет режима редактирования, такое чувство, что происходит еще некоторое событие/действие и именно оно и "сбрасывает" все.
Нужно внимательно просмотреть свой код и почитать что пишут умные люди на этот счет.
...
Рейтинг: 0 / 0
16.05.2010, 19:37
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630873
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Может быть сбрасывает факт исчезновения контекстного меню, ща попробую
...
Рейтинг: 0 / 0
16.05.2010, 19:44
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630880
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProМожет быть сбрасывает факт исчезновения контекстного меню, ща попробую

Не, не сбрасывает... на тестовой форме работает исправно.
У вас там по таймеру ничего не мигает, не перерисовывается?
...
Рейтинг: 0 / 0
16.05.2010, 19:47
| Ответить | Цитировать | Написать  
Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
    #36630884
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Кстати, а меню точно контекстное?
У меня вот одно и то же меню - если вызывать через popup - работает, а если как обычное меню - нет.

И вообще, очень интересный эффект для обычного меню. Если фокус стоял где-нить еще - все нормально срабатывает, а если фокус уже стоял на ListView - не срабатывает.

Предлагаю сделать вызов через таймер 1ms
...
Рейтинг: 0 / 0
16.05.2010, 19:55
| Ответить | Цитировать | Написать  
25 сообщений из 30, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не получается использовать ".StartLabelEdit" ListView, подсоветуйте куда копать ->
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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