現在WindowsXP上でＶＢ２００５で開発を行っています。
タイトルの通りなのですがPreviewKeyDownイベントが２回発生してしまって困っています。簡易なコードを下記に記します。
Private Sub WebBrowser1_PreviewKeyDown(ByVal sender As Object,ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs)Handles WebBrowser1.PreviewKeyDown
My.Computer.Audio.Play(" My.Computer.Audio.Play("C:\WINDOWS\Media\Windows XP Shutdown.wav", AudioPlayMode.WaitToComplete)
End Sub
というコードを書いたところ、WEBブラウザ上で何かキーを押すと２回、waveファイルが再生されてしまいます。違うwaveファイルでも試しましたが同じでした。ですのでファイルの長さ等は関係ないようです。
原因はpreviewKeyDown以外に考えられないのですが、対処法がわかりません。何かよいアイデアはないでしょうか？
卒論の関係で、Visual Basic 2005 Express Editionを使用して、システムを構築しています。
スレッドまたはフォームが複数あるため、デリゲートを使用することになったのですが、invokeの対象であるメソッドで引数を使用することはできるのでしょうか？
引数なしの場合、現時点では次のように記述しています。
A.show()
A.Invoke(New MethodInvoker(AddressOf A.Status_Timer))
Public Sub Status_Timer()
処理
End Sub
MethodInvokerは、デリゲート宣言なしでinvokeを使えることができ、本来？のデリゲート宣言して、invokeを使う場合は以下のようになります。
A.show()
A.Invoke(New SetFocusDelegate(AddressOf A.Status_Timer))
Delegate Sub SetFocusDelegate()
Public Sub Status_Timer()
処理
End Sub
ここで、Status_Timer()に引数を指定して、たとえば、
Public Sub Status_Timer(ByVal data As integer)
処理
End Sub
とした場合、invokeでの記述がうまくいきません。
もともと、invokeではそんなことはできないかもしれませんが、何か方法ありますでしょうか？現時点では、引数を使用することができないので、スレッドまたはフォーム間で、プロパティを使用して、情報を渡しています。以下のような形です。できれば、プロパティを使用したくないのですが・・・
Public Property test() As state
Get
Return _test
End Get
Set(ByVal value As state)
_test = value
End Set
End Property
卒論の関係で、Visual Basic 2005 Express Editionを使用して、システムを構築しています。
スレッドまたはフォームが複数あるため、デリゲートを使用することになったのですが、invokeの対象であるメソッドで引数を使用することはできるのでしょうか？
引数なしの場合、現時点では次のように記述しています。
A.show()
A.Invoke(New MethodInvoker(AddressOf A.Status_Timer))
Public Sub Status_Timer()
処理
End Sub
MethodInvokerは、デリゲート宣言なしでinvokeを使えることができ、本来？のデリゲート宣言して、invokeを使う場合は以下のようになります。
A.show()
A.Invoke(New SetFocusDelegate(AddressOf A.Status_Timer))
Delegate Sub SetFocusDelegate()
Public Sub Status_Timer()
処理
End Sub
ここで、Status_Timer()に引数を指定して、たとえば、
Public Sub Status_Timer(ByVal data As integer)
処理
End Sub
とした場合、invokeでの記述がうまくいきません。
もともと、invokeではそんなことはできないかもしれませんが、何か方法ありますでしょうか？現時点では、引数を使用することができないので、スレッドまたはフォーム間で、プロパティを使用して、情報を渡しています。以下のような形です。できれば、プロパティを使用したくないのですが・・・
Public Property test() As state
Get
Return _test
End Get
Set(ByVal value As state)
_test = value
End Set
End Property
VBにおいて2次方程式で虚根が出た場合に、実根が計算で求められるまで繰り返し入力をすることができるようにしたいのですが・・・
どのようにすればいいのかわからず、途方に暮れている状況です。
コードは現状ではこのように書いています。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, r As Integer
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
Try
r = (b ^ 2 - (4 * a * c)) ^ (1 / 2)
Catch
Do While r <= 0
Label8.Text = "虚根です。"
a = Val(InputBox("aの値を再入力", "エラー"))
b = Val(InputBox("bの値を再入力", "エラー"))
c = Val(InputBox("cの値を再入力", "エラー"))
r = Math.Sqrt(b ^ 2 - (4 * a * c))
Loop
Finally
Label8.Text = ""
Label5.Text = (-1 * b + r) / (2 * a)
Label6.Text = (-1 * b - r) / (2 * a)
End Try
End Sub
DO～LOOPのDOをTRYの上に持って来る事ができたらインプットボックスで入力した数値に関してもエラーの可能性のある物として計算することができるのですが、どんなにコネクリ回しても構文的にエラー状態にしかならないので、是非どなたかのお知恵を拝借できたらと思います。
宜しくお願い致します。
エクスプローラ（IEではない）を開くとすぐに警告文のようなものが
出て、中止・再試行・無視のどれを選んでも終了してしまいます。
また、ファイルがあるはずなのに上書き保存ができなかったりと
深刻なバグで困っています。どなたか解決策があれば教えてください。
ちなみにエラー内容は、（※は一応隠します。。
assertinon failed!
program:...C\windows\explorer.exe
file:...E\tools\boost_1_31_0\boost/shared_prt.hpp
line:254
expression:px!=0
for information on how your program can cause an assertion
failute,see the visual C＋＋ documentation on asserts
(please rerty to debug the application - JIT must be enabled)
調べても読んでも不明なのでお願い致します。
