📖 T3_1_手算方法.vb

1. [主選單] T3_Uty0メニュー.vb
   ↓
   觸發 手計算方法Bt_Click 事件

2. [產出表單] T3_1_手計算方法F
   ↓
   Dim F As New T3_1_手計算方法F

3. [顯示畫面] 以強制互動模式 (Modal Dialog) 顯示
   ↓
   F.ShowDialog(Me)

4. [使用者操作] 使用者閱讀說明文字
   ↓
   檢閱載入至 RichTextBox1 的內容

5. [結束] 使用者點擊關閉按鈕
   ↓
   閉じるBt_Click → Me.Close()

6. [釋放資源]
   ↓
   F.Dispose()

7. [返回主選單]
          

Public Class T3_1_手計算方法F
	Private Sub 閉じるBt_Click(sender As Object, e As EventArgs) Handles 閉じるBt.Click
		Me.Close()
	End Sub
End Class

[使用者操作]
1. 使用者點擊「關閉(返回主選單)」按鈕。
   ↓

[事件觸發]
2. 閉じるBt 控制項觸發 Click 事件。
   ↓

[函式執行]
3. 執行 閉じるBt_Click 函式。
   - sender: 閉じるBt 物件
   - e: EventArgs 物件
   ↓

[視窗關閉程序]
4. 執行 Me.Close() 指令。
   - Me = T3_1_手計算方法F 實體物件
   - 啟動 Close() 銷毀程序。
   ↓

[事件鏈鎖]
5. 依序觸發視窗關閉生命週期事件。
   - FormClosing
   - FormClosed
   ↓

[歸還控制權]
6. 解除 Modal ShowDialog() 封鎖狀態。
   - 系統控制權移交回主選單 (T3_Uty0メニュー.vb)。
   ↓

[記憶體回收]
7. 主選單程式碼中執行 F.Dispose()。
   - 徹底釋放 UI 控制代碼與記憶體資源。
   ↓

[結束]
8. 主選單恢復可正常操作狀態。
          

Tera計算3は、Tera計算1（各設備の要求保管量）を前提条件として、

物流機器設備の面積を自分の手で計算するツール集です。


レイアウト設計（配送センターの規模）は、単に面積合計だけでは決まりません。

実際に建屋の縦横有効寸法内に収まるか、柱や防火壁に干渉しないかなど検討し、

建築法や消防法などの関係法案に合致しているか、安全が確保されているか、

作業運用から見て移動距離や荷役方法が適切か、設備投資と投資コストがバランスが良いか。

レイアウト設計は、いろいろな設計要素はあるが、


ここでは

  1.配送センターの規模規模を小さくまとめる。

  2.前工程と後工程を近づける。

この2点に着目してください。


上記2点を行うために、物流機器設備の縦・横・高さの寸法が必要となります。

Tera計算2の計算方法と手順を参考に、Tera計算3で個々の面積計算方法を学習してください。

' 加入 PictureBox 以渲染圖表
Friend WithEvents 図解Pb As PictureBox

' 於 Form Load 時載入圖片
Private Sub T3_1_手計算方法F_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	図解Pb.ImageLocation = MyPath & "\LayoutConcept.jpg"
	図解Pb.SizeMode = PictureBoxSizeMode.Zoom
End Sub

' 新增列印按鈕
Friend WithEvents 印刷Bt As Button

' 列印觸發程序
Private Sub 印刷Bt_Click(sender As Object, e As EventArgs) Handles 印刷Bt.Click
	Dim pd As New PrintDocument()
	AddHandler pd.PrintPage, AddressOf PrintDocument_PrintPage
	pd.Print()
End Sub

Private Sub PrintDocument_PrintPage(sender As Object, e As PrintPageEventArgs)
	' 將 RichTextBox 文字轉拋至印表機繪圖介面
	e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, 50, 50)
End Sub

' 透過 iTextSharp 等第三方庫新增 PDF 匯出按鈕
Private Sub PDF出力Bt_Click(sender As Object, e As EventArgs) Handles PDF出力Bt.Click
	Dim saveDialog As New SaveFileDialog()
	saveDialog.Filter = "PDF Files|*.pdf"

	If saveDialog.ShowDialog() = DialogResult.OK Then
		' 呼叫外部 PDF 庫函式
		ExportToPDF(RichTextBox1.Text, saveDialog.FileName)
	End If
End Sub

' 允許文字方塊內的網址可供點擊
Private Sub T3_1_手計算方法F_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	RichTextBox1.DetectUrls = True
	AddHandler RichTextBox1.LinkClicked, AddressOf RichTextBox1_LinkClicked
End Sub

Private Sub RichTextBox1_LinkClicked(sender As Object, e As LinkClickedEventArgs)
	Process.Start(e.LinkText)
End Sub

' 於類別標頭強制記錄版本異動
' Version 1.0.0 - 2025/01/XX - 初始正式版發行
' Version 1.0.1 - 2025/XX/XX - 文案微調
' Version 1.1.0 - 2025/XX/XX - 新增 PDF 匯出功能

Public Class T3_1_手計算方法F
	Private Const VERSION As String = "1.0.0"

	' ... 類別邏輯實作 ...
End Class