ビルドできない への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 トマト  (小学生) 投稿日時 2010/2/18 03:35:27
新しくプロジェクトを作ってコードをコピーしたらうまくいきました。
0
投稿者 トマト  (小学生) 投稿日時 2010/2/17 23:10:35
こんにちは。
いろいろ作って楽しんでいます。

ある音楽再生ソフトを作っていたらいきなりビルドできなくなりました。
詳しく言うと、エラー一覧にはなにもエラーがないのに、デバッグしようとすると「ビルドエラーが発生しました。続行して、最後に成功したビルドを実行しますか？」と表示されます。

一応エラーが出るプロジェクトのコードを書いておきます。
Module MainModule

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer



    Sub Main()

        Dim cla = Environment.GetCommandLineArgs

        If cla.Length <= 1 Then

            Return

        End If



        For i = 1 To cla.Length - 1

            Call mciSendString(String.Format("open ""{0}"" alias otodere", cla(i)), "", 0, 0)

            Call mciSendString("play otodere", "", 0, 0)

            While GetMode() = "playing"

                Threading.Thread.Sleep(500)

            End While

            Call mciSendString("close otodere", "", 0, 0)

        Next i

    End Sub



    Function GetMode() As String

        Dim Buffer As String = New String(Chr(0), 255)

        Call mciSendString("status otodere mode", Buffer, Len(Buffer), 0)

        Return Replace(Buffer, Chr(0), "")

    End Function

End Module


ほかのプロジェクトではうまくいくのに・・・。どうしたらいいでしょう？
0