-
Notifications
You must be signed in to change notification settings - Fork 1
/
Grid_Edit.vb
71 lines (65 loc) · 1.86 KB
/
Grid_Edit.vb
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
70
71
Imports jakStd20_MathExt
Partial Public Class Grid
Public Sub SetAllElevationTo(value As Double)
For c = 0 To ColCount - 1
For r = 0 To RowCount - 1
GridDtm(r, c) = value
Next
Next
CountValidPoints()
End Sub
Public Function ChangeGridSize(rows As Integer, columns As Integer) As Boolean
Dim res As Boolean
If rows > 0 Then
If columns > 0 Then
ReDim Preserve GridDtm(rows, columns)
res = True
Else
ReDim Preserve GridDtm(rows, ColCount)
res = True
End If
Else
If columns > 0 Then
ReDim Preserve GridDtm(RowCount, columns)
res = True
Else
'No resize applicable
res = False
End If
End If
PntAll = RowCount * ColCount
CountValidPoints()
Return res
End Function
Public Function SetElevation(row As Integer, column As Integer, value As Double) As Boolean
Dim res As Boolean
If row >= 0 And row < RowCount Then
If column >= 0 And column < ColCount Then
GridDtm(row, column) = value
res = True
Else
res = False
End If
Else
res = False
End If
CountValidPoints()
Return res
End Function
Public Sub SetGridOrigin(X As Double, Y As Double)
If IsFinite(X) Then
If IsFinite(Y) Then
MinCoords.X = X
MinCoords.Y = Y
Else
MinCoords.X = X
End If
Else
If IsFinite(Y) Then
MinCoords.Y = Y
Else
'Input not valid
End If
End If
End Sub
End Class