怎么用vb显示电脑系统信息-vb在电脑哪里

1.VB ,调用电脑系统时间，timer控件。显示程序运行时间长度？

2.Vb实现记录电脑开机所用时间，就像360开机小助手哪样

3.windows visual basic是什么软件，怎么用

4.vb中如何用Date提前电脑当前时间,并显示在程序运行中

5.vb怎么检测笔记本电脑的电池信息？

6.VB里，如何用一串代码使vb可以录取电脑屏幕，并在结束时把录取的内容储存在电脑里

VB ,调用电脑系统时间，timer控件。显示程序运行时间长度？

1和2同一个原理

调用现在的时间就可以了

代码：Hour(Now)

&

":"

&

Minute(Now)

&

":"

&

Second(Now)

3就是自己做一个计时器

网上应该能找到公式

我忘了

4就是一个timer控件

每1秒运行一次上面的代码就可以了

Vb实现记录电脑开机所用时间，就像360开机小助手哪样

'窗体上加一Timer控件,代码如下

'把生成好的工程放到开始→启动文件夹内

Option Explicit

Dim mStart

Private Sub Form_Load()

mStart = Time

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Cls

Print "已开机 "; DateDiff("n", mStart, Time); "分钟"

End Sub

windows visual basic是什么软件，怎么用

分类: 电脑/网络 >> 软件

问题描述:

最好能告诉我用法，怎么用，谢谢了

解析:

一、Visual Basic是什么？

Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。

何谓 Visual Basic？“Visual”指的是用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。

VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和Windows NT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。

二、能用 Visual Basic 干什么呢？

也许应该问不能用它干什么更恰当一些。答案是：没有什么不能干的！

Visual Basic 所做的很多事情一点也不简单。它是一种强大的语言，即您所能想到的编程任务，它基本都能完成。从设计新型的用户界面到利用其它应用程序的对象；从处理文字图象到使用数据库；从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过 Inter 的遍及全球分布式应用程序，都可在 Visual Basic 提供的工具中各取所需。

VB是微软公司的一种通用程序设计语言，包含在Microsoft Excel、Microsoft Access等众多Windows应用软件种的VBA都使用VB语言，以供用户二次开发；目前制作网页使用较多的VBScript脚本语言也是VB的子集。

利用 VB的数据访问特性，用户可以对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式创建数据库和前端应用程序，以及可调整的服务器端部件。利用ActiveX(TM)技术，VB可使用如Microsoft Word、Microsoft Excel及其他Windows应用程序提供的功能，甚至可直接使用VB专业版和企业版创建的应用程序对象。

三、关于VB语言的前景

在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了。

从1991年VB诞生之日起到现在已经有七个版本了（最新.NET版）这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，

对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。

我们这些所谓的 VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。

四、怎样学习VB语言？

如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择Visual Basic没错的。它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，是初学者的首选。

也许你会问，我以前没学过任何一种语言，我能快速上手吗？别担心，没问题。VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。

怎样才能学好VB编程呢？我的体会就是“实例学习”，即通过在学习、编制生动有趣的小例子的过程中掌握VB编程的知识点和编程小技巧，这是最有效的学习方法。

今后在VB学习这个版块，我们会向大家推荐一些好的实例、编程技巧。如果学习过程中遇到了什么问题，或者有什么好的心得，你向我们提问求助或是发表文章。大家一起来交流吧！

万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。

另外，编程涉及到很多的知识，象操作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。

vb中如何用Date提前电脑当前时间,并显示在程序运行中

可以使用MonthCalendar控件或DateTimePicker控件显示日历。

运行程序。当窗体出现时，单击“MonthCalendar”控件中的日期，然后验证该日期是否会显示在标签中。单击“DateTimePicker”控件的下拉箭头并选择日期。日期和时间将显示在标签中。

vb怎么检测笔记本电脑的电池信息？

Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As 电池状态信息) As Long

Private Type 电池状态信息

外接电源状态 As Byte '没插=0 插了=1 无法取得信息=255

电池状态 As Byte '电量大于66%=1 电小于33%=2 小于5%=4 充电中=8 没有电池=128 无法取得信息=255

'以上说明似乎不对,以下是自己测试的:

'电量大于66%=1

'电量小于33%=

'电量小于5%=

'充电中=9

'没有电池=128

电池剩余电量 As Byte '0~100，若未知则为255

保留 As Byte '必须为0

秒为单位的电池剩余电量 As Integer '若未知则为-1

秒为单位的电池充满电的电量 As Integer '若未知则为-1

End Type

Private Sub Form_Load()

Call 状态更新_Timer

Call 窗体透明((Me.hwnd), (170))

End Sub

Private Sub 状态更新_Timer()

Dim 信息 As 电池状态信息

GetSystemPowerStatus 信息

'[头]外接电源状态

If (信息.外接电源状态) = (1) Then

Label1.Caption = ("有")

ElseIf (信息.外接电源状态) = (0) Then

Label1.Caption = ("无")

ElseIf (信息.外接电源状态) = (255) Then

Label1.Caption = ("状态读取错误")

End If

'[尾]外接电源状态

'[头]电池状态

If (信息.电池状态) = (8) Or (信息.电池状态) = (9) Then

Label3.Caption = ("充电中")

ElseIf (信息.电池状态) = (128) Then

Label3.Caption = ("没有电池")

ElseIf (信息.电池状态) = (255) Then

Label3.Caption = ("状态读取错误")

Else

Label3.Caption = ("使用中")

End If

'[尾]电池状态

'[头]剩余电量

If (信息.电池剩余电量) <= (100) Then

Me.Caption = ("剩余电量:") & (信息.电池剩余电量) & ("%")

Label5.Caption = (信息.电池剩余电量) & ("%")

电池电量进度条.Value = (信息.电池剩余电量)

电池电量进度条.Visible = (True)

ElseIf (信息.电池剩余电量) = (255) Then

Label5.Caption = ("状态读取错误")

163 Me.Caption = ("电池剩余电量读取错误")

164 电池电量进度条.Visible = (False)

165 End If

166 '[尾]剩余电量

167 End Sub

VB里，如何用一串代码使vb可以录取电脑屏幕，并在结束时把录取的内容储存在电脑里

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()

BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetWindowDC(0), 0, 0, vbSrcCopy

SePicture Me.Image, App.Path & "\pic.bmp"

End Sub

'屏幕截图不知道是不是你要的