QA@IT

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

6112 PV

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

今回がVB.NET初めてで、さっぱりわかりません。

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

  • 記述の順番を逆にしてもでますか? -

回答

他の方が回答されているように、同じファイルであれば問題ないはずです。
別ファイルになるのであれば、
『Private Sub subStartProc()』ではなく
『Public Sub subStartProc()』になります。

編集 履歴 (0)

subStartProcの定義は

提示されているように

btnMenu1_Clickの定義と

同じファイルに記述されていますでしょうか?

またここに提示された内容はソースからのコピーでしょうか
それとも別途手入力をされたりされていないでしょうか?
スペルミスもないかよく見た方がよいです。

編集 履歴 (0)
ウォッチ

この質問への回答やコメントをメールでお知らせします。