⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 校园导游.frm

📁 我用VB做的一个校园导游系统！界面友好
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label11.Left - 400, Form1.Label11.Top - 230)
        Case Is = 3
          Form1.Picture1.Line (Form1.Label10.Left + 200, Form1.Label10.Top - 150)-(Form1.Label13.Left + 550, Form1.Label13.Top - 160)
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label13.Left + 450, Form1.Label13.Top - 60)
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label13.Left + 650, Form1.Label13.Top - 60)
      End Select
    ElseIf drawline(js) = 3 Then
      Select Case drawline(js + 1)
        Case Is = 4
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label16.Left + 500, Form1.Label16.Top + 500)
          Form1.Picture1.Line (Form1.Label16.Left + 500, Form1.Label16.Top + 500)-(Form1.Label16.Left + 600, Form1.Label16.Top + 400)
          Form1.Picture1.Line (Form1.Label16.Left + 500, Form1.Label16.Top + 500)-(Form1.Label16.Left + 600, Form1.Label16.Top + 600)
        Case Is = 2
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label10.Left + 200, Form1.Label10.Top - 150)
          Form1.Picture1.Line (Form1.Label10.Left + 200, Form1.Label10.Top - 150)-(Form1.Label10.Left + 100, Form1.Label10.Top - 250)
          Form1.Picture1.Line (Form1.Label10.Left + 200, Form1.Label10.Top - 150)-(Form1.Label10.Left + 300, Form1.Label10.Top - 250)
        Case Is = 5
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label14.Left + 450, Form1.Label14.Top + 590)
          Form1.Picture1.Line (Form1.Label14.Left + 450, Form1.Label14.Top + 590)-(Form1.Label14.Left + 350, Form1.Label14.Top + 690)
          Form1.Picture1.Line (Form1.Label14.Left + 450, Form1.Label14.Top + 590)-(Form1.Label14.Left + 550, Form1.Label14.Top + 690)
      End Select
    ElseIf drawline(js) = 4 Then
      Select Case drawline(js + 1)
        Case Is = 3
          Form1.Picture1.Line (Form1.Label16.Left + 500, Form1.Label16.Top + 500)-(Form1.Label13.Left + 550, Form1.Label13.Top - 160)
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label13.Left + 450, Form1.Label13.Top - 60)
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label13.Left + 450, Form1.Label13.Top - 260)
      End Select
    ElseIf drawline(js) = 5 Then
      Select Case drawline(js + 1)
        Case Is = 10
          Form1.Picture1.Line (Form1.Label14.Left + 450, Form1.Label14.Top + 590)-(Form1.Label5.Left + 370, Form1.Label5.Top + 450)
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label5.Left + 270, Form1.Label5.Top + 350)
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label5.Left + 270, Form1.Label5.Top + 550)
        Case Is = 3
          Form1.Picture1.Line (Form1.Label14.Left + 450, Form1.Label14.Top + 590)-(Form1.Label13.Left + 550, Form1.Label13.Top - 160)
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label13.Left + 450, Form1.Label13.Top - 260)
          Form1.Picture1.Line (Form1.Label13.Left + 550, Form1.Label13.Top - 160)-(Form1.Label13.Left + 650, Form1.Label13.Top - 260)
      End Select
    ElseIf drawline(js) = 6 Then
      Select Case drawline(js + 1)
        Case Is = 1
          Form1.Picture1.Line (Form1.Label12.Left - 100, Form1.Label12.Top + 100)-(Form1.Label11.Left - 300, Form1.Label11.Top - 130)
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label11.Left - 200, Form1.Label11.Top - 230)
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label11.Left - 200, Form1.Label11.Top - 30)
        Case Is = 7
          Form1.Picture1.Line (Form1.Label12.Left + 200, Form1.Label12.Top - 120)-(Form1.Label15.Left + 60, Form1.Label15.Top)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left + 260, Form1.Label15.Top - 30)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left + 200, Form1.Label15.Top + 230)
        Case Is = 8
          Form1.Picture1.Line (Form1.Label12.Left + 200, Form1.Label12.Top - 100)-(Form1.Label8.Left + 680, Form1.Label8.Top + 600)
          Form1.Picture1.Line (Form1.Label8.Left + 680, Form1.Label8.Top + 600)-(Form1.Label8.Left + 580, Form1.Label8.Top + 700)
          Form1.Picture1.Line (Form1.Label8.Left + 680, Form1.Label8.Top + 600)-(Form1.Label8.Left + 780, Form1.Label8.Top + 700)
      End Select
     ElseIf drawline(js) = 7 Then
      Select Case drawline(js + 1)
        Case Is = 1
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label11.Left - 300, Form1.Label11.Top - 130)
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label11.Left - 200, Form1.Label11.Top - 230)
          Form1.Picture1.Line (Form1.Label11.Left - 300, Form1.Label11.Top - 130)-(Form1.Label11.Left - 400, Form1.Label11.Top - 230)
        Case Is = 6
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label12.Left + 200, Form1.Label12.Top - 120)
          Form1.Picture1.Line (Form1.Label12.Left + 200, Form1.Label12.Top - 120)-(Form1.Label12.Left + 100, Form1.Label12.Top - 80)
          Form1.Picture1.Line (Form1.Label12.Left + 200, Form1.Label12.Top - 120)-(Form1.Label12.Left + 130, Form1.Label12.Top - 240)
        Case Is = 8
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label8.Left + 300, Form1.Label8.Top + 550)
          Form1.Picture1.Line (Form1.Label8.Left + 300, Form1.Label8.Top + 550)-(Form1.Label8.Left + 200, Form1.Label8.Top + 450)
          Form1.Picture1.Line (Form1.Label8.Left + 300, Form1.Label8.Top + 550)-(Form1.Label8.Left + 200, Form1.Label8.Top + 650)
        Case Is = 11
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label7.Left + 300, Form1.Label7.Top + 250)
          Form1.Picture1.Line (Form1.Label7.Left + 300, Form1.Label7.Top + 250)-(Form1.Label7.Left + 200, Form1.Label7.Top + 350)
          Form1.Picture1.Line (Form1.Label7.Left + 300, Form1.Label7.Top + 250)-(Form1.Label7.Left + 400, Form1.Label7.Top + 350)
        Case Is = 12
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label9.Left + 400, Form1.Label9.Top + 850)
          Form1.Picture1.Line (Form1.Label9.Left + 400, Form1.Label9.Top + 850)-(Form1.Label9.Left + 500, Form1.Label9.Top + 750)
          Form1.Picture1.Line (Form1.Label9.Left + 400, Form1.Label9.Top + 850)-(Form1.Label9.Left + 500, Form1.Label9.Top + 950)
      End Select
    ElseIf drawline(js) = 8 Then
      Select Case drawline(js + 1)
        Case Is = 6
          Form1.Picture1.Line (Form1.Label8.Left + 680, Form1.Label8.Top + 600)-(Form1.Label12.Left + 200, Form1.Label12.Top - 100)
          Form1.Picture1.Line (Form1.Label12.Left + 200, Form1.Label12.Top - 100)-(Form1.Label12.Left + 100, Form1.Label12.Top - 200)
          Form1.Picture1.Line (Form1.Label12.Left + 200, Form1.Label12.Top - 100)-(Form1.Label12.Left + 300, Form1.Label12.Top - 200)
        Case Is = 7
          Form1.Picture1.Line (Form1.Label8.Left + 300, Form1.Label8.Top + 550)-(Form1.Label15.Left + 60, Form1.Label15.Top)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left + 260, Form1.Label15.Top + 50)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left + 160, Form1.Label15.Top - 150)
        Case Is = 9
          Form1.Picture1.Line (Form1.Label8.Left + 680, Form1.Label8.Top + 600)-(Form1.Label6.Left + 550, Form1.Label6.Top + 580)
          Form1.Picture1.Line (Form1.Label6.Left + 550, Form1.Label6.Top + 580)-(Form1.Label6.Left + 450, Form1.Label6.Top + 680)
          Form1.Picture1.Line (Form1.Label6.Left + 550, Form1.Label6.Top + 580)-(Form1.Label6.Left + 650, Form1.Label6.Top + 680)
      End Select
    ElseIf drawline(js) = 9 Then
      Select Case drawline(js + 1)
        Case Is = 8
          Form1.Picture1.Line (Form1.Label6.Left + 550, Form1.Label6.Top + 580)-(Form1.Label8.Left + 680, Form1.Label8.Top + 600)
          Form1.Picture1.Line (Form1.Label8.Left + 680, Form1.Label8.Top + 600)-(Form1.Label8.Left + 580, Form1.Label8.Top + 500)
          Form1.Picture1.Line (Form1.Label8.Left + 680, Form1.Label8.Top + 600)-(Form1.Label8.Left + 780, Form1.Label8.Top + 500)
        Case Is = 10
          Form1.Picture1.Line (Form1.Label6.Left + 550, Form1.Label6.Top + 580)-(Form1.Label5.Left + 370, Form1.Label5.Top + 450)
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label5.Left + 470, Form1.Label5.Top + 350)
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label5.Left + 470, Form1.Label5.Top + 550)
      End Select
     ElseIf drawline(js) = 10 Then
      Select Case drawline(js + 1)
        Case Is = 5
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label14.Left + 450, Form1.Label14.Top + 590)
          Form1.Picture1.Line (Form1.Label14.Left + 450, Form1.Label14.Top + 590)-(Form1.Label14.Left + 550, Form1.Label14.Top + 490)
          Form1.Picture1.Line (Form1.Label14.Left + 450, Form1.Label14.Top + 590)-(Form1.Label14.Left + 550, Form1.Label14.Top + 690)
        Case Is = 11
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label7.Left + 250, Form1.Label7.Top - 20)
          Form1.Picture1.Line (Form1.Label7.Left + 250, Form1.Label7.Top - 20)-(Form1.Label7.Left + 150, Form1.Label7.Top - 120)
          Form1.Picture1.Line (Form1.Label7.Left + 250, Form1.Label7.Top - 20)-(Form1.Label7.Left + 350, Form1.Label7.Top - 120)
        Case Is = 9
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label6.Left + 550, Form1.Label6.Top + 580)
          Form1.Picture1.Line (Form1.Label6.Left + 550, Form1.Label6.Top + 580)-(Form1.Label6.Left + 450, Form1.Label6.Top + 480)
          Form1.Picture1.Line (Form1.Label6.Left + 550, Form1.Label6.Top + 580)-(Form1.Label6.Left + 450, Form1.Label6.Top + 680)
      End Select
    ElseIf drawline(js) = 11 Then
      Select Case drawline(js + 1)
        Case Is = 10
          Form1.Picture1.Line (Form1.Label7.Left + 250, Form1.Label7.Top - 20)-(Form1.Label5.Left + 370, Form1.Label5.Top + 450)
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label5.Left + 270, Form1.Label5.Top + 550)
          Form1.Picture1.Line (Form1.Label5.Left + 370, Form1.Label5.Top + 450)-(Form1.Label5.Left + 470, Form1.Label5.Top + 550)
        Case Is = 7
          Form1.Picture1.Line (Form1.Label7.Left + 300, Form1.Label7.Top + 250)-(Form1.Label15.Left + 60, Form1.Label15.Top)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left + 160, Form1.Label15.Top - 150)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left - 40, Form1.Label15.Top - 150)
      End Select
    ElseIf drawline(js) = 12 Then
      Select Case drawline(js + 1)
        Case Is = 7
          Form1.Picture1.Line (Form1.Label9.Left + 400, Form1.Label9.Top + 850)-(Form1.Label15.Left + 60, Form1.Label15.Top)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left - 100, Form1.Label15.Top + 100)
          Form1.Picture1.Line (Form1.Label15.Left + 60, Form1.Label15.Top)-(Form1.Label15.Left - 100, Form1.Label15.Top - 100)
      End Select
    End If
    js = js + 1
  Loop

