Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:


Пример работы с MSFlexGrid

Поиск:
Код
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long

Private Sub Form_Load()
ListGrid.Cols = 8
ListGrid.Row = 0
ListGrid.Col = 0
ListGrid.ColWidth(0) = 400  'ID
ListGrid.ColWidth(1) = 3400 'ФИО
ListGrid.ColWidth(2) = 800  'Код
ListGrid.ColWidth(3) = 800  'Серия
ListGrid.ColWidth(4) = 800  'Номер
ListGrid.ColWidth(5) = 2800 'Где выдан
ListGrid.ColWidth(6) = 800  'Дата выдачи
ListGrid.ColWidth(7) = 2800 'Место проживания

ListGrid.Row = 0
ListGrid.Col = 0
ListGrid.Text = "Код"
ListGrid.Col = 1
ListGrid.Text = "ФИО"
ListGrid.Col = 2
ListGrid.Text = "ТипД"
ListGrid.Col = 3
ListGrid.Text = "Серия"
ListGrid.Col = 4
ListGrid.Text = "Номер"
ListGrid.Col = 5
ListGrid.Text = "Где выдан"
ListGrid.Col = 6
ListGrid.Text = "Дата регистрации"
ListGrid.Col = 7
ListGrid.Text = "Место проживания"
'Caption = Caption & " - [Без названия]"
End Sub

'*******************************
'* Обработка щелчка - Изменить *
'*******************************

Private Sub ListGrid_DblClick()
'...
''Изменяю запись в ListGrid взятую из Диалога
'ListGrid.TextMatrix(inum, 2) = iType
'ListGrid.TextMatrix(inum, 3) = ChangeRecDlg.sSerial.Text
'ListGrid.TextMatrix(inum, 4) = ChangeRecDlg.iNumb.Text
'ListGrid.TextMatrix(inum, 5) = ChangeRecDlg.sWho.Text
'ListGrid.TextMatrix(inum, 6) = ChangeRecDlg.sData.Text
'ListGrid.TextMatrix(inum, 7) = ChangeRecDlg.sPlast.Text
End Sub

'******************* Добавляю запись ***********
Private Sub Add_Click()
ListGrid.AddItem "1" & vbTab & "В.И.Петров" & vbTab & "Б" & vbTab & _
"123-456" & vbTab & "4" & vbTab & "1-ое отделение" & vbTab & _
"12.03.04" & vbTab & "Ст.-Петербург"
End Sub


'*********************
'* Удалить клиента   *
'*********************

Private Sub DelClient_Click()
Call Del
End Sub

Public Sub Del()
On Error GoTo ErHand
ListGrid.Col = 0
If ListGrid.Text = "" Then Exit Sub

If MsgBox("Вы уверены, что хотите удалить клиента?", vbQuestion + vbYesNo, "Информация") = vbYes Then
   ListGrid.RemoveItem (ListGrid.RowSel)
End If
Exit Sub
ErHand:
MsgBox "Невозможно удалить запись.", vbCritical + vbOKOnly, "Ошибка"
End Sub
Автор: valex13
Сайт: http://






Просмотров: 3606

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную