asked in 電腦與網際網路程式設計 · 1 decade ago

VB高手請進20點奉上

我需要一個

Command1按一下左鍵就可以複製Text1所輸入的文字然後可以去別的地方貼上的存檔[例如把文字複製起來貼在記事本],就是我還可以在編輯的,一共需要12格

還需要一個Command13按一下就可以儲存Text1到Text12所輸入的文字,就是下次開啟的時候文字還保留著的,不需要重新再打一次,這樣可以嗎?

大概就是下面這樣...研究到到黑圈都跑出來了

http://img443.imageshack.us/my.php?image=999le7.pn...

自行上傳的青蛙網址↑圖片在右邊點進去可以放大

請寄到我的信箱或及時通連絡 ktf7691

麻煩高手了!><

Update:

我的是VB6

Update 2:

阿 你即時通忘記加入我了

1 Answer

Rating
  • 軺冠
    Lv 5
    1 decade ago
    Favorite Answer

    建議你直接把Text和Command做成陣列,比較快(只要把該物件屬性的(Name)改為相同的名子,他就會問你要不要設為陣列,按"是"即可)

    Private Sub Command1_Click(Index As Integer)

    Clipboard.Clear

    Clipboard.SetText Text1(Index).Text

    End Sub

    Private Sub Command2_Click()

    Open App.Path & "\SaveDataBase.txt" For Output As #1

    For i = 0 To 11

    Print #1, , Text1(i).Text

    Next i

    Close #1

    End Sub

    Private Sub Command3_Click()

    End

    End Sub

    Private Sub Form_Load()

    If Dir(App.Path & "\SaveDataBase.txt") = "" Then Exit Sub

    Dim A As Integer

    A = 0

    Open App.Path & "\SaveDataBase.txt" For Input As #1

    Do While Not EOF(1)

    Input #1, i

    Text1(A).Text = i

    A = A + 1

    Loop

    Close #1

    End Sub

    載點

    http://dsbaby.myweb.hinet.net/Save.rar

Still have questions? Get your answers by asking now.