VERSION 5.00 Begin VB.Form frmMap Caption = "Visual Mapper" ClientHeight = 8250 ClientLeft = 60 ClientTop = 345 ClientWidth = 10695 Icon = "frmMap.frx":0000 LinkTopic = "Form1" OLEDropMode = 1 'Manual ScaleHeight = 8250 ScaleWidth = 10695 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command1 Caption = "Close" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 9675 TabIndex = 11 Top = 45 Width = 945 End Begin VB.CommandButton cbObjects Caption = "Objects" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 105 TabIndex = 10 Top = 45 Width = 945 End Begin VB.PictureBox ScrollCon1 Height = 7710 Left = 75 ScaleHeight = 7650 ScaleWidth = 10500 TabIndex = 0 Top = 495 Width = 10560 Begin VB.CommandButton cbRoom Caption = "Under the Mountain (as Dragon)" DragMode = 1 'Automatic Height = 1000 Index = 0 Left = 360 OLEDropMode = 1 'Manual TabIndex = 3 TabStop = 0 'False Top = 2175 Width = 1500 End Begin VB.CommandButton cbRoom Caption = "Hall" DragMode = 1 'Automatic Height = 1000 Index = 1 Left = 3930 OLEDropMode = 1 'Manual TabIndex = 2 TabStop = 0 'False Top = 2340 Width = 1500 End Begin VB.CommandButton cbRoom Caption = "Kitchen" DragMode = 1 'Automatic Height = 1000 Index = 7 Left = 4650 OLEDropMode = 1 'Manual TabIndex = 1 TabStop = 0 'False Top = 90 Width = 1500 End Begin VB.Line lnPath Index = 0 X1 = 1140 X2 = 4440 Y1 = 2085 Y2 = 345 End Begin VB.Label lblPath Caption = "N" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Index = 0 Left = 4350 TabIndex = 9 Top = 435 Width = 195 End Begin VB.Label lblPath Caption = "S" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Index = 1 Left = 1245 TabIndex = 8 Top = 1650 Width = 165 End Begin VB.Line lnPath Index = 2 X1 = 1995 X2 = 3825 Y1 = 2820 Y2 = 2835 End Begin VB.Image Image1 Height = 480 Left = 2700 Picture = "frmMap.frx":000C Top = 3585 Width = 480 End Begin VB.Line lnPath Index = 1 X1 = 885 X2 = 2715 Y1 = 3315 Y2 = 3780 End Begin VB.Image Image2 Height = 480 Left = 2355 Picture = "frmMap.frx":0316 Top = 4995 Width = 480 End Begin VB.Line lnPath Index = 3 X1 = 585 X2 = 2310 Y1 = 3315 Y2 = 5235 End Begin VB.Label lblPath Caption = "W" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Index = 2 Left = 2025 TabIndex = 7 Top = 2535 Width = 270 End Begin VB.Label lblPath Caption = "E" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Index = 3 Left = 3555 TabIndex = 6 Top = 2940 Width = 180 End Begin VB.Label lblPath Caption = "S" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Index = 4 Left = 2400 TabIndex = 5 Top = 3855 Width = 210 End Begin VB.Label lblPath Caption = "W" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Index = 5 Left = 2025 TabIndex = 4 Top = 5265 Width = 270 End End End Attribute VB_Name = "frmMap" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Type LineType LineIndex As Integer ' lnLine(Index <- this value) Type As Integer ' 1=line to object, 2=line to procedure, 3=line to text ToObjectId As Long ToFunctionId As Long ToText As String Left As Integer Top As Integer Label As String End Type Private Type ItemType Type As Integer ' 1=Object, 2=Function, 3=Text ObjectId As Long Left As Integer Top As Integer Text As String ToolTipText As String Lines(44) As LineType End Type Dim objMove As Control Dim intOffsetTop As Integer Dim intOffsetLeft As Integer Dim intTop As Integer Dim intLeft As Integer Dim boolDragMode As Boolean Private Sub cbRoom_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) ' ' Create new line from objMove to Source ' MsgBox "Make line from Room " & objMove.Index & " to " & Index objMove.Left = intLeft objMove.Top = intTop ' ' Reset any old lines and labels ' boolDragMode = False End Sub Private Sub cbRoom_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer) If Not boolDragMode Then frmMap.lblDragText.Caption = "" frmMap.lblFormDragOver.Caption = "" Set objMove = Source intOffsetLeft = X intOffsetTop = Y intLeft = Source.Left intTop = Source.Top frmMap.lblDragText = "X=" & X & " Y=" & Y & " Top=" & intTop & " Left=" & intLeft & " State=" & State boolDragMode = True End If End Sub Private Sub pMap_DragDrop(Source As Control, X As Single, Y As Single) objMove.Left = X - intOffsetLeft objMove.Top = Y - intOffsetTop boolDragMode = False End Sub Private Sub pMap_DragOver(Source As Control, X As Single, Y As Single, State As Integer) frmMap.lblFormDragOver.Caption = " X=" & X & " Y=" & Y & " OX=" & intOffsetLeft & " OY=" & intOffsetTop ' ' Call MoveLineLabels Subroutine Here ' frmMap.lnPath(0).X1 = (X - intOffsetLeft) + 200 frmMap.lnPath(0).Y1 = (Y - intOffsetTop) End Sub Private Sub Form_Load() Dim h As Integer frmMap.cbRoom(1).Top = h + 10000 End Sub Private Sub ScrollView1_GotFocus() End Sub