煙大課表PC端-不僅僅是瀏覽器和手機APP

標籤：

今天上機的時候偷懶沒有做項目，看到了13級大神王振學長的個人部落格，發現了他製作的網頁版煙大課表。

很早就使用了他製作的手機端的迷你課表。

對他的技術真的佩服的五體投地。

好像是他把所有的課表都產生了一個資料庫。

索性又任性了，直接寫個PC用戶端吧。。。

用的還是VB。。。

正題：

用了兩個視窗（form）:

一個用來顯示選擇學院和班級，一個用來顯示課表

兩個按鈕（command）:

分別用來實現課表和校曆

四個標籤（label）:

前兩個是用來實現提示資訊，後兩個在form2中實現學院班級的提醒和"關於"

一個webbrowser:

用來實現網頁的開啟

到這裡就明白了，其實沒什麼技術含量，就是用來選擇-開啟選擇的網頁。

Form1：

原始碼：

Option ExplicitPublic c1 As StringPublic c2 As StringDim URL As StringPrivate Sub Combo1_Click()c2 = Combo1.TextIf 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 IfEnd SubPrivate Sub Command1_Click()Form2.Label1.Caption = Form1.c2 + "學院" + Form1.Text1.Text + "班級的課表:"URL = "http://www.fddcn.cn/adds/ytukb/ytukb.php?xy=" + c1 + "&bj=" + Text1.TextForm2.WebBrowser1.Navigate (URL)Unload Form1Form2.ShowEnd SubPrivate Sub Command2_Click()Form2.Label1.Caption = "校曆:"Form2.WebBrowser1.Navigate ("http://cdn.sinacloud.net/ok1234/xl.png")Unload Form1Form2.ShowEnd SubPrivate 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 ExplicitDim URL As StringDim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1Private Sub Form_Load()WebBrowser1.Silent = TrueSet Web_V1 = WebBrowser1.Object         '初始化Web_V1對象' WebBrowser1.Navigate ("http://cdn.sinacloud.net/ok1234/xl.png")End SubPrivate Sub Form_Resize()WebBrowser1.Top = 380WebBrowser1.Left = 50WebBrowser1.Height = Me.Height - 400WebBrowser1.Width = Me.Width - 200Label2.Left = WebBrowser1.Width - 380End SubPrivate Sub Label2_Click()MsgBox "名稱:煙大課表" & vbCrLf & "版本:Ver 1.1" & vbCrLf & "開發:@Mayuko" & vbCrLf & "CSDN部落格:" & vbCrLf & "http://blog.csdn.net/mayuko2012" & vbCrLf & "感謝13級王振大神提供的資料庫!", vbInformation, "關於"End SubPrivate 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 URLEnd Sub

下載：

煙大課表

@ Mayuko

煙大課表PC端-不僅僅是瀏覽器和手機APP