не срабатывает Application.DoEvents() -как побороть? (решено

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

toxarbk
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 10.08.2011 (Ср) 16:48

не срабатывает Application.DoEvents() -как побороть? (решено

Сообщение toxarbk » 14.11.2011 (Пн) 14:50

Всем привет.
Возникла не совсем понятная затыка, в нижеследующем коде софтинка "замораживается" на весь перебор устройств:
Код: Выделить всё
private sub listdevices()
Dim info As System.Management.ManagementObject
        Dim search As System.Management.ManagementObjectSearcher
        Dim deviceName As String
        search = New System.Management.ManagementObjectSearcher("SELECT * From Win32_PnPEntity")

        For Each info In search.Get()
            Application.DoEvents()
            deviceName = CType(info("Caption"), String)
           Debug.WriteLine(deviceName)
        Next
end sub

Как бы с этим побороться?
Последний раз редактировалось toxarbk 14.11.2011 (Пн) 16:49, всего редактировалось 1 раз.

toxarbk
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 10.08.2011 (Ср) 16:48

Re: не срабатывает Application.DoEvents() - как побороть?

Сообщение toxarbk » 14.11.2011 (Пн) 15:57

Замена запроса на
Код: Выделить всё
search = New System.Management.ManagementObjectSearcher("SELECT * From Win32_PnPEntity Where Manufacturer=""FTDI""")


тоже не помогает. =\

toxarbk
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 10.08.2011 (Ср) 16:48

Re: не срабатывает Application.DoEvents() - как побороть?

Сообщение toxarbk » 14.11.2011 (Пн) 16:48

Проблема решилась выносом операций с System.Management в отдельный поток.


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

    TopList