Dim a, b, index As Integer
If tvwGategories.SelectedItem.Key = "Введение в Microsoft Visual Basic" Then
Select Case index
Case index = 1 'выбрана первая строка из списка Visual Basik
Form1.Show
End Select
ElseIf tvwGategories.SelectedItem.Key = "Delphi" Then
Select Case index
Case index = 1 'выбрана первая строка из списка Delphi
Form2.Show
End Select
Else
End If
нет, что то не то....
давай по парядку:
Dim a, b, index As Integer ' тут я объявляю переменные
If tvwGategories.SelectedItem.Key = "Введение в Microsoft Visual Basic" Then ' тут как я понял идет условие только что такое SelectedItem и Key, далее = "Введение в VB"(тут отязательно писать название ПОДраздела) ?
Select Case a ' тут незнаю?
Case index = 1 'выбрана первая строка из списка Visual Basik ' 'это понял
Form1.Show ' это тоже
End Select
' дальше аналогично
ElseIf tvwGategories.SelectedItem.Key = "Delphi" Then
Select Case b
Case index = 1 'выбрана первая строка из списка Delphi
Form2.Show
End Select
все равно неработает.
