none
如何記錄對應的combo和textbox的值 RRS feed

  • 問題

  • 我有一個combo1

    裡面有三個Item

    豬肉

    牛肉

    雞肉

    我要怎麼讓程式自動判斷

    當我選不同肉品的時後自動將值丟到Textbox並記錄最後一次的值

    假設我選豬肉 執行完後將textbox上的值記錄下來

    等到我下次再選豬肉的時候自動帶出我最後一次紀錄的值

    有可以不要用到資料庫的方法嗎?

    2016年9月20日 上午 03:52

解答

所有回覆

  • 您可以使用ComboBox1.Text取得被選取的項目的文字, 至於計算後的內容如果不存放到資料庫, 可以自行儲存到變數/集合或檔案中
    2016年9月20日 上午 04:24
  • 您可以使用ComboBox1.Text取得被選取的項目的文字, 至於計算後的內容如果不存放到資料庫, 可以自行儲存到變數/集合或檔案中

    但我如果這樣判斷的話程式抓不到值耶

       If Combo1.Text = "豬肉" Then
     Text1(1).Text = UCase(GetIniString("Common", "dev_no", App.Path & "\MainSetup.ini"))
         End If

    Text1(1).Text變成空空的

    2016年9月20日 上午 05:11
  • Private Sub Combo1_Click()
        If Combo1.Text = "豬肉" Then
            Text1(1).Text = UCase(GetIniString("Common", "dev_no", App.Path & "\MainSetup.ini"))
        End If
    End Sub

    VB6之迴光返照- 讀寫ini檔

    INI檔裡面有值嗎...

    • 已標示為解答 yiyi.Chen 2016年9月20日 上午 07:09
    2016年9月20日 上午 07:00
  • Private Sub Combo1_Click()
        If Combo1.Text = "豬肉" Then
            Text1(1).Text = UCase(GetIniString("Common", "dev_no", App.Path & "\MainSetup.ini"))
        End If
    End Sub

    VB6之迴光返照- 讀寫ini檔

    INI檔裡面有值嗎...

    有抓到囉

    但是我現在有個問題就是回寫問題

    他的判斷方式不是應該依照我ini裡輸入的參數去做回寫嗎

    但是我發現他會直接把三個值都更新

    該怎麼針對我選的項目更新他的值就好了?

    If Combo1.text = "豬肉" Then Call WriteIniString("Common", "juice", Text1(1).Text, App.Path & "\MainSetup.ini") End If

    If Combo1.text = "牛肉" Then Call WriteIniString("Common", "Special", Text1(1).Text, App.Path & "\MainSetup.ini") End If If Combo1.text = "雞肉" Then Call WriteIniString("Common", "Salty", Text1(1).Text, App.Path & "\MainSetup.ini") End If



    2016年9月20日 上午 07:05
  • Private Sub Combo1_Click()
        If Combo1.Text = "豬肉" Then
            Text1(1).Text = UCase(GetIniString("Common", "dev_no", App.Path & "\MainSetup.ini"))
        End If
    End Sub

    VB6之迴光返照- 讀寫ini檔

    INI檔裡面有值嗎...

    OK謝謝我搞定囉
    2016年9月20日 上午 07:09