End Sub

Function liangzuixiao(n As Integer, m As Integer) As Integer
Dim u As Integer
Dim i, k As Integer
Dim s(15) As Integer
Dim min_dist As Integer
Dim dis As Integer
Dim j As Integer
Dim dist(12) As Integer

For i = 1 To 14
zuixiao(i) = 0
Next i


'两点间最短距离算法

Dim jingguo(12, 11) As Integer   '跟踪记录关键行产生时的经过点
For i = 1 To 12
 For j = 1 To 11
 jingguo(i, j) = MAX
 Next j
 Next i
For i = 1 To 12
jingguo(i, 1) = 0 '0作为记录尾的标志
Next i

For i = 1 To 12  '转移关键行数值
 dist(i) = a(n, i)
  s(i) = 0
 Next i
 s(n) = 1   '去处起始点
 
 For i = 1 To 12
 min_dist = MAX

  For j = 1 To 12       '取得关键行最小值
 If s(j) = 0 And dist(j) < min_dist Then
  u = j
  min_dist = dist(j)
  End If
 Next j
 
 s(u) = 1
 
 For j = 1 To 12
  If s(j) = 0 Then
   dis = dist(u) + a(u, j)
    If dis < dist(j) Then
      dist(j) = dis
     For k = 1 To 11
     jingguo(j, k) = jingguo(u, k)
     If jingguo(j, k) = 0 Then
     jingguo(j, k) = u
     jingguo(j, k + 1) = 0
     Exit For
     End If
     Next k
     End If
    End If
  Next j
  Next i
  
  zuixiao(1) = n
  
  j = 1
  Do While jingguo(m, j) <> 0
    zuixiao(j + 1) = jingguo(m, j)
    j = j + 1
   Loop
   zuixiao(j + 1) = m
   zuixiao(j + 2) = 0
   zuixiao(14) = dist(m)
