Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / выделение строки в MSHFLEXGRID / 12 сообщений из 12, страница 1 из 1
07.12.2009, 11:40
    #36351508
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub STGrid_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case  32 
        Select Case STGrid.CellBackColor
            Case &H80FFFF
                STGrid.CellBackColor = &H80000005
            Case &H80000005
                STGrid.CellBackColor = &H80FFFF
        End Select
STGrid.Row = STGrid.RowSel +  1 
End Select
End Sub
Подскажите пожалуйста как мне выделить целиком всю строку.
STGrid.Row = STGrid.RowSel + 1 выделяет только одну ячейку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 12:16
    #36351630
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
по всем ячейкам этой строки пробежаться в цикле и задать цвет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 13:06
    #36351797
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
строка окрашиваетсявся проблем нет.
проблема в том что нужно перевести курсор вниз на одну строку.
STGrid.RowSel выделяет несколько строк. Как мне перевести курсор на другую строку что бы была выделена только одна строка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 13:08
    #36351808
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
grid.Row = 25
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 14:09
    #36351986
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
Konst_Onegrid.Row = 25
ну я так с этого и начал
прикрепляю картинку, надо как на нижнем рисунке.
Интересно почему сбрасывается выделение всей строки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 14:13
    #36351997
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
Код: plaintext
Me.MSHFlexGrid1.SelectionMode = flexSelectionByRow
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 14:31
    #36352056
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
.SelectionMode = flexSelectionByRow - стоит

после
grid.Row = 25

получается верхняя картинка, если кликнуть мышкой то выделяется вся строка.
как перевести курсор на строку чтобы строка была вся выделена
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 14:38
    #36352078
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
Начало и конец выделения определяются свойствами .Row, .Col, .RowSel, .ColSel - это координаты углов выделенного прямоугольника. Соответственно - задайте .Col и .ColSel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 14:58
    #36352133
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
это что-ли надо?

Код: 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.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
Option Explicit
Dim iRow As Integer

Private Sub Command1_Click()
With Me.MSHFlexGrid1

If iRow >= .Rows -  1  Then
    iRow =  0 
End If
iRow = iRow +  1 

.Row = iRow
.RowSel = iRow

.Col =  0 
.ColSel = .Cols -  1 

End With
End Sub

Private Sub Form_Load()
Dim i As Integer

iRow =  1 

With Me.MSHFlexGrid1
.SelectionMode = flexSelectionByRow
.AllowUserResizing = flexResizeColumns
.FillStyle = flexFillRepeat
.FocusRect = flexFocusNone
.BandExpandable( 0 ) = False
.Rows =  21 
.Cols =  10 

.FixedCols =  1 
.FixedRows =  1 

.ColWidth( 0 ) = "300"


.TextMatrix( 0 ,  0 ) = "#"
.TextMatrix( 0 ,  1 ) = "name"

For i =  1  To  20 

.TextMatrix(i,  0 ) = i
.TextMatrix(i,  1 ) = "text " & i
If i Mod  2  Then
.Row = i
.RowSel = i
.Col =  1 
.ColSel = .Cols -  1 
.CellForeColor = vbBlue
.CellBackColor = vbYellow
End If

Next i
.Row = iRow
.HighLight = flexHighlightAlways
End With

Command1_Click

End Sub

Private Sub Form_Resize()
On Error Resume Next
Me.Frame1.Move  0 ,  0 , Me.Width
Me.MSHFlexGrid1.Move  0 , Me.Frame1.Height, Me.Width, Me.Height - Me.Frame1.Height
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2009, 20:18
    #36352844
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
Konst_Oneэто что-ли надо?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Option Explicit
Dim iRow As Integer

Private Sub Command1_Click()
With Me.MSHFlexGrid1

If iRow >= .Rows -  1  Then
    iRow =  0 
End If
iRow = iRow +  1 

.Row = iRow
.RowSel = iRow

.Col =  0 
.ColSel = .Cols -  1 

End With
End Sub

да именно это, т.е. выделение всей следующей нижней строки. Спасибо.
Т.е. свойство SelectionMode(1-By Row) в Property Pages контрола MSHFlexGrid является фикцией.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2009, 12:31
    #36353785
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
почему фикцией?
вы же построчно выделяете, а не поколоночно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2010, 07:45
    #36956117
valdemar_ru
valdemar_ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
выделение строки в MSHFLEXGRID
Имеется ли возможность запретиь выделение более 1 строки ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / выделение строки в MSHFLEXGRID / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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