none
VB6 執行問題 RRS feed

  • 問題

  • 有用 Combo 元件  跟 z 二維陣列
    在別的按鈕測試都可以正常讀到值

    在原本按鈕卻沒有動作

    原本按鈕
    For i = 0 To m - 1
            If Combo1.ListIndex = z(i, 0) - 1 Then
                readd = i
                Text1.Text = i
            End If
        Next i
    ---------------------------
    另外測試的按鈕
    Private Sub Command6_Click()
        For i = 0 To m - 1
            If Combo1.ListIndex = z(i, 0) - 1 Then
                readd = i
                Text1.Text = i
            End If
        Next i
    End Sub
    -----------------------------------
    用測試的按鈕 text1.text都有跑出i的值

    原本按鈕卻沒有
    text1.text 預設為 Text
    2009年8月23日 下午 01:43

解答

所有回覆

  • Option Explicit

    建議程式最前面加這一行,所有變數i, m, z(i, 0), readd都明確宣告型態,可避免一些奇怪的錯誤,z(i, 0)的值都是>=1嗎...
    2009年8月23日 下午 02:25
  • Option Explicit   都有加
    z(i,0)  都>=1

    2009年8月23日 下午 02:27
  • Dim comboindex As Integer
    
    Private Sub Combo1_Click()
        comboindex = Combo1.ListIndex
    End Sub
    原本按鈕
    Private Sub Command3_Click()
    For i = 0 To m - 1
            If Combo1.List(comboindex) = z(i, 1) Then
                readd = i
            End If
        Next i
    End Sub
    ---------------------------
    以用以上方法至少解決問題了
    2009年8月23日 下午 02:54
  • 您的ComboBox沒有選的話,ListIndex是-1...
    2009年8月23日 下午 10:41