End Function

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
  Image1.Picture = LoadPicture(App.Path & "\picture\zzmap1.jpg")
  Label18.Caption = "郑州工程学院欢迎           您的到来！                                                                                                              郑州工程学院欢迎           您的到来！    "
  Label18.FontSize = 20
  Label18.ForeColor = &HFF&
  Label19.Visible = False
  scount = 0
End Sub

Private Sub Label10_Click()
  If Text2.Text = "" Then
    Text2.Text = "食堂"
  ElseIf Text3.Text = "" Then
    Text3.Text = "食堂"
  Else
    Text2.Text = "食堂"
    Text3.Text = ""
  End If
  Image1.Picture = LoadPicture(App.Path & "\picture\zzmap12.jpg")
  Label18.Caption = "校内共有5家餐厅，校办的有4家，民营一家。其中每家餐厅内又分为好多特色窗口，这些特色窗口经营全国各地的风味特色食品。如重庆小吃，安徽风味，东北风味，可以说是应有尽有。而且每个餐厅的档次也不同，以满足大家不同层次的需要！         欢迎您来品尝！"
  Label18.Top = 1500
  Label18.FontSize = 14
  Label18.ForeColor = &HC00000
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label19.Left = Label10.Left + 250
  Label19.Top = Label10.Top - 230
  Label19.Visible = True
  scount = scount + 1
