（粤）

上個周末（30/07 - 01/08）走去GEM Island喥玩；亦做咗幾嗰人生“第一次”。。。例如玩“浮潜”（snookering），玩“香蕉船”（Banana Boat），“独木舟”。對于第一次玩“浮潜”嘅感覺就會用一個字嚟形容。。。“爽”吖~ 開始時冇用fin；就搞到點撑點刮都依然游嚟游去仲喺同一個地點左近。。。真辛苦兼累；到咗第二日，亦喺第二次玩“浮潜”嗰時就用咗一對fin；有fin果然“掂”吖。。。眨下眼就游咗好遠嘞！

點解我會講“浮潜”爽。。。因為我可以睇到啲真真實實嘅海洋生物；就今次就已大開眼界囖。。。睇到“海胆”，“小丑鱼”，“海心”，“珊瑚”；虽然唔喺咩奇景，但對于一個“第一次”嘅我嚟講，已经喺好兴奋咗。。。

玩“香蕉船”嗰下仲激吖。。。尤其喺翻船兼落水嗰下。。。“dum~”一聲就已经俾海水掩盖住。。。心想。。。快啲，快啲浮上海面。。。因為克仔喺唔識游水，只喺靠件救生衣頂住啫！成嗰過程就翻咗三次船；真喺够晒“皮”囖！期間又饮咗好多海水。。。啲海水果然好咸吖~

白昼玩水上活動，晚間就休息。。。咁啱有晚就行雷閃電，突然間老婆就問“要出去影啲閃電冇？”就咁两嗰走咗出去做“閃電追捕者”；因為時間同啲器材關系。。。就“走寶”咗两個超靓嘅電光。。。好彩，最后都算有些少收獲；未至于要空手而回。。。

臨回航嗰朝早仲走去做SPA添，仲做到睡着咗添。。。真喺有啲唔好意思添。。。但嗰SPA真喺一流吖~

想知更多有關 GEM Isle ，就嗱嗱聲游览http://www.gemisle.com啦！

             

更多克仔作品。。。 Gem Isle 之旅

(粤）

公司sport club搞嘅Paintball大戦终于喺今朝打開序幕嘞；5人一隊，總共用32隊（公司上上下下）。。。跟住打入八强，四强，半决赛同决赛如此纇推。。。其它嘅就唔多喺處講嘞，就講我哋嗰隊仲整咗嗰好鬼“英”嘅team名~ “S.W.A.T”，而其它两隊就叫"TOMCAT"同"Delta Force"。前幾日我哋嘅三隊仲用email展開一輪熱身口水戦添。。。都未落場就已經咁鬼激囖。。。真爆肚。。。乜鬼image都出齐。。。

點知喺今日争入八强時，我哋竟然又同一组（四隊一组）。。。真喺配到绝吖~ 咁先够feel嘞嘛~ 但就殺出一隊uncle级嘅嚟同我哋争，啲uncle仲好鬼勇，狼建矛吖。打round 1時，我一落場唔到两分鍾我就中頭奖（head shot）兼大脾。。。就咁。。。俾“西”出局嘞~ 唉~ 好彩隊長Steve 够勇兼狠。。。喺近距离连烩两嘢于對方嘅一位女隊員。。。跟住更喺成功搶到旗同带翻大本营啦！

冇幾耐就收到round 2嘅calling嘞；今次醒目咗囖，一落到場嗱嗱聲揾到嗰靓位。有掩护之余又可以狙击敌人~ 就喺呢嗰咁有利嘅位置；我搞掂咗敌方两位成員，其它三位亦俾隊友“辣”低咗。直至用晒嗰50發子弾。。。之後高喊 “冇晒人咗！” 。。。咁更喺隊友搶埋旗就大功告成嘞。。。成嗰round 2直頭靓到痹吖~ 冇隊友俾射中同“西”出局兼攞满分添！

吃完晏後，每一隊好似吃咗啲乜咁；一開戰就聽到啲槍聲“pipi-pakpak”。。。直頭好鬼死激吖！打round 3時有點失手，當走到上次嗰靓位置時。。。以为可以再做多一次狙击手嘅，點知就感觉到自己好似“赖咗嘢”。。。就乱一乱陣脚然后問裁判；當埋翻位時，啲隊友已經喺嚉激戰紧。。。而我就啩住射某一方向嗰陣時。。。就咁一個不留神。。。背後有個敌人叫投降。。。就咁又被“西”咗出局嘞~ 冇幾耐，就全軍覆没咗喇。 最後，打完三個round後只差uncle嗰隊10分啫。。。就咁忍着淚同八强講sayonara喇~

總结就喺，啲feel好鬼靓，又够刺激，啲槍聲又"piak-piak"咁响。。。嘩~ 總知就喺一嗰字。。。掂！

以下就喺啲槍，子弹，同面罩（我哋用嘅喺黑色，黄色喺裁判用嘅）嘞~

             

（華）

作天发现了微軟.NET CF的DateTimePicker Control里的一个问题，就是如果你把PockpetPC的Regional Settings里的Date Format换去'dd-MMM-yyyy'或者用别的Country Settings；比如说'Ducth (Netherlands)'。。。那你DateTimePicker就会出现以下的错误了！

 

以下就是在DateTimePicker.vb里用来建立month selection list的代码：

Private Sub InitMonthContextMenu()Sub InitMonthContextMenu()
    ' create a menu that contains list of months
    m_monthMenu = New ContextMenu

    Dim i As Integer
    For i = 1 To 12
        ' create new menu item and hookup the click event
        Dim item As New MenuItem
        m_monthMenu.MenuItems.Add(item)
        AddHandler item.Click, AddressOf OnMonthMenuClick
        item.Text = DateTime.Parse(String.Format("{0}/1/2000", i)).ToString("MMMM")
    Next i

    ' hookup popup event so can check the current month            
    AddHandler m_monthMenu.Popup, AddressOf OnMonthMenuPopup
End Sub

问题就出现在以下这一行代码，因为那Date Format是M/d/yyyy！每当Regional Settings里的Date Format的第一个单为不是M，那就出现错误了。。。

item.Text = DateTime.Parse(String.Format("{0}/1/2000", i)).ToString("MMMM")

    Dim d As New Date(2000, i, 1)
    item.Text = DateTime.Parse(d).ToString("MMMM")
    d = Nothing

（華）

又碰釘子了~ 一般要创建一个model dialog，我门都会用Form.ShowDialog()；但。。。问题就是此ShowDialog()只会创建一个没有Owner的model dialog，所以新创建的model dialog是和main程序拥有相同的parent window。。。就是desktop window了。这样就会造成用户能够同过Running Program里activate main程序的windows去top level window，这样。。。ShowDialog()就不能再达到如.NET Framework里的ShowDialog(Me)的效果。

此问题已在.NET CF v2里解决了，但在期待.NET CF v2的面世之余。。。以下就是两个不同的解决方案，不防讨论下。

方案一：

'把Form1的Text从Running Program里删除掉
Me.Text = ""

Dim frm As New Form2
'把mdel dialog的Text换去跟Form1.Text一样（不如说Demo）所以能够出现在Running Program List里
frm.Text = "Demo"
'创建model dialog
frm.ShowDialog()
'还原Form1的Text，所以可以出先在Running Program里
Me.Text = "Demo"

'确定Form1就是下一个visible top level window
Me.Capture = True
'此是两个Win32API，详细请游览http://www.pinvokenet
SetForegroundWindow(GetCapture())
Me.Capture = False

'把Form1 hide起来
Me.Hide()

Dim frm As New Form2
'创建model dialog
frm.ShowDialog()

'把Form1 show出来
Me.Show()