锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net的仪表 vbnet ui

endIT技术

VB.NET设计的窗体程序，有什么控件可以实现类似这种下载列表一样的？如果是.NET平台的，你可以使用ComponentOne Enterprise 全功能.NET控件集中的布局控件实现 。也可以试试ComponentOne的LinearGauge 控件，这是一个线性仪表器，显示为一个值和象征参考值的可选范围 。线性仪表盘（LinearGauge）控件提供了一个 ShowText 属性 ， 用来决定哪些值以文本显示 。
》》传送门：网页链接
vb.net Graphics实现仪表如图？ 目前遇到问题是刻度怎么算？根据三角函数关系vb.net的仪表，用反函数求出 角度值不就行vb.net的仪表了
VB.NET如何让仪表指针绕某点旋转你把问题想简单点，直接在PANEL空间上使用GD+画指针就行了 。算出两点划线还不容易么？用图片的话需要旋转，而且锯齿非常严重@！
vb.net 如何安装Tao框架方法/步骤
首先vb.net的仪表，打开服务器管理器，点击左侧vb.net的仪表的“仪表盘”，如下图所示 。
点击上图中vb.net的仪表的“添加角色和功能”，弹出下图所示“添加角色和功能向导” 。
一直点击“下一步”，直到“功能”选项卡，点击“.NET Framework 3.5 功能”前面的小三角，展开，勾选“.NET Framework 3.5（包括.NET 2.0和3.0）”前面的复选框，如下图所示，点击下一步 。
如下图所示 。点击下面的“指定备用源路径”，弹出对话框，如下 。
由于小编的系统盘加载在D盘，如下图，所以配置如下路径（一般路径固定，盘符根据自己系统来定） ， 点击“确定” 。
点击“安装”，即开始安装.NET Framework 3.5，等安装完成后关闭即可 。
求用VB 与仪表通讯程序'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/09/09
'描 述：仪表盘方式显示CPU和硬盘温度及系统信息
'网 站： (VB6源码博客)
'网 站： (VB.NET源码博客,主要基于.NET2005)
'ADOINFO - a Programm to Monitor the Ressource Usage (C) by TETKOduma
'
'with Car-like Gauges as Displays for:
' CPU MHZ
' CPU Usage as %
'CPU Temperature in Celsius
'HDD Temperature and S.M.A.R.T infos
'Ram USage
'and Battery load state
'This is quite usefull for Notebook users like me
'It's Tipcal for me that i dont like the
'the normal Forms and Designs, so it's Skinned again
'I Use the Smart Information for the Harddisk Temperature
Function GetDriveTemp()
Dim drv_info As DRIVE_INFO
drv_info = GetDriveInfo(0)
With drv_info
If .bDriveType = 0 Then Label2.Caption = "[无可用信息]"
If .bDriveType = 2 Then Label2.Caption = "[ATAPI 驱动器 - 无可用信息]"
If .bDriveType = 1 Then
For i = 0 To UBound(.Attributes)
If Trim$(.Attributes(i).AttrID) = "194" Then GetDriveTemp = (.Attributes(i).Raw(0)): Exit Function
Next i
End If
End With
End Function
'The Information Scrollab at the Bottom, used to Display now the SMART Information
Sub LAufschrift()
Dim drv_info As DRIVE_INFO
drv_info = GetDriveInfo(0)
With drv_info
If .bDriveType = 0 Then Label2.Caption = "[无可用信息]"
If .bDriveType = 2 Then Label2.Caption = "[ATAPI 驱动器 - 无可用信息]"
If .bDriveType = 1 Then
MsgScroller1.AddItem "模式:"vbTabvbTab + Trim$(.Model) + " "
MsgScroller1.AddItem "序号:"vbTabvbTab + Trim$(.SerialNumber) + " "
MsgScroller1.AddItem "固件: "vbTab + Trim$(.FirmWare) + " "
MsgScroller1.AddItem "属性: " + "NAME [Value] [Treshold] [WorstValue] [RAW] "
For i = 0 To UBound(.Attributes)
MsgScroller1.AddItem "[" + Trim$(.Attributes(i).AttrID) + "] " + Trim$(.Attributes(i).AttrName) + " " + CStr(.Attributes(i).AttrValue) + " " + Trim$(.Attributes(i).ThresholdValue) + " " + Trim$(.Attributes(i).WorstValue) + " " + Trim$(.Attributes(i).Raw(0)) + " "

推荐阅读


上一篇：windows服务器软件，window服务器系统

下一篇：如何使用协议号购买服务器？ 挂协议号怎么买服务器