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

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

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 個已更新項目:

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

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

不知道怎麼儲存...

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

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

3 個解答

評分
  • 1 0 年前
    最佳解答

    第一題

    可以用 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 參考一下囉

    參考資料:
  • Shadow
    Lv 5
    1 0 年前

    Private Sub Label1_Click()

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

    End Sub

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

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

    2.用API產生ini檔案,我推薦用這個

    3.如果不嫌麻煩,就自己寫檔案讀寫囉

  • 匿名使用者
    1 0 年前

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

還有問題?馬上發問,尋求解答。