获取数值的问题

Question

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

Answer 1

你好

你可以嘗試使用

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

Please correct me if my concept is wrong

---

Chi

Answer 2

您好

請將 f 宣告為全局变量

---

歡迎參觀我的Blog.NET菜鳥自救會

Answer 3

您好

請將 f 宣告為全局变量

---

歡迎參觀我的Blog.NET菜鳥自救會

我已经把f设定成全局变量了，还是无法获得f的值.只能得到combox的text.

Answer 4

你好

請問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