小番茄收成....一顆

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

用手機拍還真是不容易

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

硬碟空間不足

這個問題困擾我好久一段時間,
一開始拿了老姐的 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-02-16
今天早上十點多,弟媳生了一個胖寶寶
3900克,剖腹生,
或許是太大隻了吧!

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



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

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

=================================================