求救 VB程式語言

小弟急需要製作一個照片管理系統,目前有下列幾個問題.......

1.關於VB舊檔名變更成新建檔名部分,表單上設置了Text1(舊檔名)、Text2(新建檔名)、Command(儲存檔名),請問該如何讓已經設定好的新建檔名,透過Command(儲存檔名)按鈕按一下後,此時Text1(舊檔名)同步變更檔名,且File清單上的檔案也同步變更檔名。

2.關於VB刪除檔案之按鈕部分,目前表單上設置了File、Command3(刪除檔案),該如何當選定File清單裡面之資料檔案,再透過按下刪除檔案按鈕,即直接於File清單內刪除檔案。

3.目前搜尋部分,標單上設置了Command1、ComboBox1、File1,搜尋部分以解決,當在ComboBox上輸入檔案關鍵字,按下搜尋紐按鈕Command,即可搜尋File清單內相關該關鍵字之所有檔案,接著問題則是如何該使當選定好想要的ComboBox上的檔案名稱後,使File清單上同步標示顯示出該檔案。

感謝~~~~~

Update:

關於第一點部分,變更檔名部分,我已經測試出來了

至於如何讓file所點選資料同步變更檔名部分,還在測試中

Update 2:

首先感謝W.J.S大大

第三部分,如果這樣加的話,是將搜尋好的相關關鍵字部分的全部檔案秀在File清單上面,不過我是想要將搜尋到需要的檔案,點選那個檔案後,File清單上同步顯示此檔案名稱。

這樣如此當我搜尋選擇我需要的檔案後,則無法同步在File清單上顯示我所選擇的檔案

Update 3:

第二部分 刪除檔案 以解決

第一部分,我加入那段程式碼後,File清單上的檔案,沒有同步變更檔名說。

現在 我利用幾個控制鈕選擇我所需要的檔案的新名稱,透過Command2按鈕讓 Text1.Text(舊檔名)=Text2.Text(新建檔名),我想讓此時File1上我所指定的檔案也同步變更新檔名,如此程式碼該如何寫入????????

Update 4:

第一步份,也就是電腦放照片那個資料夾的檔案也同步變更檔名

Update 5:

第三部份剛剛測試出來了

Private Sub Combo2_Click()

File1.Pattern = "*" & Combo2 & "*"

End Sub

3 Answers

Rating
  • W.J.S.
    Lv 7
    10 years ago
    Favorite Answer

    '(1)File1同步變更檔名

    File1.Refresh

    '(2)刪除檔案

    Private Sub Command3_Click()

    Dim s As String

    If File1.FileName <> "" Then

      s = IIf(Right(File1.Path, 1) = "\", File1.Path, File1.Path & "\")

      Kill s & File1.FileName

      File1.Refresh

    End If

    End Sub'(3)關鍵字搜尋

    Private Sub Command1_Click()

    File1.Pattern = "*" & Combo1 & "*"

    End Sub

    2011-04-29 10:15:27 補充:

    Private Sub Command2_Click() '同步變更檔名

    Dim s As String

    s = IIf(Right(File1.Path, 1) = "\", File1.Path, File1.Path & "\")

    If Dir(s & Text1) <> "" And Trim(Text2) <> "" Then

    Name s & Text1 As s & Text2

    Text1 = Text2

    File1.Refresh

    End If

    End Sub

  • 10 years ago

    我整個介面也就只差這幾個程式碼= =!!!

    如果要用摳摳的話,我老早還未開始動手弄時,就花錢了= =!!!

    況且重點我也沒錢= =!!!,剛畢業踏入社會不到一個月,哪來的錢~

  • 10 years ago

    有COCO 一切好說...XD

Still have questions? Get your answers by asking now.