123456789101112131415161718192021 |
- Imports System.IO
- Imports System.Text
- Public Class 列印選擇
- Private Sub 線路選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- If 風格啟用 = True Then : 風格() : End If
- End Sub
- Private Sub 線路選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
- If 系統語言 = "繁體中文" Then : Me.Text = "線路選擇"
- ElseIf 系統語言 = "English" Then : Me.Text = "Line Selection"
- ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Pemilihan Jalur" : End If
- End Sub
- Private Sub 總部_rbt_Click(sender As Object, e As EventArgs) Handles 總部_rbt.Click
- 車廠型態 = True : Me.Close()
- End Sub
- Private Sub 測試_rbt_Click(sender As Object, e As EventArgs) Handles 測試_rbt.Click
- 車廠型態 = False : Me.Close()
- End Sub
- Private Sub 風格()
-
- End Sub
- End Class
|