Использование средств Visual Basic .NET в создании информационных систем - 62 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

62
Выбор пункта меню «Сортировка Æ По группе»
Private Sub mnuSortGroupItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles mnuSortGroupItem.Click
Dim i As Integer
Dim KeyK(Nmax) As Single
Dim R As TStud = New TStud()
' подготовка к сортировке
For i = 1 To N
R.ReadFromFile(f1, i)
KeyK(i) = R.Group
Next i
' вызов процедуры сортировки
Sort(KeyK, N, Ind)
End Sub
Выбор пункта меню «Сортировка Æ По ФИО»
Private Sub mnuSortFIOItem_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles mnuSortFIOItem.Click
Dim i As Integer
Dim KeyK(Nmax) As String
Dim R As TStud = New TStud()
' подготовка к сортировке
For i = 1 To N
R.ReadFromFile(f1, i)
KeyK(i) = Trim(R.FIO)
Next i
' вызов процедуры сортировки
SortStr(KeyK, N, Ind)
End Sub
Выбор пункта меню «Сортировка Æ Исходный порядок»
Private Sub mnuSortUnsorted_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles mnuSortUnsorted.Click
Dim i As Integer
' возвращение исходных значений массивам Ind и Del
For i = 1 To Nmax
Ind(i) = i
Del(i) = 0

Страницы