diff options
| author | Kristian Evers <kristianevers@gmail.com> | 2018-02-19 22:39:17 +0100 |
|---|---|---|
| committer | Kristian Evers <kristianevers@gmail.com> | 2018-02-19 22:39:17 +0100 |
| commit | 43d811d20598abde95a8d177123e9f26fe5229ab (patch) | |
| tree | c66684d7975798109a072b52bce5e7c5f9bd5182 /com/VB6Test.frm | |
| parent | a9e08ad008b1ff16d6139aab5e813058c922eef8 (diff) | |
| parent | efa636e0d9e0cef5a5fff1b7ed76d0368d20121b (diff) | |
| download | PROJ-43d811d20598abde95a8d177123e9f26fe5229ab.tar.gz PROJ-43d811d20598abde95a8d177123e9f26fe5229ab.zip | |
Merge remote-tracking branch 'osgeo/master' into docs-release-4.10.0
Diffstat (limited to 'com/VB6Test.frm')
| -rw-r--r-- | com/VB6Test.frm | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/com/VB6Test.frm b/com/VB6Test.frm deleted file mode 100644 index 9fd7ce07..00000000 --- a/com/VB6Test.frm +++ /dev/null @@ -1,50 +0,0 @@ -VERSION 5.00 -Begin VB.Form Form1 - Caption = "Form1" - ClientHeight = 3090 - ClientLeft = 60 - ClientTop = 450 - ClientWidth = 4680 - LinkTopic = "Form1" - ScaleHeight = 3090 - ScaleWidth = 4680 - StartUpPosition = 3 'Windows Default - Begin VB.CommandButton Command1 - Caption = "Command1" - Height = 615 - Left = 1680 - TabIndex = 0 - Top = 2160 - Width = 975 - End -End -Attribute VB_Name = "Form1" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = False -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Private Sub Command1_Click() - Dim pUTM As PROJ4Lib.IProjDef - Dim pLL As PROJ4Lib.IProjDef - - Set pUTM = New PROJ4Lib.ProjDef - Set pLL = New PROJ4Lib.ProjDef - - pUTM.Initialize ("+proj=utm +zone=11 +datum=WGS84") - pLL.Initialize ("+proj=latlong +datum=WGS84") - - Dim X As Double, Y As Double, Z As Double - - X = 25000 - Y = 3000000 - Z = 0 - - MsgBox X & " " & Y - - If pLL.TransformPoint3D(pUTM, X, Y, Z) = 0 Then - MsgBox "TransformPoint3D " & pLL.GetLastError() - End If - - MsgBox X & " " & Y - -End Sub |