zoukankan      html  css  js  c++  java
  • 烟大课表PC端-不仅仅是浏览器和手机APP

    今天上机的时候偷懒没有做项目,看到了13级大神王振学长的个人博客,发现了他制作的网页版烟大课表。

    很早就使用了他制作的手机端的迷你课表。

    对他的技术真的佩服的五体投地。

    好像是他把所有的课表都生成了一个数据库。

    索性又任性了,直接写个PC客户端吧。。。

    用的还是VB。。。

    正题:

    用了两个窗口(form):

    一个用来显示选择学院和班级,一个用来显示课表

    两个按钮(command):

    分别用来实现课表和校历

    四个标签(label):

    前两个是用来实现提示信息,后两个在form2中实现学院班级的提醒和"关于"

    一个webbrowser:

    用来实现网页的打开

    到这里就明白了,其实没什么技术含量,就是用来选择-打开选择的网页。

    Form1:


    源代码:

    Option Explicit
    Public c1 As String
    Public c2 As String
    Dim URL As String
    Private Sub Combo1_Click()
    c2 = Combo1.Text
    If Combo1.Text = "计控" Then
        c1 = "%E8%AE%A1"
    ElseIf Combo1.Text = "EIE" Then
        c1 = "EIE"
    ElseIf Combo1.Text = "对外" Then
        c1 = "%E5%AF%B9%E5%A4%96"
    ElseIf Combo1.Text = "专国" Then
        c1 = "%E4%B8%93%E5%9B%BD"
    ElseIf Combo1.Text = "汉教" Then
        c1 = "%E6%B1%89%E6%95%99"
    ElseIf Combo1.Text = "环材" Then
        c1 = "%E7%8E%AF"
    ElseIf Combo1.Text = "法学" Then
        c1 = "%E6%B3%95"
    ElseIf Combo1.Text = "光电" Then
        c1 = "%E5%85%89"
    ElseIf Combo1.Text = "海院" Then
        c1 = "%E6%B5%B7"
    ElseIf Combo1.Text = "建筑" Then
        c1 = "%E5%BB%BA"
    ElseIf Combo1.Text = "经管" Then
        c1 = "%E7%BB%8F"
    ElseIf Combo1.Text = "生物" Then
        c1 = "%E7%94%9F"
    ElseIf Combo1.Text = "食品" Then
        c1 = "%E9%A3%9F"
    ElseIf Combo1.Text = "数院" Then
        c1 = "%E6%95%B0"
    ElseIf Combo1.Text = "土木" Then
        c1 = "%E5%9C%9F"
    ElseIf Combo1.Text = "外院" Then
        c1 = "%E5%A4%96"
    ElseIf Combo1.Text = "新闻" Then
        c1 = "%E6%96%B0"
    ElseIf Combo1.Text = "机电" Then
        c1 = "%E6%9C%BA"
    ElseIf Combo1.Text = "药院" Then
        c1 = "%E8%8D%AF"
    ElseIf Combo1.Text = "音乐" Then
        c1 = "%E9%9F%B3"
    ElseIf Combo1.Text = "应用" Then
        c1 = "%E5%BA%94"
    ElseIf Combo1.Text = "中文" Then
        c1 = "%E4%B8%AD"
    End If
    End Sub
    
    Private Sub Command1_Click()
    Form2.Label1.Caption = Form1.c2 + "学院" + Form1.Text1.Text + "班级的课表:"
    URL = "http://www.fddcn.cn/adds/ytukb/ytukb.php?xy=" + c1 + "&bj=" + Text1.Text
    Form2.WebBrowser1.Navigate (URL)
    Unload Form1
    Form2.Show
    End Sub
    
    Private Sub Command2_Click()
    Form2.Label1.Caption = "校历:"
    Form2.WebBrowser1.Navigate ("http://cdn.sinacloud.net/ok1234/xl.png")
    
    Unload Form1
    Form2.Show
    End Sub
    
    Private Sub Form_Load()
        Combo1.AddItem "EIE"
        Combo1.AddItem "计控"
        Combo1.AddItem "对外"
        Combo1.AddItem "专国"
        Combo1.AddItem "汉教"
        Combo1.AddItem "环材"
        Combo1.AddItem "法学"
        Combo1.AddItem "光电"
        Combo1.AddItem "海院"
        Combo1.AddItem "建筑"
        Combo1.AddItem "经管"
        Combo1.AddItem "生物"
        Combo1.AddItem "食品"
        Combo1.AddItem "数院"
        Combo1.AddItem "土木"
        Combo1.AddItem "外院"
        Combo1.AddItem "新闻"
        Combo1.AddItem "机电"
        Combo1.AddItem "药院"
        Combo1.AddItem "音乐"
        Combo1.AddItem "应用"
        Combo1.AddItem "中文"
    
    
    End Sub
    

    Form2:

    效果图:


    源代码:

    Option Explicit
    Dim URL As String
    
    Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
    Private Sub Form_Load()
    
    WebBrowser1.Silent = True
    Set Web_V1 = WebBrowser1.Object         '初始化Web_V1对象
    ' WebBrowser1.Navigate ("http://cdn.sinacloud.net/ok1234/xl.png")
    End Sub
    Private Sub Form_Resize()
    WebBrowser1.Top = 380
    WebBrowser1.Left = 50
    WebBrowser1.Height = Me.Height - 400
    WebBrowser1.Width = Me.Width - 200
    Label2.Left = WebBrowser1.Width - 380
    End Sub
    
    Private Sub Label2_Click()
    MsgBox "名称:烟大课表" & vbCrLf & "版本:Ver 1.1" & vbCrLf & "开发:@Mayuko" & vbCrLf & "CSDN博客:" & vbCrLf & "http://blog.csdn.net/mayuko2012" & vbCrLf & "感谢13级王振大神提供的数据库!", vbInformation, "关于"
    End Sub
    
    Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
    On Error Resume Next
        Processed = True
        WebBrowser1.Navigate URL
    End Sub
    
    

    下载:

    烟大课表



    @ Mayuko

  • 相关阅读:
    Vue中axios基础使用(一)_前端前端请求数据
    vue中使用font-awesome
    vue-cli 搭建项目中,img引用资源404
    前端工程化常用的基础lunix命令
    vue运行项目时network显示unavailable
    关于vue中node_modules中第三方模块的修改使用
    tableau extension 调研
    使用 certbot 自动给 nginx 加上 https
    前端常用:复制到剪切板和下载
    ssh 的一个坑
  • 原文地址:https://www.cnblogs.com/mayuko/p/4567477.html
Copyright © 2011-2022 走看看