VB.NETでの宣言エラー表示について

質問

下記のようなコーディングをしていますが、
「subStartProcは、宣言されていません」のエラーになります。
どなたかご教示ください。

今回がＶＢ．ＮＥＴ初めてで、さっぱりわかりません。

Private Sub btnMenu1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMenu1.Click

Try
' プロシージャ開始ログ出力
Call C_LogWrite("btnMenu1_Click" & " Enter...", ComDefH.LogLevel.L_INFO)

Call subStartProc() ←　　subStartProcは、宣言されていません

Catch ex As Exception
'' プロシージャエラーログ出力
Call C_LogWrite("btnMenu1_Click" & " Error Exception...", ComDefH.LogLevel.L_ERROR)
Call C_LogWrite(ex.StackTrace, ComDefH.LogLevel.L_ERROR)
Finally
'' プロシージャ終了ログ出力
Call C_LogWrite("btnMenu1_Click" & " Exit...", ComDefH.LogLevel.L_INFO)
End Try
End Sub

#End Region

#Region "ファイル送信開始"
'-------------------------------------------------------
' [関数名] subStartProc
' [機 能] ファイル送信開始
' [引 数]
'-------------------------------------------------------
Private Sub subStartProc()

Dim objFSO As clsFile
Dim intUriFlg As Integer = 0
Dim strMsg As String = ""

Try
'' プロシージャ開始ログ出力
Call C_LogWrite("subStartProc" & " Enter...", ComDefH.LogLevel.L_INFO)

mlblMsg.Text = "データ送信中です。暫らくお待ち下さい。"
Application.DoEvents()

'＜売上ファイル＞
'売上ファイル存在確認
objFSO = New clsFile(cgstrDATA_DAT_PATH1, cgstrUriage_nam1)
If objFSO.FileExists = True Then
mlblMsg.Text = "仕入ファイルの送信中・・・"
Application.DoEvents()
If fncSendProc("1") = True Then
'売上ファイルを削除
If fncDeleteFile("1") = False Then
mlblMsg.Text = "仕入ファイルの削除に失敗しました。システム担当に連絡ください。"
Exit Sub
End If
Else
mlblMsg.Text = "仕入ファイルの送信に異常が発生しました。再度、送信を行ってください。" & _
"<" & gobjFtpErrcd & ">"
Exit Sub
End If
intUriFlg = 1
mlblMsg.Text = "仕入ファイルの送信完了"
Application.DoEvents()
End If

If intUriFlg = 0 Then
mlblMsg.Text = "送信対象ファイルは存在しません。"
Application.DoEvents()
Else
If intUriFlg = 1 Then
strMsg = "「仕入ファイル」"
End If

mlblMsg.Text = strMsg & "を送信しました。"
Application.DoEvents()
End If

'確定音を鳴らす。
ARK_Beep.StartParam(Convert.ToUInt32(cgintFreqK), Convert.ToUInt32(cgintVolumeK), _
Convert.ToUInt32(cgintCountK), Convert.ToUInt32(cgintOntimBeepK), _
Convert.ToUInt32(cgintOfftimBeepK))

Catch ex As Exception
'' プロシージャエラーログ出力
Call C_LogWrite("subStartProc" & " Error Exception...", ComDefH.LogLevel.L_ERROR)
Call C_LogWrite(ex.StackTrace, ComDefH.LogLevel.L_ERROR)
Finally
'' プロシージャ終了ログ出力
Call C_LogWrite("subStartProc" & " Exit...", ComDefH.LogLevel.L_INFO)
End Try
End Sub
#End Region

回答No.1

oboroxx · ベストアンサー

btnMenu1_Clickの名前空間とsubStartProcが定義されている名前空間は同じですか？

同じでないならば、Importsを使って、subStartProcの名前空間を指定してみてください。