2009年2月25日 星期三

小番茄收成....一顆

之前刻意種的小番茄全掛了,索性全都埋在土裡當肥料,誰知道又長一株番茄,
這次就沒有刻意照顧它,反而活得特別好,
前天發現有一顆番茄紅了,於是把它摘下來,長得還不錯

用手機拍還真是不容易

解析度不夠高,只好多拍幾張了,目前大約還有六顆未熟,也還在陸續開花中,應該可以全吃到吧!

2009年2月19日 星期四

硬碟空間不足

這個問題困擾我好久一段時間,
一開始拿了老姐的 2.5吋30G 的外接硬碟,不夠,
再跟朋友拿一個 2.5"30G 還是不夠,自己衝去買一個120G 2.5",也滿了,
全都放拍過的照片和DV拍的影片,這下子我也體會到人家說的不歸路是什麼意思。

作品是一定要保留的,但是2.5"的硬碟真的很貴,所以再去買一個 3.5吋 640G 外接式,
現在它也面臨滿水位的危機,好死不死,我的120G 2.5" 竟然現在給老子出怪音,
檔案無法刪除,有時出現找不到磁碟機的錯誤訊號,
快要抓狂了,下載 CrystalDiskInfo 2.1.0 來檢查硬碟,
看了中文翻譯還真是快吐血,有部份真的看不懂



來看看原文的寫法吧!


唉~~我輸了!!
不過當務之急還是快點買個備份裝置吧
暫時鎖定 銳銨 STARDOM 2層外接式磁碟陣列子系統(SR3620-2S-SB2)
開始省吃簡用存錢囉~

2009年2月16日 星期一

我當大伯了

2009-02-16
今天早上十點多,弟媳生了一個胖寶寶
3900克,剖腹生,
或許是太大隻了吧!

當上了大伯,感覺好奇妙呀,只覺得又老囉~



不過白白胖胖的粉口愛呢~

2009年2月9日 星期一

2008-08-08 拍婚紗

人生幾乎每個人都會經歷過的階段,
本來想要找朋友幫忙拍就好,不想透過婚紗公司拍攝,
但是卡在租禮服和化妝及訂結婚相關事宜實在煩瑣,
不如請婚紗公司處理,自己花點小錢"消災"了。

2008年八月八日父親節,找了威哥和博仔一起來幫忙側拍,
基本上幾乎所有的婚紗公司都不願讓人側拍的,
可以現在人幾乎人手一台相機,甚至是單眼,若是婚紗公司還不讓人側拍,那真是有點脫節,

我們拍照的地點選擇高美館和鼓山一帶,當天天氣不會很好,
本來打算擇日再拍,但是最後決定出門碰運氣,
幸好出門就出現短暫的陽光和藍天讓我們拍照。







棚拍的部份就不受天氣影響,所以怎麼拍都好看




拍完婚紗只有累~~可以形容,反正一整天下來就只想坐下來好好休息,
我真佩服攝影師可以撐全場。

積欠的作業開始補交囉~

去年為了忙結婚的事,都沒時間更新部落格,
現在漸漸有了一些時間出來,開始整理照片,和一些"往事"
希望還記得並記錄下來,
不然每次見面就會被 "ㄉ一ㄤ" 一次。

只是一堆的東西要整理,硬碟空間又不夠,
要讓那些"陳年往事"浮上台面可要費點心思了,
難道我又要再一次的頭痛了嗎?

限制 Text Box 只能輸入正數含小數 (VB 2005)

一直以為 VB 2005 的 Text Box 可以設定成只輸入數值,可是上網找了半天沒看到,
只好自己寫一段 Code 來達到目的,

在 VB2005 的 Form(frmNumericTxtBox.vb) 中加入四個 Text Box (TextBox1~4 )及一個按鈕 (Button1) 和 Lable (Label1)



在 Text Box 中只能輸入正數,其它的字元都會被過濾掉
===================================================

Public Class frmNumericTxtBox

    Private gstrTmpAs String = ""   '記錄暫存的數值

        ''將TextBox1~4 KeyDown事件都納入Handle 的範圍
    Private Sub TextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, _
                                                                                                            TextBox2.KeyDown, _
                                                                                                            TextBox3.KeyDown, _
                                                                                                            TextBox4.KeyDown()
            ''按下任一鍵時,取出目前的內容值
            Dim myTxtBox As TextBox = Nothing
            myTxtBox = sender
            gstrTmp = myTxtBox.Text
        End Sub


        ''將TextBox1~4 TextChanged事件都納入Handle 的範圍
    Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, _
                                                                                                        TextBox2.TextChanged, _
                                                                                                        TextBox3.TextChanged, _
                                                                                                        TextBox4.TextChanged()
            ''判斷是否為數字,若不是則把暫存內容值填入
            Dim myTxtBox As TextBox = Nothing
            myTxtBox = sender
            If myTxtBox.Text.Trim.Length > 0 Then
                ''限制只能輸入正數,包含小數,但不能有","
                ''因為IsNumeric 對於"," 會視為數字的一種
                ''若要有正負號則把InStr(myTxtBox.Text, "-") > 0 這個條件刪除
                If IsNumeric(myTxtBox.Text) = False Then
                            Or InStr(myTxtBox.Text, " ") > 0 _
                            Or InStr(myTxtBox.Text, ",") > 0 _
                            Or InStr(myTxtBox.Text, "-") > 0 Then
                    myTxtBox.Text = gstrTmp '若其中一個條件不合,就把暫存的值填回TextBox中
                    myTxtBox.SelectionStart = myTxtBox.Text.Length
                Else
                    gstrTmp = myTxtBox.Text.Trim
                End If
            Else
                gstrTmp = ""
            End If
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            ''按下加總時
            Dim myTxtBox As TextBox = Nothing
            Dim myControl As Control = Nothing
            Dim mySum As Double = 0
            ''找出所有的Text Box 然後加總起來
            For Each myControl In Me.Controls
                If TypeOf myControl Is TextBox Then
                    myTxtBox = myControl
                    If myTxtBox.Text.Trim.Length > 0 And IsNumeric(myTxtBox.Text.Trim) = True Then
                        mySum = mySum + CType(myTxtBox.Text.Trim, Double)
                    End If
                End If
            Next
            Label1.Text = "總和: " & vbCrLf & mySum.ToString
        End Sub
End Class
=================================================

==== 2012/01/19 新增以下寫法 ====
另一個寫法是將以下的語法加入 KeyPress 的事件中
Private Sub txtBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress,TextBox2.KeyPress _
                                                                                                                    TextBox3.KeyPress,TextBox4.KeyPress
        '只允許輸入數字
        ' Chr(8) : BackSpace
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> Chr(8) AndAlso e.KeyChar <> "." Then e.Handled = True
    End Sub
=================================================