有關vb6程式問題希望高手幫忙！

Question

有關程式上的問題想詳細的問一位高手...

20點奉上....

主要問題是

例如我設置一個label並打上1000

然後我按按鈕1或按鈕2label中的1000當我按一次按鈕她就會-1

例如我按按鈕1 label的1000就變成999。

還有一個問題是...

我點圖片1的時候圖片1會變成圖片2?

或是我按一個按鈕圖片會隨機切換1ˋ2ˋ3圖片呢??

緊急........

已更新項目:

另外

如何讓程式關閉後自動儲存當下次開啟時跟上次關閉前一樣?

例如 這個程式我寫了

程式一開始是一個簡單的表單 lab1 comd1 就這樣

一個按鈕、表單、跟lab

然後我預設lab中的值為1000

接著

我按下comd1 lab1 值從1000變成900

我關閉程式後 在開啟程式

lab1的值還是關閉前的900?

2 個已更新項目:

有沒有程式碼可以參考呢...

因為我做了一款小遊戲，想讓使用者可以儲存遊戲內容

不知道怎麼儲存...

有沒有大大可以詳細的教我!? 謝謝....

或留下聯絡方是方便我詢問>

Answer 1

最佳解答

第一題

可以用 LABEL 的 CLICK、MOUSEDOWN、MOUSEUP 事件

作數值的加減的動作

A = A - 1

第二題 也是利用式件的方式去運作

CLICK、MOUSEDOWN、MOUSEUP 事件

再

Image1.Picture = LoadPicture(App.Path & "\TEST.JPG")

第三題

可以用循序檔的方式

Open App.Path & "\DATA.DAT" For Output As #1

Print #1, "DATA=NAME"

Close #1

Open App.Path & "\DATA.DAT" For Input As #1

Line Input #1, A

Close #1

MsgBox A

或者註冊檔方式

SaveSetting App.EXEName, "DATA", "LABEL1VALUE", Label1.Caption

GetSetting App.EXEName, "DATA", "LABEL1VALUE", "1000"

另外還可以用 .INI 或者 資料庫

詳細的使用方法在去 www.google.com.tw 參考一下囉

參考資料： 無

Answer 2

Private Sub Label1_Click()

Label1.Caption = Val(Label1.Caption) - 1

End Sub

如果要記錄屬性有幾種方法：

１．VB6好像有個內建函數可以寫入登錄值

２．用API產生ini檔案，我推薦用這個

３．如果不嫌麻煩，就自己寫檔案讀寫囉

Answer 3

Label1.Caption = Val(Label1.Caption) - 1