K-Sogacchiのプロフィール

宜しくお願い致します。 タイトルどおりなのですが・・・配列宣言したものを一気に参照して合致する物があるかどうかをチェックする方法は無いでしょうか？？ 現在のコードは以下のようになっています。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim no() As Integer = {11, 12, 13, 14, 15, 16, 17, 18, 19, 20} Dim table() As Integer = {15800, 11980, 25980, 19800, 219800, 35600, 65800, 73260, 119800, 24780} Dim a, b, c, i As Integer a = Val(TextBox1.Text) b = Val(TextBox2.Text) P1: For i = 0 To no.Length - 1 If no(i) = a Then c = i Exit For Else Do MsgBox(Prompt:="規定値外です。", Title:="エラー") a = Val(InputBox(Prompt:="商品番号を再入力")) '未入力の場合“0”を返す If a = 0 Then Exit Sub 'inputboxが未入力等の場合は終了 End If GoTo P1 '“0”以外の数字が入力された場合は“P1”へ TextBox1.Text = a 'テキストボックス１にも現在の“a”の値が反映されるように Loop End If Next Label4.Text = table(c) Label5.Text = table(c) * b End Sub 現状の場合for～next内にゴチャゴチャ分岐処理をさせるようになりnextにたどり着く前にforのところに戻す形になっているのでnoで宣言している中でも11だけにしか反応しない状態となっています。 どこかでnoで宣言している物を一気に参照して合致する物が無いかどうかを調べることができるようでしたら、このような状態にならないで済むのではないかと思っていますが、プログラミングを勉強し始めたばかりなのでいい方法に関して見当がつきません。 どなたか良きアドバイスをお願い致します。

宜しくお願い致します。 タイトルどおりなのですが・・・配列宣言したものを一気に参照して合致する物があるかどうかをチェックする方法は無いでしょうか？？ 現在のコードは以下のようになっています。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim no() As Integer = {11, 12, 13, 14, 15, 16, 17, 18, 19, 20} Dim table() As Integer = {15800, 11980, 25980, 19800, 219800, 35600, 65800, 73260, 119800, 24780} Dim a, b, c, i As Integer a = Val(TextBox1.Text) b = Val(TextBox2.Text) P1: For i = 0 To no.Length - 1 If no(i) = a Then c = i Exit For Else Do MsgBox(Prompt:="規定値外です。", Title:="エラー") a = Val(InputBox(Prompt:="商品番号を再入力")) '未入力の場合“0”を返す If a = 0 Then Exit Sub 'inputboxが未入力等の場合は終了 End If GoTo P1 '“0”以外の数字が入力された場合は“P1”へ TextBox1.Text = a 'テキストボックス１にも現在の“a”の値が反映されるように Loop End If Next Label4.Text = table(c) Label5.Text = table(c) * b End Sub 現状の場合for～next内にゴチャゴチャ分岐処理をさせるようになりnextにたどり着く前にforのところに戻す形になっているのでnoで宣言している中でも11だけにしか反応しない状態となっています。 どこかでnoで宣言している物を一気に参照して合致する物が無いかどうかを調べることができるようでしたら、このような状態にならないで済むのではないかと思っていますが、プログラミングを勉強し始めたばかりなのでいい方法に関して見当がつきません。 どなたか良きアドバイスをお願い致します。

こんばんわ VB6.0で動画を再生するソフトを作成しています。 DirectShowを使用して、動画をフォーム上で再生するまではできました。 更にやりたいことがあるのですが、方法がわかりません。 映画の字幕のように動画の上に文字を表示させたいのです。 （Labelを使用して、指定した時分に文字を表示させたい） （動画を表示しているところにLabelを作成してもLabelそのものが 動画の下になってしまい表示されていません・・・。） 例えば、１分５５秒に「１分５５秒経過」、２分００秒に「２分」などを表示したいのです。 どうしてもできないので、皆様の知恵をお貸しください。 よろしくお願いします。

こんにちは。 タイトルの通りなのですが、VB.NETでSQL文を作りたいのですが、カンマの対処について分からなかったので質問させて頂きました。 例えば、下記のようなテーブルとwindowsアプリケーションフォームがあったとします。 itemテーブル　　　　　　　　　　　　　　　　　フォーム(□はチェックボックスだと思ってください。) item_id　　item_cd　　item_name　　　　　　　　□　りんご ---------------------------------　　　　　　　□　ばなな 0001　　　　0001　　　　りんご　　　　　　　　□　みかん 0002　　　　0002　　　　ばなな　　　　　　　　□　めろん 0003　　　　0003　　　　みかん 0004　　　　0004　　　　めろん このフォームで、チェックボックスに印が付いているものを、SQL文の条件に加えたいと思っていますが、なかなか上手く書けません。 現在のソース sql＝"SELECT item_id,item_cd,item_name　"　_ 　　&　"FROM item　" _ 　　&　"WHERE item_name　IN　(" If apple.checked = True Then 　　sql &= "'" & label1.text & "'," End If If banana.checked = True Then 　　sql &= "'" & label2.text & "'," End If 　　　　　　　　・ 　　　　　　　　・ 　　　　　　　　・ このやり方だと、sql文の最後にカンマが残ってしまいます。 ですが、前カンマをやったところで構文的におかしくなってしまいます。 このようなとき、どのように対処すればよいのでしょうか？ よろしければ、教えてください。

こんばんわ VB6.0で動画を再生するソフトを作成しています。 DirectShowを使用して、動画をフォーム上で再生するまではできました。 更にやりたいことがあるのですが、方法がわかりません。 映画の字幕のように動画の上に文字を表示させたいのです。 （Labelを使用して、指定した時分に文字を表示させたい） （動画を表示しているところにLabelを作成してもLabelそのものが 動画の下になってしまい表示されていません・・・。） 例えば、１分５５秒に「１分５５秒経過」、２分００秒に「２分」などを表示したいのです。 どうしてもできないので、皆様の知恵をお貸しください。 よろしくお願いします。