以下是将你提供的 **C# WinForms 代码** 100% 忠实、逐行转换为 **VB.NET 代码** 的结果。 ✅ 严格遵循： - 不改变任何变量名（如 `DBO`, `LM`, `RM`, `CA`, `query_str1`…）、 - 不改变类名/方法名（如 `Choose_Maintain`, `GetRepairList`, `RepairBasic`, `DatatableToList`…）、 - 不改变逻辑顺序、条件分支、对象创建方式、事件绑定方式； - 正确处理 `using` → `Imports`、`partial class` → `Partial Class`、`this` → `Me`、`null` 安全（VB 中用 `IsNot Nothing`）、`string.Format` → `String.Format`（VB 中首字母大写）、`timer1.Enabled = true` → `timer1.Enabled = True` 等语言惯用法； - 保留原有注释风格（无额外添加，仅转译）； - 使用标准 VB.NET 语法（`Handles` 事件、`As` 类型声明、`New` 构造等）。 --- ```vb Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Namespace PressMachineDmsForSql Public Partial Class Choose_Maintain Inherits Form Private DBO As New RepairBasic() Public Sub New() InitializeComponent() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim LM As New Login_Maintain("Pro") LM.ShowDialog() If LM.DialogResult = DialogResult.OK Then Dim RM As New Require_Maintain() RM.TopMost = True RM.Show() End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim LM As New Login_Maintain("Pro") LM.ShowDialog() If LM.DialogResult = DialogResult.OK Then Dim CA As New Confirm_All("ZZ") CA.ShowDialog() End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Me.Close() End Sub Private Sub Choose_Maintain_Load(sender As Object, e As EventArgs) Handles Me.Load timer1.Enabled = True GetRepairList() End Sub Private Sub GetRepairList() Dim query_str1 As String = String.Format("select * from AbnormalCode_1") Dim d1 As DataSet = DBO.GetDataTable(RepairBasic.connectString, query_str1) Dim c1 As New DatatableToList(Of RepairClass)() RepairBasic.Abnormal_1 = c1.ConvertToList(d1.Tables(0)) Dim query_str2 As String = String.Format("select * from AbnormalCode_2") Dim d2 As DataSet = DBO.GetDataTable(RepairBasic.connectString, query_str2) Dim c2 As New DatatableToList(Of RepairClass)() RepairBasic.Abnormal_2 = c2.ConvertToList(d2.Tables(0)) Dim query_str3 As String = String.Format("select * from AbnormalCode_3") Dim d3 As DataSet = DBO.GetDataTable(RepairBasic.connectString, query_str3) Dim c3 As New DatatableToList(Of RepairClass)() RepairBasic.Abnormal_3 = c3.ConvertToList(d3.Tables(0)) Dim query_str4 As String = String.Format("select * from AbnormalCode_4") Dim d4 As DataSet = DBO.GetDataTable(RepairBasic.connectString, query_str4) Dim c4 As New DatatableToList(Of RepairClass)() RepairBasic.Abnormal_4 = c4.ConvertToList(d4.Tables(0)) Dim query_str5 As String = String.Format("select * from AbnormalCode_5") Dim d5 As DataSet = DBO.GetDataTable(RepairBasic.connectString, query_str5) Dim c5 As New DatatableToList(Of RepairClass)() RepairBasic.Abnormal_5 = c5.ConvertToList(d5.Tables(0)) Dim query_str6 As String = String.Format("select * from RepairRelation") Dim d6 As DataSet = DBO.GetDataTable(RepairBasic.connectString, query_str6) Dim c6 As New DatatableToList(Of Relation)() RepairBasic.Relation_1 = c6.ConvertToList(d6.Tables(0)) End Sub Private Sub Choose_Maintain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing timer1.Enabled = False End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim LM As New Login_Maintain("Machine") LM.ShowDialog() If LM.DialogResult = DialogResult.OK Then Dim CA As New Confirm_All("SB") CA.ShowDialog() End If End Sub End Class End Namespace ``` --- ### ✅ 补充说明（关键转换点解析） | C# 原写法 | VB.NET 转换后 | 说明 | |-----------|----------------|------| | `public partial class Choose_Maintain : Form` | `Public Partial Class Choose_Maintain Inherits Form` | VB 使用 `Inherits` 表示继承；`Partial` 位置与 C# 一致 | | `private void Button1_Click(...)` + `Handles Button1.Click` | `Private Sub Button1_Click(...) Handles Button1.Click` | VB 将事件绑定直接写在 `Sub` 声明后，更清晰 | | `this.Close()` | `Me.Close()` | VB 中 `Me` 对应 C# 的 `this` | | `timer1.Enabled = true;` | `timer1.Enabled = True` | VB 布尔字面量为 `True`/`False`（首字母大写） | | `string.Format(...)` | `String.Format(...)` | VB 中 `String` 是类型别名，首字母大写；`Format` 是静态方法 | | `DataSet d1 = ...` | `Dim d1 As DataSet = ...` | VB 使用 `Dim ... As Type = ...` 声明变量 | | `new DatatableToList<RepairClass>()` | `New DatatableToList(Of RepairClass)()` | VB 泛型用 `Of T`，括号必须 | | `d1.Tables[0]` | `d1.Tables(0)` | VB 数组/集合索引用 `()` 而非 `[]` | | `if (LM.DialogResult == DialogResult.OK)` | `If LM.DialogResult = DialogResult.OK Then` | VB 关系运算符是 `=`（不是 `==`），且必须配 `Then` | | `using (...) { ... }` | （已全部移除） | 原 C# 代码中**没有 `using` 语句块**（只有顶部 `using` 指令），所以 VB 中只转为 `Imports`，无需额外处理资源释放（本代码未显式 `Dispose`，故不加 `Using`） | > ⚠️ 注意：该 VB 版本**未添加 `Using` 包裹 `DataSet` 或数据库连接**，因为原 C# 代码也未这样做（`DBO.GetDataTable(...)` 应内部已管理资源）。若 `GetDataTable` 返回的 `DataSet` 需手动 `Dispose`，请在 VB 中补充（但通常 `DataSet` 无非托管资源，可不 `Dispose`）。 --- ### ✅ 如何在 Visual Studio 中使用？ 1. 新建一个 **Windows Forms App (.NET Framework)** 项目（目标框架建议 ≥ 4.7.2）； 2. 将上述 VB 代码保存为 `Choose_Maintain.vb`； 3. 确保项目中已存在以下类（否则编译失败）： - `RepairBasic`（含 `connectString`, `GetDataTable`, `Abnormal_1`... 静态属性） - `Login_Maintain`, `Require_Maintain`, `Confirm_All` - `DatatableToList(Of T)`（泛型工具类） - `RepairClass`, `Relation`（实体类） 4. 在设计器中，确保窗体上有： - `Button1`, `Button2`, `Button3`（Name 属性必须完全一致） - `Timer1`（Name = `timer1`，`Enabled = False` 初始状态） --- 如需我进一步帮你： - ✅ 自动生成配套的 `RepairBasic.vb` / `DatatableToList.vb` 模板 - ✅ 添加 `Using` 安全包装（如 `DataSet.Dispose()`） - ✅ 将重复的 `GetRepairList` 查询合并为循环版本（DRY 原则） - ✅ 迁移到 .NET 6+ Windows Forms（跨平台支持） 欢迎随时提出 👇