i have set the picture1 with the scale above. Now, i need to draw region using the coordinates from the "testDepthArea.txt".Code:Private Sub Form_Load() Me.Font.Bold = True With Picture1 .ScaleMode = 3 .AutoRedraw = True .ScaleLeft = 99.7 .ScaleWidth = 101.46667 - 99.7 .ScaleTop = 4.0166694 .ScaleHeight = 2.85667 - 4.0166694 End With End Sub
format "testDepthArea.txt" is like below:
START 42, L, 87=2;88=5
101.28147000 3.20742000
101.27951000 3.20788000
101.27933000 3.20833000
101.27951000 3.20865000
101.28088000 3.20978000
101.28121000 3.21074000
STOP
START 42, A, 87=5;88=10
101.28147000 3.20742000
101.27951000 3.20788000
101.27933000 3.20833000
101.27951000 3.20865000
101.28088000 3.20978000
101.28121000 3.21074000
101.28121000 3.21074000
101.28147000 3.20742000
STOP
i want use the coordinates between the "Start line" and "Stop line" to create a region, then the color to fill the region is refer to the value after 87=XX
maybe need to set the color first.
for example
set 87=5 ----->5 as red
set 87=2------>2 as yellow




Reply With Quote