missice's Blog

逛完了真理大學附近的古蹟景點，接下來就要前往滬尾砲台囉！從真理大學這邊到滬尾砲台的距離不算短，我們還是搭公車前往，滬尾砲台也是認識古蹟日的景點之一。比較尷尬的是我們搭乘的公車並沒有直接開到滬尾砲台，我們只好在中途下車慢慢走上去了，看著直達滬尾砲台的公車一部部從我們的身邊經過，實在是~~><

滬尾砲台的入口，是一個拱形的隧道，一走進去就看到兩個穿著殭屍服的人在那晃，還好是大白天，如果是晚上真的會嚇死人。走近一看，原來是兩個年輕人穿著清朝士兵的服裝呀，當然要跟他們合照囉~~

淡水最有名的小吃首推阿給，而在真理街這附近最有名的一家，就是這家「文化阿給」了！到這裡的時候，大約已經是下午兩三點左右了，人潮依然是很多，聽人家說這間是總創店，也不知道是不是真的，就跟台中的太陽餅店一樣，每家都說他們才是最正宗的原創老店，是真是假，誰知道呢？

淡水海關事務司官邸，俗稱為小白宮，為洋樓構造的建築，目前已列為三級古蹟。

接下來我們要前往小白宮，紅毛城往小白宮這段路途算是有點爬坡，也沒有公車，只能靠徒步前進了，途中會經過真理大學、淡江高中。

快到真理大學的時候，首先映入眼簾的是真理大學的大禮拜堂，不知怎地，就深深被這麼唯美的建築給吸引住了，真理大學真的是個漂亮的地方，在這裡唸書很幸福耶！

此行的交通工具全部都是搭乘大眾運輸，搭上公車，前往淡水最有名的"紅毛城"。

其實淡水有名的除了老街、渡輪，就是這些歷史悠久的古蹟了，此行當然也包括相當多的古蹟景點囉！所謂的"賽翁失馬，焉知非福"，雖然剛剛我們沒吃到"只有排骨飯"，可是很碰巧的好運也降臨在我們身上，原本參觀這些古蹟都是需要門票的，結果我們來的這天，正好是什麼"認識古蹟日"，所有的古蹟入場全部免費，整個就是巧合阿！怎麼剛好排這兩天來淡水玩，就剛好遇到古蹟日了呢？@@"

原本是計畫八月中旬要到遊樂園去玩，然後九月再到高雄玩兩天一夜，奈何莫拉克來台，遊樂園沒玩到，而南部受創嚴重，就決定更改行程到淡水玩了！

我和依靜兩個人都沒有搭過高鐵，趁著這個機會，當然也要嘗試一下時速 300km/hr 的感覺，說真的高鐵快雖快，但是票價也是挺高的，於是我們決定一大早出發，搭乘享有65折優惠的班次。我們搭乘的列車是七點多的，高鐵站的旅客沒有我想像的多，上了列車，列車上的人潮也不多。看到這樣的情景，也難怪高鐵的虧損連連，生意沒有特好，負債又高，再加上那些年薪數百、上千萬的肥貓，高鐵整體營運要賺錢，我看真的很困難！

Imports System.Runtime.InteropServices

Public Class Form1

    Private Structure SHFileInfo
        Public hIcon As IntPtr
    End Structure

    Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" (ByVal pszPath As String, ByVal dwFileAttributes As Integer, ByRef psfi As SHFileInfo, ByVal cbFileInfo As Integer, ByVal uFlags As Integer) As IntPtr
    Private Const SHGFI_ICON = &H100
    Private IcoFile As String = ""

    Private Sub DriveList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveList.SelectedIndexChanged
        DirList.Path = DriveList.Drive
    End Sub

    Private Sub DirList_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirList.Change
        FileList.Path = DirList.Path
    End Sub

    Private Sub PatternText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PatternText.TextChanged
        FileList.Pattern = PatternText.Text
    End Sub

    Private Sub FileList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileList.Click
        IcoFile = FileList.Path & "\" & FileList.FileName
        Me.Text = "ShowIcons [" & IcoFile & "]"
        LargeIconPicture.Image = GetIcon(IcoFile)
    End Sub

    Private Function GetIcon(ByRef filename As String) As System.Drawing.Image
        Dim hImg As System.IntPtr
        Dim shinfo As New SHFileInfo
        hImg = SHGetFileInfo(filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON)
        Dim icon As System.Drawing.Icon
        icon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
        Return icon.ToBitmap()
    End Function

End Class

這是在伊莉討論區一個網友提出來的問題，要解決這個問題的原理是這樣的：
按下視窗右上角的關閉鈕會呼叫OnFormClosing跟OnFormClosed這兩個方法，然後這兩個方法又要去呼叫FormClosing跟FormClosed這兩個事件，所以要達成我們的功能，就得複寫掉OnFomClosing或OnFormClosed這兩個方法。語法如下：

    Friend WithEvents notifyIcon1 As System.Windows.Forms.NotifyIcon
    Protected Overrides Sub OnFormClosing(ByVal e As FormClosingEventArgs)
        e.Cancel = True
        Me.components = New System.ComponentModel.Container
        Me.notifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
        notifyIcon1.Icon = New Icon("C:\Dev-Cpp\Icons\Book.ico")
        notifyIcon1.Visible = True
        Me.Visible = False
    End Sub

按兩下icon把Form叫出來可以這樣寫：

最近大家都很迷FACEBOOK，可能是因為裡面有小遊戲可以玩吧！
實在是上班打混，居家旅行，必備網站阿！
今天豬小雅來偷我種的水果，我就msn給小雅說：「放馬過來...」

昨天到公司上班沒多久，突然發現左眼皮在狂跳，
問了幾個人，他們都說：「左眼跳財，右眼跳災！」