'*********************************************************
' gis 컨트롤 및 맵기능구현
'*********************************************************

Dim m_IsSregion
Dim m_IsSround
Dim intround
Dim lx,ly,rx,ry
Dim dx,dy
Dim IsConnected

'2차원 지도서버에 연결
Sub Window_onLoad()

	X2DOCX.XTDSetDimension 2 '2차원지도 OCX 설정
	X2DOCX.XTDSetWorkPath "c:\windows\c23", "potal_dongtan" ' 지도 워크패스 설정부분 및 tdw 파일명
	ServerConnect ' 서버 연결

End Sub

'2차원 지도서버에 연결해제
Sub Window_onUnload()

	ServerDisconnect ' 서버 연결 해제

End Sub

'서버 연결
Sub ServerConnect() 

	Dim serverIP, serverPort
	
	serverIP = "121.136.131.6" 'ip세팅
	serverPort = 9840 ' 포트
	
	IsConnected = X2DOCX.XDServerConnect(serverIP, serverPort)
	TrafficMode = False
	  
	Select Case IsConnected
		Case 0 '연결안됨
			msgbox "서버 연결에 실패하였습니다." & vbCrLf & "관리자에 문의하세요"
		Case 1 '이미연결됨
			msgbox "이미 접속되어 있습니다."
		Case 2 '연결됨

	End Select



End Sub

'서버 연결 해제
Sub ServerDisconnect()

	If IsConnected > 0 Then
		X2DOCX.XDServerDisConnect
	End If

End Sub


'맵컨트롤 
Sub SetOperationMode(mode)

	Dim pos

	Select Case mode
		Case 0 'none모드

		Case 1 '선택모드
			TrafficMode = False
			X2DOCX.XTDSetMouseState 4
		Case 2 '이동모드
			TrafficMode = False
			X2DOCX.XTDSetMouseState 8
		Case 3 '확대모드
			X2DOCX.XTDSetMouseState 1
		Case 4 '축소모드
			X2DOCX.XTDSetMouseState 3
		Case 5 '전체모드
			X2DOCX.XTDViewSetRect 205243, 410669, 206808, 412232
			X2DOCX.XTDClearTempLayer '템프레이어 비우기.
			X2DOCX.XTDRemoveLayer "accident"
			X2DOCX.XTDRemoveLayer "centerp"
			X2DOCX.XTDRemoveLayer "poixy"
			X2DOCX.XDRenderData
		Case 6 '거리모드
			X2DOCX.XTDClearTempLayer '템프레이어 비우기.
			X2DOCX.XTDRemoveExPoints
			X2DOCX.XTDSetMouseState 9
		Case 7 '면적모드
			X2DOCX.XTDClearTempLayer '템프레이어 비우기.
			X2DOCX.XTDRemoveExPoints
			X2DOCX.XTDSetMouseState 10
		Case 10 '이전모드
			X2DOCX.XTDViewPrevNext(True)
		Case 11 '다음모드
			X2DOCX.XTDViewPrevNext(False)

	End Select
'************************************************************************************
End Sub

'서버접속후 이벤트후 심볼다운로드 
Sub X2DOCX_ServerConnected()
	X2DOCX.XDShowDownLoadState False
	X2DOCX.XDSCDownloadFileAdd "58.bmp", 4, X2DOCX.XTDGetWorkPath ,true
End Sub

'다운로드완료 이벤트
Sub X2DOCX_DownloadComplete()

'	setSymbols
	mainload
End Sub

Sub Poixy(x,y,name)

	X2DOCX.XTDRemoveLayer "startpoi"  '임시레이어 삭제'
	X2DOCX.XTDCreateLayer 1, "startpoi", False 'true:file based , false : memory based
	X2DOCX.XTDLayerSetEditable "startpoi" '임시레이어 편집모드 설정
	X2DOCX.XTDInputExPoint x, y '임시포인트 생성
	'X2DOCX.XTDSetPointAttribute True, 86, 12, 0, 255, 0, 0, name '포인트 속성 : true:고정 86:심볼종류 12:텍스트크기 0:각도  255,0,0:RGB값 
	X2DOCX.XTDSetPointAttribute True, 12, 0, 255, 0, 0, name, "58.bmp" '포인트 속성 : true:고정 86:심볼종류 12:텍스트크기 0:각도  255,0,0:RGB값 
	X2DOCX.XTDCreatePoint "98" '포인트 ID값
	X2DOCX.XDRenderData '랜더링 

End Sub

'카테고리 검색결과 위치이동
Sub Poixymove(x,y,name)

	X2DOCX.XTDRemoveLayer "poixy"  '임시레이어 삭제'
	X2DOCX.XTDCreateLayer 1, "poixy", False 'true:file based , false : memory based
	X2DOCX.XTDLayerSetEditable "poixy" '임시레이어 편집모드 설정
	X2DOCX.XTDInputExPoint x, y '임시포인트 생성
	'X2DOCX.XTDSetPointAttribute True, 86, 12, 0, 255, 0, 0, name '포인트 속성 : true:고정 86:심볼종류 12:텍스트크기 0:각도  255,0,0:RGB값 
	X2DOCX.XTDSetPointAttribute True, 12, 0, 255, 0, 0, name, "58.bmp" '포인트 속성 : true:고정 86:심볼종류 12:텍스트크기 0:각도  255,0,0:RGB값 
	X2DOCX.XTDCreatePoint "99" '포인트 ID값

	X2DOCX.XTDMoveZoomWidth x, y, 500 '화면이동
	X2DOCX.XDRenderData '랜더링

End Sub

'현재화면의 RECT 값 얻기
Sub Rectimport()

	Dim pos
	pos = Split(X2DOCX.XTDViewGetRect, ",")

	window.parent.document.pos.posx.value=pos(0)
	window.parent.document.pos.posy.value=pos(1)
	window.parent.document.pos.reg1.value=pos(2)
	window.parent.document.pos.reg2.value=pos(3)

End Sub