📋 Tera計算2_1メニュー画面.vb

Public Class Tera計算2メニュー画面F
	Inherits System.Windows.Forms.Form

	' イベントハンドラー:
	' - Tera計算2開始画面F_Load
	' - Tera計算2_データ加工Bt_Click
	' - Tera計算2_規模計算Tb_Click
	' - メニュー画面へBt_Click
End Class

📄 ソースコード

Private Sub Tera計算2開始画面F_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	ファイル確認()

	' MyData_設定1読込()        ' MyData.xlsx有り
	著作権L.Text = 会社及び有効期限
End Sub

📄 ソースコード

Private Sub Tera計算2_データ加工Bt_Click(sender As Object, e As EventArgs) _
	Handles Tera計算2_データ加工Bt.Click

	' Public Class Tera計算2開始画面Fから Tera計算2データ作成F をモーダルで表示する
	Dim Tera計算2データ作成F As New Tera計算2用データ作成F
	Tera計算2データ作成F.ShowDialog(Me)
	Tera計算2データ作成F.Dispose()
End Sub

📄 ソースコード

Private Sub Tera計算2_規模計算Tb_Click(sender As Object, e As EventArgs) _
	Handles Tera計算2_規模計算Tb.Click

	' Public Class Tera計算2開始画面Fから 配送センター規模計算_改4From をモーダルで表示する

	' 配送センター規模計算データ(T610_全出荷集計)が有れば開始

	Dim 配送センター規模計算_改4From As New 配送センター規模計算_改5From
	配送センター規模計算_改4From.ShowDialog(Me)
	配送センター規模計算_改4From.Dispose()
End Sub

📄 ソースコード

Private Sub メニュー画面へBt_Click(sender As Object, e As EventArgs) _
	Handles メニュー画面へBt.Click

	Me.Close()
End Sub

📄 ソースコード (Tera計算k1.vb より)

Public Sub ファイル確認() Dim chk As Integer = 0 ' フォルダーの存在確認 System.IO.Directory.Exists() If System.IO.Directory.Exists("A:\Tera計算Data") Then Dat保存Path = "A:\Tera計算Data" : chk += 1 If System.IO.Directory.Exists("B:\Tera計算Data") Then Dat保存Path = "B:\Tera計算Data" : chk += 1 If System.IO.Directory.Exists("C:\Tera計算Data") Then Dat保存Path = "C:\Tera計算Data" : chk += 1 If System.IO.Directory.Exists("D:\Tera計算Data") Then Dat保存Path = "D:\Tera計算Data" : chk += 1 If System.IO.Directory.Exists("E:\Tera計算Data") Then Dat保存Path = "E:\Tera計算Data" : chk += 1 If System.IO.Directory.Exists("F:\Tera計算Data") Then Dat保存Path = "F:\Tera計算Data" : chk += 1 If chk = 0 Then MsgBox("dataディレクトリが存在しません,[Tera計算Data]を任意のドライブに複写") End ElseIf chk >= 2 Then MsgBox("dataディレクトリが複数存在します") End End If ' ファイルパス設定 SoftDataPath = Dat保存Path & "\SoftData" MyDB = Dat保存Path & "\Tera計算.accdb" MyTable = "T000_出荷データ" MyExcel = Dat保存Path & "\出荷データ.xlsx" MySheet = "Sheet1" End Sub

🐛 デバッグ時の確認ポイント

1. ファイル確認()の動作確認

   ' Dat保存Pathの値を確認 Debug.WriteLine("Dat保存Path: " & Dat保存Path)

2. グローバル変数の状態確認

   ' Load時に以下を確認 Debug.WriteLine("MyDB: " & MyDB) Debug.WriteLine("MyExcel: " & MyExcel) Debug.WriteLine("会社及び有効期限: " & 会社及び有効期限)

3. モーダルダイアログの戻り値

   ' ShowDialogの戻り値を確認（DialogResult） Dim result As DialogResult = Tera計算2データ作成F.ShowDialog(Me) Debug.WriteLine("Dialog Result: " & result.ToString())