[電腦討論]

(vb2008)的Input問題麻煩各位

本帖最後由 風箏惡魔 於 2009-5-2 11:19 編輯

Private Sub File001(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileOpen(1, "TESTFILE", OpenMode.Output)
        Write(1, "hello")
        Write(1, 14)
        FileClose(1)

        Dim s As String = "teststring"
        Dim i As Integer
        FileOpen(1, "TESTFILE", OpenMode.Input)
        Input(1, s)
        MsgBox(s)
        Input(1, i)
        MsgBox(i)
        FileClose(1)
    End Sub
以上是 Msdn的示範程式  也運作良好 在游標貼到 Input(x,n)上時顯示這指令是 Public 的形式
而我寫的程式(開3檔案) 在滑鼠游標貼近時卻顯示 Private 並且在Input(x,n)中n不管是數值或字串都無法運作
請問各位高人這是為甚麼
PS:我Basic是從早期QBasic學來的  最近幾天才用VB2008它跟VB6又有不同  偶手上只有vb6跟Qb的資料
* 下面是我程式中用到 Input(x,n)的部份 是從QB改來的還沒除錯完  目前就卡在Input這語句上 *
    Private Sub Dir00(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dir_01.Click
        Dim x(8), a, c, a1, b1, c1, d1 As String
        'Dim a
        Dim cr As Integer
        ' Dim cr, Fl_01, Fl_02, Fl_03 As Integer

        ' Fl_01 = FreeFile()
        FileOpen(1, Fl_n01, OpenMode.Input)
        'Fl_02 = FreeFile()
        FileOpen(2, Fl_n02, OpenMode.Output)
        'Fl_03 = FreeFile()
        FileOpen(3, Fl_n03, OpenMode.Output)
        c = Chr(13)
        cr = 0
        REM Read Hand 1byte

10:
        For i = 1 To 8
            Input(1, a)
            x(i) = a
            MsgBox(a)
        Next i
        'If EOF(1) <> True Th100
50:

en GoTo 50
        GoTo         a1 = Microsoft.VisualBasic.Left(x(1), 3) + Mid(x(2), 3, 1)
        b1 = Microsoft.VisualBasic.Left(x(3), 3) + Mid(x(4), 3, 1)
        c1 = "0x" + Microsoft.VisualBasic.Right(x(1), 1) + Microsoft.VisualBasic.Right(x(2), 1)
        d1 = "0x" + Microsoft.VisualBasic.Right(x(3), 1) + Microsoft.VisualBasic.Right(x(3), 1)

        Print(2, a1 + "," + b1 + "," + c1 + "," + d1 + ",")
        If cr = 3 Then PrintLine(2, c)
        a1 = Microsoft.VisualBasic.Left(x(5), 3) + Mid(x(6), 3, 1)
        b1 = Microsoft.VisualBasic.Left(x(7), 3) + Mid(x(8), 3, 1)
        c1 = "0x" + Microsoft.VisualBasic.Right(x(5), 1) + Microsoft.VisualBasic.Right(x(6), 1)
        d1 = "0x" + Microsoft.VisualBasic.Right(x(7), 1) + Microsoft.VisualBasic.Right(x(8), 1)
        Print(3, a1 + "," + b1 + "," + c1 + "," + d1 + ",")
        If cr = 3 Then PrintLine(3, c)
        cr = cr + 1 : If cr = 4 Then cr = 0
        If EOF(1) <> True Then GoTo 10
        If EOF(1) = True Then TextBox1.Text = " OK ! OK !" : GoTo 100

80:
        TextBox1.Text = TextBox1.Text + "Have BAD............."

100:
        FileClose(1)
        FileClose(2)
        FileClose(3)



    End Sub


我最後把Input()前面加上 Microsoft.VisualBasic  問題就解決了 鼠標移到Input上就顯示屬性為 Public 操作也跟示範程式一樣
***請問這是正解嗎? 為甚麼示範程式不用加 Microsoft.VisualBasic
喜歡這篇文章嗎?
回覆 3
您需要登入後才可以回帖 登入 | 註冊會員

本版積分規則 回覆 15 個字以上可拿獎勵,
規則詳見此

精選熱門商品

提示訊息
go_top