End Sub

Private Sub Label11_Click()
  If Text2.Text = "" Then
    Text2.Text = "大门"
  ElseIf Text3.Text = "" Then
    Text3.Text = "大门"
  Else
    Text2.Text = "大门"
    Text3.Text = ""
  End If
  Image1.Picture = LoadPicture(App.Path & "\picture\zzmap8.jpg")
  Label18.Caption = "郑州工程学院的大门气势宏伟，主体全部有上等大理石构筑而成。最高处“郑州工程学院”几个大字，古朴，仓劲。背面刻着郑州工程学院的校训！更重要的是，这座大门是由郑州工程学院的老校友捐助而成，凝聚着他们对学校深深的祝福，对在校学生的深切期望！"
  Label18.Top = 1500
  Label18.FontSize = 14
  Label18.ForeColor = &HC00000
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label19.Left = Label11.Left + 300
  Label19.Top = Label11.Top - 200
  Label19.Visible = True
  scount = scount + 1
End Sub

Private Sub Label12_Click()
  If Text2.Text = "" Then
    Text2.Text = "报告厅"
  ElseIf Text3.Text = "" Then
    Text3.Text = "报告厅"
  Else
    Text2.Text = "报告厅"
    Text3.Text = ""
  End If
  Image1.Picture = LoadPicture(App.Path & "\picture\zzmap9.jpg")
  Label18.Caption = "我校的报告厅，占地4500㎡，可容纳近5000人。它功能多：可用于会议，报告，学术交流及文艺演出。有现代化硬件支持：用于报告、讲座、会议的高解像度投影；电脑多媒体联接；音／视频交互式联网；外接音／视频输入；现场摄像及录影等功能。"
  Label18.Top = 1500
  Label18.FontSize = 14
  Label18.ForeColor = &HC00000
