藍色、天空、貓: 【VB.NET 語言】上報練習

2016年7月30日星期六

居裡貓這幾天做了一個小程式的練習，簡稱就叫 "上報" 吧！
但其實也就是把檔案複製到那邊(或是上傳)的概念~

好咧，因為這次這個小程式啊！有比較多一些，那居裡貓就分段落分享了~
不免俗的，也是拜讀了各個先進的教學文才有今天這個小程式的誕生啊！

那我們就開始吧！
首先說說我們有什麼吧！那就請看！

直接看這個程式的長相吧！

看了大家應該會有一些些明白吧？(還是疑惑...ㄎ)

總之今天居裡貓要分享的是上面四個 TextBox 跟四個 Button，

用 Button 來選擇資料夾路徑的功能就對了！

這個功能就是要讓使用者去選擇你要把資料產生在哪一個路徑的 Local Folder；

把資料複製到哪個路徑的 Remote Folder；

把資料上傳到哪個路徑的 NAS Folder；

或是上傳到哪個路徑的 FTP Floder。

當然這邊的 NAS and FTP 路徑當然是模擬啦！不要強求我去生一個出來用麻~

好，按下上面四個開啟資料夾的按鈕就會跳出類似這樣的小視窗~~~

選取好資料夾按下確定之後，我們要把剛剛選擇的資料夾完整路徑顯示在 TextBox 上面。

大家關心的程式碼部分，這就給大家貼上！！！

-----------------------------------------------------------------------------------------------------------------------

'Select Local Folder
Private Sub Btn_Local_Click(sender As Object, e As EventArgs) Handles Btn_Local.Click
Dim Local_FolderBrowser As FolderBrowserDialog = New FolderBrowserDialog
Local_FolderBrowser.ShowDialog()
TxB_Local.Text = Local_FolderBrowser.SelectedPath
End Sub
'Select Remote Folder
Private Sub Btn_Remote_Click(sender As Object, e As EventArgs) Handles Btn_Remote.Click
Dim Remote_FolderBrowser As FolderBrowserDialog = New FolderBrowserDialog
Remote_FolderBrowser.ShowDialog()
TxB_Remote.Text = Remote_FolderBrowser.SelectedPath
End Sub
'Select NAS Folder
Private Sub Btn_NAS_Click(sender As Object, e As EventArgs) Handles Btn_NAS.Click
Dim NAS_FolderBrowser As FolderBrowserDialog = New FolderBrowserDialog
NAS_FolderBrowser.ShowDialog()
TxB_NAS.Text = NAS_FolderBrowser.SelectedPath
End Sub
'Select FTP Folder
Private Sub Btn_FTP_Click(sender As Object, e As EventArgs) Handles Btn_FTP.Click
Dim FTP_FolderBrowser As FolderBrowserDialog = New FolderBrowserDialog
FTP_FolderBrowser.ShowDialog()
TxB_FTP.Text = FTP_FolderBrowser.SelectedPath
End Sub

----------------------------------------------------------------------------------------------------------------------

你可能會想說這有什麼難的？痾的確是沒有難度，

但是整個程式都會講總不能漏了一小個地方吧~到時候因為沒有這個小地方有人會抱怨吧？！

好的！今天的分享就到這裡了，至於其他部分就在之後分享出來了!!!

希望大家會喜歡今天的分享!

感謝網路上各位先進的教學!

藍色、天空、貓