про treeView

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
drronnie
Постоялец
Постоялец
 
Сообщения: 793
Зарегистрирован: 04.03.2002 (Пн) 22:29
Откуда: Украина, Алчевск

про treeView

Сообщение drronnie » 02.07.2003 (Ср) 2:23

Опять вопрос про toolTip... Как убрать с treeview тултип со значением?
И ещё.. во время движения мыши, как узнать над какой записью курсор?
Компиляция - перевод словесного поноса в машинный код.

Cyrax
Cyberninja
Cyberninja
Аватара пользователя
 
Сообщения: 891
Зарегистрирован: 25.04.2002 (Чт) 21:20
Откуда: Magnitogorsk, Russia

Сообщение Cyrax » 02.07.2003 (Ср) 4:58

ToolTip, imho, убрать никак
а про второе
Код: Выделить всё
Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim nTargetNode As Node
    Set nTargetNode = TreeView1.HitTest(x, y)
    If Not nTargetNode Is Nothing Then
        Debug.Print nTargetNode.Text
    End If
End Sub
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.

Welcome to IRC

Vi
Постоялец
Постоялец
 
Сообщения: 739
Зарегистрирован: 25.01.2002 (Пт) 11:03
Откуда: Россия, Ижевск

Сообщение Vi » 04.07.2003 (Пт) 11:48

Код: Выделить всё
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
              (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
              (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const TVS_NOTOOLTIPS = &H80
...

Dim i As Long
...
' NOTOOLTIP
  i = GetWindowLong(TreeView1.hwnd, GWL_STYLE)
  SetWindowLong TreeView1.hwnd, GWL_STYLE, i Or TVS_NOTOOLTIPS
Vita
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН

APMpc
Новичок
Новичок
 
Сообщения: 33
Зарегистрирован: 15.07.2003 (Вт) 7:09
Откуда: Ukraine

Сообщение APMpc » 17.07.2003 (Чт) 6:45

Извините, что влажу в чужую тему :oops: , но как проверить, существует ли Node в TreeView с определенным значением Key?
Мимо, весело звеня карабинами, ПРОЛЕТЕЛА связка альпинистов.

GoGosha
Постоялец
Постоялец
 
Сообщения: 642
Зарегистрирован: 02.08.2002 (Пт) 9:14
Откуда: Russia

Сообщение GoGosha » 17.07.2003 (Чт) 10:37

APMpc писал(а):Извините, что влажу в чужую тему :oops: , но как проверить, существует ли Node в TreeView с определенным значением Key?


Почитай привила, там влезания приветствуются

Вот метод, правда не очень красиво
Код: Выделить всё
Private Sub Form_Load()
    TreeView1.Nodes.Add , , "Test", "Test"
    Print Tests(TreeView1.Nodes, "Test")
End Sub

Function Tests(ColObj As Nodes, elem) As Boolean
    On Error Resume Next
    Dim elem2 As Node
    Err.Clear
   
    Set elem2 = ColObj(elem)
   
    Tests = Err.Number = 0
End Function



RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 17.07.2003 (Чт) 10:50

Я обычно делаю так:

Код: Выделить всё
function nodeexists(tree as treeview, nodekey as string) as boolean
nodeexists = true
for each node in tree.nodes
if node.key = nodekey then exit function
next node
nodeexists = false
end function

APMpc
Новичок
Новичок
 
Сообщения: 33
Зарегистрирован: 15.07.2003 (Вт) 7:09
Откуда: Ukraine

Сообщение APMpc » 18.07.2003 (Пт) 6:41

Большое спасибо :lol: , работат просто замечательно!!!


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: AhrefsBot и гости: 10

    TopList