Vb.net 显示电池状态的VB代码

我已经使用此代码在VB6.0中显示电池状态。但是显示“语法错误”我应该导入什么以及如何导入

Dim power As PowerStatus = SystemInformation.PowerStatus
Dim percent As Single = power.BatteryLifePercent
MsgBox ("Percent battery life remaining: " & percent * 100)

---

如果您正在寻找VB6代码（我猜是这样），那么我找到了以下代码：-

在VB.NET中，您可以这样尝试：-

'Assembly: System.Windows.Forms.dll
'Namespace: System
'Namespace: Microsoft.VisualBasic
'Namespace: System.Windows.Forms

Dim power As PowerStatus = SystemInformation.PowerStatus
Dim percent As Single = power.BatteryLifePercent
MsgBox("Percent battery life remaining: " & percent * 100)

---

我99%确定那不是VB6code@Ruhal-你怎么知道的？我现在想他是想让VB.NET代码在VB6中运行。有一件事是肯定的——OP缺少clarity@LittleBobbyTables：-先生，他已经写了我使用此代码在VB 6.0中显示电池状态，下面的代码在VB.Net中。这就是我猜的原因！；）这是一个完全混乱的混搭：

我应该导入什么

然后暗示.NET。而不是显示1,2。/…它能显示direct%吗，例如33%left@DivyamSolanki：-如果您可以指定代码的语言，那就太好了。VB6或VB.Net。在你的原始问题中也同样更新！我想在vb6和vb.net中both@DivyamSolanki：-我已经为VB.NET和VB6提供了解决方案。也请用同样的方法编辑您的问题！希望有帮助：）

'Assembly: System.Windows.Forms.dll
'Namespace: System
'Namespace: Microsoft.VisualBasic
'Namespace: System.Windows.Forms

Dim power As PowerStatus = SystemInformation.PowerStatus
Dim percent As Single = power.BatteryLifePercent
MsgBox("Percent battery life remaining: " & percent * 100)