none
由Text的值輸入至ComboBox的問題 RRS feed

  • 問題

  • 我想要把Text裡面的檔案轉成ComboBox可以讓使用者點選

    就是假如Text有5行文字,ComboBox就會對應出現5個文字選項

     

    Code Snippet

            Dim fileName As String = "A.txt" 

            Dim counter As Integer = 0
            Dim fileNum As Integer
            Dim strContent As String
            Try
                fileNum = FreeFile()
                FileOpen(fileNum, fileName, OpenMode.Input)
                Do Until EOF(fileNum)
                    strContent &= LineInput(fileNum) & vbNewLine
                    counter += 1
                Loop
                FileClose(fileNum)
                'strContent &= counter
                Smtp.Text = strContent
            Catch ex As Exception
                MsgBox("錯誤:檔案不存在")
            End Try

     

     

     

    視窗跑出來的結果會是XXX000(都在同一行),不過當我把值複製到筆記本會出現

    XXX

    000

    我該怎麼解決呢?該不會寫的方向完全不一樣吧XD

    2008年3月12日 上午 09:44

解答

  • Code Snippet

            Dim fileName As String = "A.txt" 

            Dim counter As Integer = 0
            Dim fileNum As Integer
            Dim strContent As String
            Try
                fileNum = FreeFile()
                FileOpen(fileNum, fileName, OpenMode.Input)
                Do Until EOF(fileNum)
                    Smtp.Items.Add(LineInput(fileNum))                

                    counter += 1
                Loop
                FileClose(fileNum)
                'strContent &= counter
                Smtp.Text = strContent
            Catch ex As Exception
                MsgBox("錯誤:檔案不存在")
            End Try

     

     

    你的 ComboBox 在哪裡?

    如果你不願意再講清楚一點,那你就慢慢等吧。

    2008年3月12日 上午 09:57
    版主

所有回覆

  • Code Snippet

            Dim fileName As String = "A.txt" 

            Dim counter As Integer = 0
            Dim fileNum As Integer
            Dim strContent As String
            Try
                fileNum = FreeFile()
                FileOpen(fileNum, fileName, OpenMode.Input)
                Do Until EOF(fileNum)
                    Smtp.Items.Add(LineInput(fileNum))                

                    counter += 1
                Loop
                FileClose(fileNum)
                'strContent &= counter
                Smtp.Text = strContent
            Catch ex As Exception
                MsgBox("錯誤:檔案不存在")
            End Try

     

     

    你的 ComboBox 在哪裡?

    如果你不願意再講清楚一點,那你就慢慢等吧。

    2008年3月12日 上午 09:57
    版主
  • 非常的謝謝您,回覆的超快^^

    所謂你的 ComboBox 在哪裡?是指?

    如有冒犯之處請見諒
    2008年3月12日 上午 10:16
  • 所謂你的 ComboBox 在哪裡?是指?

     

    你的程式沒有說明 ComboBox 是哪個變數 ._. ....

     

    2008年3月12日 上午 10:28
    版主