End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label19.Left = Label12.Left + 50
  Label19.Top = Label12.Top - 300
  Label19.Visible = True
  scount = scount + 1
End Sub

Private Sub Label13_Click()
  If Text2.Text = "" Then
    Text2.Text = "图书馆"
  ElseIf Text3.Text = "" Then
    Text3.Text = "图书馆"
  Else
    Text2.Text = "图书馆"
    Text3.Text = ""
  End If
  Image1.Picture = LoadPicture(App.Path & "\picture\zzmap2.jpg")
  Label18.Caption = "      我校的图书馆于1959年建立,面积4156㎡。历经40多年的发展，我馆现在已是为一所具有多个学科门类相结合的大学的12000余名师生服务的现代化图书馆。本馆1996年9月在部属高校图书馆计算机应用评估中名列第一。在1999年全省18所本科院校图书馆计算机应用评估中名列第四。"
  Label18.Top = 1500
  Label18.FontSize = 14
  Label18.ForeColor = &HC00000
End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label19.Left = Label13.Left + 50
  Label19.Top = Label13.Top - 300
  Label19.Visible = True
  scount = scount + 1
End Sub

Private Sub Label14_Click()
  If Text2.Text = "" Then
    Text2.Text = "宿舍楼"
  ElseIf Text3.Text = "" Then
    Text3.Text = "宿舍楼"
  Else
    Text2.Text = "宿舍楼"
    Text3.Text = ""
  End If
  Image1.Picture = LoadPicture(App.Path & "\picture\zzmap13.jpg")
  Label18.Caption = "宿舍楼位于操场的右面，学生宿舍楼7栋，教职工宿舍楼1栋，研究生楼1栋。每个学生宿舍均有6个床位，2个储物柜，每人有一个电脑桌，还有宽带接口供学生使用。学生采取公寓化管理，定期洗床单被褥！"
  Label18.Top = 1500
  Label18.FontSize = 14
  Label18.ForeColor = &HC00000
End Sub

Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label19.Left = Label14.Left + 340
  Label19.Top = Label14.Top
  Label19.Visible = True
  scount = scount + 1
End Sub

Private Sub Label15_Click()
  If Text2.Text = "" Then
    Text2.Text = "喷泉"
  ElseIf Text3.Text = "" Then
    Text3.Text = "喷泉"
  Else
    Text2.Text = "喷泉"
    Text3.Text = ""
  End If
  Image1.Picture = LoadPicture(App.Path & "\picture\zzmap4.jpg")
  Label18.Caption = "      喷泉位于实验楼前的广场中央，它成圆形。里面泉水清澈，透过泉水，能够清楚的看到纵横交错的水管，露出水面的喷头象一个个籽饱粒满的莲蓬。到了晚上，高低错落成花形的水柱在五彩的霓虹灯的照耀下，格外美丽！"
  Label18.Top = 1500
  Label18.FontSize = 14
  Label18.ForeColor = &HC00000
End Sub

Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label19.Left = Label15.Left + 50
  L
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -