none
簡單的問題! RRS feed

  • 問題

  • 各位大大~~~

        小弟我剛接觸VB2005,正開始慢慢學習中,VB指令好多。

        我想先從基礎學起,剛剛碰到一個問題,我在一個專案裡面開兩個form,請問如果我想打form2的listbox所點選的項目要加入form的listbox項目中,以下是我寫的程式。我不太懂要用哪個指令,請各大大幫幫忙!

     


            Dim f2 As New Form2
            If LB1.SelectedIndex <> -1 Then
                LB1.Items.RemoveAt(LB1.SelectedIndex)
                f2.LB1.Items.Add(f2.LB1.Text)

            End If

    2007年3月19日 下午 03:00

解答

  • 方案中有兩個Form,Form1跟Form2,各有一個Listbox都叫做ListBox1,下面是Form1的程式碼

    Public Class Form1

        Dim F2 As Form2

        Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
            If Not ListBox1.SelectedItem Is Nothing Then
                F2.ListBox1.Items.Add(ListBox1.SelectedItem)
            End If
        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            For x As Integer = 1 To 5
                ListBox1.Items.Add(x)
            Next
            F2 = New Form2
            F2.Show()
        End Sub
    End Class

    給你參考,不過最好去買本入門書來K,照書上的範例作,這樣會比較好,吸收也比較快。

    2007年3月19日 下午 04:27
    版主
  • 2007年3月21日 上午 05:39
    版主

所有回覆

  • 方案中有兩個Form,Form1跟Form2,各有一個Listbox都叫做ListBox1,下面是Form1的程式碼

    Public Class Form1

        Dim F2 As Form2

        Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
            If Not ListBox1.SelectedItem Is Nothing Then
                F2.ListBox1.Items.Add(ListBox1.SelectedItem)
            End If
        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            For x As Integer = 1 To 5
                ListBox1.Items.Add(x)
            Next
            F2 = New Form2
            F2.Show()
        End Sub
    End Class

    給你參考,不過最好去買本入門書來K,照書上的範例作,這樣會比較好,吸收也比較快。

    2007年3月19日 下午 04:27
    版主
  • 謝謝你!!!

    我是因為要學習資料庫管理而接觸VB的...

    書上有些範例會讓人不好了解,有你們高手的資訊,也許才知道我們這些新手的缺點以及改進的地方!

     

    2007年3月20日 上午 11:12
  • 可否請問一下,我利用listbox多選項目要加入另一個listbox裡,多選之後他會變成一個集合,那要如何將集合裡面一個一個讀出來存在listbox裡。

    幫忙一下囉^^....

    2007年3月21日 上午 02:35
  • Hi,可以利用下面的方式來取得選取的項目

            For Each s As String In ListBox1.SelectedItems
                MessageBox.Show(s)
            Next

    2007年3月21日 上午 02:54
    版主
  • bauann~~~

    謝謝你,有你的指導,讓我試行了。

    雖然方法跟你不一樣,但我利用你的方法去找尋我要的,成功哩!!!

     

    我還有個問題,

    我想用IndexOf來搜尋字串中的數字並進行加總,我查詢IndexOf的用法,但我不會懂它真正用法,你能給我小小例子嗎?  也許我能了解他的用法。

    2007年3月21日 上午 04:08
  • 2007年3月21日 上午 05:39
    版主
  • 真是太感謝妳了!!!

    這圖書館還不錯耶....有詳細介紹!!!

     

    2007年3月21日 上午 11:21