none
获取数值的问题 RRS feed

  • 问题

  • Dim f as String   '全局变量

    Private Sub book()


            Dim f As String = Label3.Text

            Select Case f

                Case "123"

                    f = p8

                    Call volume(f)

       Case "456"

                    f = p7

                    Call volume(f)

     

            End Select

        End Sub

     

        Private Sub volume(ByRef f As String)

     

            Dim d As New System.IO.DirectoryInfo(f)

            For Each a As IO.DirectoryInfo In d.GetDirectories

                ComboBox1.Items.Add(a)

            Next

     End Sub

     

    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged

    MsgBox(f + "\" + ComboBox1.Text)  该如何获取上面f的值,只能获取combobox1的text?

        End Sub

    • 已编辑 ckjason 2011年2月20日 9:22
    2011年2月20日 6:38

答案

  • 你好

    請問P7, P8 其實是文字..還是變數呢?

     Private f as String   '全局变量

     

    Private Sub book()

    ' Dim f As String = Label3.Text 'Comment out這一句 試試看

           f = Label3.Text

            Select Case f

                Case "123"

                    f = p8

                    Call volume(f)

       Case "456"

                    f = p7

                    Call volume(f)

     

            End Select

        End Sub



    Chi
    • 已标记为答案 ckjason 2011年2月20日 11:34
    2011年2月20日 9:29
    版主

全部回复

  • 你好

    你可以嘗試使用

    MsgBox(f + "\" &  ComboBox1.SelectedItem.Text)

    Please correct me if my concept is wrong


    Chi
    2011年2月20日 8:20
    版主
  • 您好

    請將 f 宣告為全局变量


    歡迎參觀我的Blog.NET菜鳥自救會
    2011年2月20日 8:37
  • 您好

    請將 f 宣告為全局变量


    歡迎參觀我的Blog.NET菜鳥自救會
    我已经把f设定成全局变量了,还是无法获得f的值.只能得到combox的text.
    2011年2月20日 9:21
  • 你好

    請問P7, P8 其實是文字..還是變數呢?

     Private f as String   '全局变量

     

    Private Sub book()

    ' Dim f As String = Label3.Text 'Comment out這一句 試試看

           f = Label3.Text

            Select Case f

                Case "123"

                    f = p8

                    Call volume(f)

       Case "456"

                    f = p7

                    Call volume(f)

     

            End Select

        End Sub



    Chi
    • 已标记为答案 ckjason 2011年2月20日 11:34
    2011年2月20日 9:29
    版主