01.Public Overrides Sub SetDataGrid(ByRef Dgv As DataGrid, ScrMode As SCR_MODE)
02.
03. _Log.setProcessErrorInfo("BL0003", Reflection.MethodBase.GetCurrentMethod.Name, "CALL")
04. Try
05.
06.
07.
08.
09.
10.
11.
12.
13. Dgv.Columns(0).Header = "Status Data"
14. Dgv.Columns(1).Header = "Delete"
15. Dgv.Columns(2).Header = "ID"
16. Dgv.Columns(3).Header = "Name"
17. Dgv.Columns(4).Header = "License Plate"
18. Dgv.Columns(5).Header = "Phone"
19. Dgv.Columns(6).Header = "Description"
20. Dgv.Columns(7).Header = "Remark"
21. Dgv.Columns(8).Header = "Picture Path"
22. Dgv.Columns(9).Header = "Registered Date"
23. Dgv.Columns(10).Header = "Status"
24.
25. Dgv.Columns(0).Width = 40
26. Dgv.Columns(1).Width = 40
27. Dgv.Columns(2).Width = 30
28. Dgv.Columns(3).Width = 120
29. Dgv.Columns(4).Width = 120
30. Dgv.Columns(5).Width = 100
31. Dgv.Columns(6).Width = 120
32. Dgv.Columns(7).Width = 80
33. Dgv.Columns(8).Width = 200
34. Dgv.Columns(9).Width = 200
35. Dgv.Columns(10).Width = 30
36.
37. Dgv.Columns(9)
38.
39. Dgv.Columns(0).DisplayIndex = 9
40. Dgv.Columns(1).DisplayIndex = 10
41. Dgv.Columns(2).DisplayIndex = 0
42. Dgv.Columns(3).DisplayIndex = 1
43. Dgv.Columns(4).DisplayIndex = 2
44. Dgv.Columns(5).DisplayIndex = 3
45. Dgv.Columns(6).DisplayIndex = 4
46. Dgv.Columns(7).DisplayIndex = 5
47. Dgv.Columns(8).DisplayIndex = 6
48. Dgv.Columns(9).DisplayIndex = 7
49. Dgv.Columns(10).DisplayIndex = 8
50.
51.
52. Dgv.Columns(0).IsReadOnly = True
53. Dgv.Columns(1).IsReadOnly = False
54. Dgv.Columns(2).IsReadOnly = True
55. Dgv.Columns(3).IsReadOnly = True
56. Dgv.Columns(4).IsReadOnly = True
57. Dgv.Columns(5).IsReadOnly = True
58. Dgv.Columns(6).IsReadOnly = True
59. Dgv.Columns(7).IsReadOnly = True
60. Dgv.Columns(8).IsReadOnly = True
61. Dgv.Columns(9).IsReadOnly = True
62. Dgv.Columns(10).IsReadOnly = True
63.
64. If ScrMode = SCR_MODE.NEW_MODE Then
65. Dgv.Columns(1).Visibility = Windows.Visibility.Visible
66. Else
67. Dgv.Columns(1).Visibility = Windows.Visibility.Hidden
68. End If
69.
70. Dgv.RowHeight = 25
71. Dgv.UpdateLayout()
72. Catch ex As Exception
73. _Log.setProcessErrorInfo(ex)
74. MsgBox(ex.ToString)
75. Finally
76. _Log.setEndProcessErrorInfo()
77. End Try
78. End Sub
