前提・実現したいこと
Visual Basic についての質問です。
ボタンを押したらListBoxに文字列をを代入し、ListBox1.Items.Add(name & size & vbTab & a)
もう片方のボタンを押したら、if文で「もし、この文字列が含まれていたら~する」という動作を実行したいです。
具体的には、if文で指定した文字列が含まれているか調べて条件にあっていたら発動し、リストボックスの中身を消したいです。
Private Sub Button82_Click(sender As Object, e As EventArgs) Handles Button82.Click Dim Ds As String 取り消しボタン Dim Ds As String Ds = ListBox1.SelectedItem'選択したリストボックスの中身を代入 If 0 <= Ds.IndexOf(UName(0) & "小") Then'文字列にUName(0) & "小"が含まれていたら発動 UkosuS(0) = 0 Label1.Text = "Ok" End If ListBox1.Items.Remove(ListBox1.SelectedItem)'選択したリストボックスの中身を消す End Sub
間違ってるから動かないんですが現在このようなプログラムを書いてます。
試したこと
次のプログラムを試しました。
該当のソースコード
Public Class Form1 Private Sub Gouk(ByVal nedan As Integer, ByVal name As String, ByVal size As String) Dim a As Integer = Val(ComboBox1.Text) ListBox1.Items.Add(name & size & vbTab & a) 'リストボックスに追加する End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'ボタン 'UName(0)はモジュールに入ってる配列 Gouk(100, UName(0), "小")'プロシージャーに飛ばす UkosuS(0) = Val(ComboBox1.Text)'コンボボックスの値代入 'Ukosu(0)はモジュールに入ってる配列 End Sub Private Sub Button82_Click(sender As Object, e As EventArgs) Handles Button82.Click '取り消しボタン Dim Ds As String Ds = ListBox1.SelectedItem'選択したリストボックスの中身を代入 If 0 <= Ds.IndexOf(UName(0) & "小") Then'文字列にUName(0) & "小"が含まれていたら発動 UkosuS(0) = 0 Label1.Text = "Ok" End If ListBox1.Items.Remove(ListBox1.SelectedItem)'選択したリストボックスの中身を消す End Sub End Class
条件があっていたらif文を発動したいです。しかし、発動しないようになってます。
If 0 <= Ds.IndexOf(UName(0) & "小") Then
指定している文字列が含まれていたらif文を発動したいのですが、文字列が含まれていればという記述がこれであっているかは勉強不足で確信がもてていません。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/07/04 08:07