?? form1.frm
字號:
VERSION 5.00
Begin VB.Form form1
BorderStyle = 3 'Fixed Dialog
Caption = "公交線路隨點隨改"
ClientHeight = 3945
ClientLeft = 45
ClientTop = 330
ClientWidth = 9060
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3945
ScaleWidth = 9060
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "退出"
Height = 435
Left = 7050
TabIndex = 2
Top = 3375
Width = 1890
End
Begin VB.Label Label3
Caption = "請用鼠標拖動圖標的方法修改線路"
Height = 255
Left = 90
TabIndex = 8
Top = 3495
Width = 3210
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "長春站"
Height = 765
Index = 5
Left = 8190
TabIndex = 7
Top = 1725
Width = 270
End
Begin VB.Image Image1
Height = 495
Index = 5
Left = 7785
Picture = "form1.frx":0000
Top = 1170
Width = 1050
End
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
BorderWidth = 2
Index = 4
X1 = 7305
X2 = 7800
Y1 = 1425
Y2 = 1440
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "一面街"
Height = 765
Index = 4
Left = 6645
TabIndex = 6
Top = 1725
Width = 270
End
Begin VB.Image Image1
Height = 495
Index = 4
Left = 6225
Picture = "form1.frx":2081
Top = 1200
Width = 1050
End
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
BorderWidth = 2
Index = 3
X1 = 5715
X2 = 6210
Y1 = 1335
Y2 = 1350
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "八道街"
Height = 765
Index = 3
Left = 5055
TabIndex = 5
Top = 1665
Width = 270
End
Begin VB.Image Image1
Height = 495
Index = 3
Left = 4635
Picture = "form1.frx":4102
Top = 1110
Width = 1050
End
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
BorderWidth = 2
Index = 2
X1 = 4185
X2 = 4680
Y1 = 1380
Y2 = 1395
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "東盛路"
Height = 765
Index = 2
Left = 3525
TabIndex = 4
Top = 1755
Width = 270
End
Begin VB.Image Image1
Height = 495
Index = 2
Left = 3120
Picture = "form1.frx":6183
Top = 1170
Width = 1050
End
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
BorderWidth = 2
Index = 1
X1 = 2610
X2 = 3105
Y1 = 1260
Y2 = 1275
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "民豐街"
Height = 765
Index = 1
Left = 1920
TabIndex = 3
Top = 1455
Width = 270
End
Begin VB.Image Image1
Height = 495
Index = 1
Left = 1545
Picture = "form1.frx":8204
Top = 885
Width = 1050
End
Begin VB.Label Label2
Caption = "1路車線路圖"
BeginProperty Font
Name = "宋體"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3345
TabIndex = 1
Top = 240
Width = 2385
End
Begin VB.Image Image1
Height = 495
Index = 0
Left = 45
Picture = "form1.frx":A285
Top = 1035
Width = 1050
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "樂群街"
Height = 765
Index = 0
Left = 435
TabIndex = 0
Top = 1590
Width = 270
End
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
BorderWidth = 2
Index = 0
X1 = 1095
X2 = 1590
Y1 = 1290
Y2 = 1305
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim x1 As Long
Dim y1 As Long
Dim j As Integer
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
j = Index
End Sub
Private Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim n As POINTAPI
GetCursorPos n
If j > 0 And j < 5 Then
Image1(j).Left = n.X * 15 - Me.Left
Image1(j).Top = n.Y * 15 - Me.Top
Line1(j - 1).x1 = Image1(j - 1).Left + Image1(j - 1).Width
Line1(j - 1).y1 = Image1(j - 1).Top + Image1(j - 1).Height / 2
Line1(j - 1).X2 = Image1(j).Left
Line1(j - 1).Y2 = Image1(j).Top + Image1(j).Height / 2
Line1(j).x1 = Image1(j).Left + Image1(j).Width
Line1(j).y1 = Image1(j).Top + Image1(j).Height / 2
Line1(j).X2 = Image1(j + 1).Left
Line1(j).Y2 = Image1(j + 1).Top + Image1(j + 1).Height / 2
Label1(j).Top = Image1(j).Top + Image1(j).Height + 100
Label1(j).Left = Image1(j).Left + Image1(j).Width / 2
End If
End Sub
Private Sub Command1_Click()
End
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -