【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-frmInput.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    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