Вопросы, вопросы и вопросы

[MIT]

1. Как пользоваться событием DragDrop и DragOver?
2. Как избавиться от моргание стандартного грида при прокручивании списка?
3. Как вывести PopUp по нажатии кнопки мыши?

[Ramzes]

Правила, правила и правила

[MIT]

Ramzes
Это про поиск?
Я ничего не нашел!

[Dmitriy Solomnikov]

Ramzes
Это про поиск?
Я ничего не нашел!

Ты просто не там искал )))

Вообще в примерах с мсдн (101 samples) есть drag drop - я по ним учился. Там вроде нормально написано.

[MIT]

Dmitriy Solomnikov
А я чето забыл про примеры из MDSN...
Спасибо что напомнил!

[MIT]

Вот появилась еще одна проблемка
Есть файл, в нем записаны следующие данные

42,119,161
132,4,16
38,55,57
134,68,110
215,142,16
76,117,183
189,190,198
94,112,114

и эти числа надо поместить в массив структуры
structure c
dim r,g,b as intrger
end structure

т.е. надо
dim arr(4) as c
arr(0).r = 42
arr(0).g = 119
arr(0).b = 161
и т.д.

[Viper]

MIT, а идеи какие-нить по реализации сего уже есть или неужто нет?

[MIT]

Почему же нет? Есть, доже работает,но очень медленно и довольно глючно, т.к. изначально делал для строк вида
123 123 123 123 ...
а под запятые переделать не получилось...

Код: Выделить всё

            Do Until EOF(FN)
                str = LineInput(FN)
                str = Trim(str)
                If Mid(str, 1, 1) <> " " And Mid(str, 1, 1) <> vbTab And Mid(str, 1, 1) <> "/" And Trim(str) <> "" Then
                    For j = 1 To Len(str)
                        c = Mid(str, j, 1)
                        If c = "/" Then Exit For
                        If c <> "/" And c <> " " And c <> vbTab Then
                            newL = False
                            temp &= c

                            If j = Len(str) Then GoTo go1
                        Else
go1:                        If Not newL Then
                                newL = True
                                AddToArray(temp)

                                temp = ""
                            End If
                        End If
                    Next
                End If
                i += 1
            Loop


код конечно очень кривой и писался за полчаса

[Viper]

глючно - это по моему не то слово... это перл под названием "Как не надо кодить" Особливо в приминениее к NET

[MIT]

Писал не я и под VB6

[Viper]

Ну так напиши сам... делов то...

1. Считать строку с файла
2. Поделить ее Split'ом на подстроки
3. Элементы полученного массива присвоить соответствующим членам структуры, не забыв преобразовать к целым числам

и так далее по всем строкам

[MIT]

!Viper!
Спасибо!!!
А как узнать подключен ли комп к Инету, его IP и имя?

[Viper]

!Viper!
Спасибо!!!
А как узнать подключен ли комп к Инету, его IP и имя?

В Поиск. Или даже в FAQ

[MIT]

!Viper!
Поиск не помог, сам сделал.
Как можно узнать индекс выделенного элемента в ListView`е? Фишка с SelectedItems(0).index не катит.
_____________
Есть следующие структуры:
Public Structure Tabs
Dim TabName As String
Dim TabOffset As Integer
Dim Data() As Str
End Structure
Public Structure Str
Dim StrName As String
Dim Offset As Integer
Dim Value As String
End Structure

надо произвести поиск в массиве "As Tabs" элемента TabName на соответствие строки. Перебором очень медленно, а Array.Find по-моему вообще хрень или я чето не догнал.

[Viper]

Надо полагать это два вопроса?

1. В классе ListView имеется два свойства: SelectedIndices - содержит коллекцию индексов выделенных элементов и SelectedItems - коллекция выделенных элементов. Пользуясь этими свойствами весьма просто и изящно можно получить все выделенные элементы.
2. Array.Find весьма рулит в деле поиска. Просто надо правильно применить.

Резюме: код в студию, как пробовал, что не получилось.

[MIT]

!Viper!
С Array.Find я кажется и сам разобрался, а на счет SelectedItems - глючит. Если в событии ListView1_SelectedIndexChanged написать msgbox(ListView1.SelectedItems(0).index), то в первый раз он покажет индекс, а в последующие ListView1.SelectedItems=nothing!!! Может не в том событии ловить надо?

[MIT]

Да, и еще: объясните мне как использовать Popup?

[Viper]

По первому вопросу: вдумайси что показывает ListView1.SelectedItems(0).index и ListView1.SelectedItems

По второму: где popup должен использоваться и какие проблемы?

[MIT]

По первому вопросу: вдумайси что показывает ListView1.SelectedItems(0).index и ListView1.SelectedItems

на счет popup: должен появиться на ListView`e. Как пользоваться им в принципе? Почитал MDSN, нашел несколько примеров, но все сделаны через одно место. Понял только что надо в события ListView`а добавить новое событие...

[Viper]

нды... В ListView, как и в любом другом контроле есть события MоuseDown и MouseUp, проверяешь в одном из них нажатие правой копки и вызываешь экземпляр класса ContextMenuStrip, в который входят нужные тебе пункты.

[MIT]

!Viper!
а про "вызываешь экземпляр класса ContextMenuStrip" я даже не задумывался...
вот еще возникла такая проблема:

Код: Выделить всё

Public Declare Function GetWindowExtEx Lib "gdi32" (ByVal hdc As Integer, ByVal lpSize As Size) As Integer
Public Declare Function GetWindowOrgEx Lib "gdi32" (ByVal hdc As Integer, ByVal lpPoint As POINTAPI) As Integer
Public Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Integer) As Integer

Public Structure SIZE
   Dim cx As Integer
   Dim cy As Integer
End Structure

Dim s As SIZE,temp As Integer
hwnd = FindWindow(vbNullString, Caption)
temp = GetWindowExtEx(hwnd, s)'ругается на эту
temp = GetWindowOrgEx(hwnd, p)'и на эту строку

'так тоже самое
'temp = GetWindowExtEx(GetDC(hwnd), s)
'temp = GetWindowOrgEx(GetDC(hwnd), p)


что не так?
ошибка : A call to PInvoke function 'WinMover!WinMover.mdlMain::GetWindowExtEx' has unbalanced the stack...

[Viper]

странная ругань... Но в объявлениях должно быть ByRef lpSize As SIZE и ByRef lpPoint As POINTAPI.

[MIT]

!Viper!
Точно. Но ByVal написал сам VS2005 при переводе кода с VB6...

[Viper]

Лучше переводить код ручками, чем полагаться на различные конверторы, особенно на тот, что в самой среде VS.

[MIT]

!Viper!
Лучше, но сложнее...

А вот еще проблемка появилась: хочу сделать программу-шутку, которая меняет надписи на кнопках (типа "да" заменить на "угу" и т.д.), но у меня не получается найти их hwnd. Пробовал FindWindow, но он исправно находит только окна, а на кнопки возвращает что-то не то. Может не той функцией ищю?

[tyomitch]

Не той. Надо FindWindowEx.

[MIT]

tyomitch
А что ей передовать надо?

[tyomitch]

Имя, класс и родителя.

[MIT]

tyomitch
а как найти родителя с контролом у которого неизвестен hwnd?
может как-то можно получить массив всех существующих в данный момент hwnd?

[tyomitch]

Можно. EnumWindows.