frminput.frm

这是基于MapX4.0的房屋测绘管理信息系统

VERSION 5.00
Begin VB.Form frmInput 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "当前计算单位：米"
   ClientHeight    =   1125
   ClientLeft      =   7170
   ClientTop       =   5625
   ClientWidth     =   4575
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1125
   ScaleWidth      =   4575
   Begin VB.Frame Frame2 
      Caption         =   "终点"
      Height          =   990
      Left            =   2310
      TabIndex        =   5
      Top             =   30
      Width           =   2175
      Begin VB.TextBox txtAngle 
         Height          =   315
         Left            =   675
         TabIndex        =   9
         Top             =   570
         Width           =   1365
      End
      Begin VB.TextBox txtDistance 
         Height          =   315
         Left            =   675
         TabIndex        =   7
         Top             =   240
         Width           =   1365
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "角度："
         Height          =   180
         Left            =   120
         TabIndex        =   8
         Top             =   645
         Width           =   540
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "距离："
         Height          =   180
         Left            =   120
         TabIndex        =   6
         Top             =   315
         Width           =   540
      End
   End
   Begin VB.Frame frame1 
      Caption         =   "起点"
      Height          =   990
      Left            =   60
      TabIndex        =   0
      Top             =   30
      Width           =   2175
      Begin VB.TextBox txtBeginY 
         Height          =   315
         Left            =   390
         TabIndex        =   4
         Top             =   585
         Width           =   1635
      End
      Begin VB.TextBox txtBeginX 
         Height          =   315
         Left            =   390
         TabIndex        =   3
         Top             =   255
         Width           =   1635
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "Y："
         Height          =   180
         Left            =   165
         TabIndex        =   2
         Top             =   645
         Width           =   270
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "X："
         Height          =   180
         Left            =   165
         TabIndex        =   1
         Top             =   330
         Width           =   270
      End
   End
End
Attribute VB_Name = "frmInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const HWND_TOPMOST = -1
Private Const c = &H2
Private Const SWP_NOSIZE = &H1
Dim Map1 As Map
Private Sub Command1_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
Public Property Let MapX(mapMain As Map)
    Set Map1 = mapMain
End Property
Public Sub SetBeginPoint(ByVal ScreenX As Single, ByVal ScreenY As Single)
    Dim MapX As Double
    Dim MapY As Double
    'convert
    Map1.ConvertCoord ScreenX, ScreenY, MapX, MapY, miScreenToMap
    'display the point
    txtBeginX = CStr(MapX)
    txtBeginY = CStr(MapY)
End Sub
Public Sub SetEndPoint(ByVal ScreenX As Single, ByVal ScreenY As Single)
    Dim MapX As Double
    Dim MapY As Double
    'convert
    Map1.ConvertCoord ScreenX, ScreenY, MapX, MapY, miScreenToMap
    'Calculate the distance
    txtDistance = CStr(Map1.distance(CDbl(txtBeginX), CDbl(txtBeginY), MapX, MapY))
    'calculate the Angle
End Sub
Public Property Let SetDistance(ByVal vNewValue As Double)
    txtDistance = CStr(vNewValue)
End Property