烟大课表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