21天学通VB.NET 第十三章学习笔记[原创]

云瑞

Chapter 13

服务器资源管理器，是VB.NET的一个功能，让VB.NET使用者更容易的控制操作系统的不同服务。
服务器资源管理器，是浏览一系列功能的工具，可以浏览网络上的不同服务以及查看运行在服务器上的服务。对于有些服务，可以控制，或者写代码来使用它们。服务器资源管理器可以通过“视图|服务器资源管理器”打开。
数据资源服务器包含
数据连接 允许不离开VB.NET环境就可以连接并查看数据库。
服务器 连接到的服务器和在服务器上运行的服务的列表。
服务器资源管理器，可以查看数据库，访问、查看、控制服务。
服务是运行在后台的应用程序，为操作系统提供一些功能。
查看服务：事件日志、加载模块、管理数据、执行计数器、过程、服务、SQL服务器数据库、网络服务、消息队列等。
以下是一个实例：
Public
Class PerfLite

Dim m_sngX As
Single

Dim m_sngY As
Single

Dim m_sngCPUY As
Single

Dim m_sngRAMY As
Single

Dim m_sngProcsY As
Single

Dim penCPU As
New System.Drawing.Pen(Color.Red)

Dim penProcs As
New System.Drawing.Pen(Color.Green)

Dim penRAM As
New System.Drawing.Pen(Color.Blue)

Dim penfore As
New System.Drawing.Pen(SystemColors.ControlText)

Dim penback As
New System.Drawing.Pen(SystemColors.ControlText)

Const Increment As
Single = 1


Private
Sub clock_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clock.Tick

Dim sngCPU As
Single = PerfCPU.NextValue() / 100

Dim sngProcs As
Single = PerfProcs.NextValue()

Dim sngRAM As
Single = PerfRAM.NextValue() / 1024
        DrawSweep(sngCPU, sngProcs, sngRAM) 'draw the sweep panel
        LabelCPU.Text = "CPU:" & sngCPU.ToString("P") '更新
        LabelProc.Text = "Process:" & sngProcs
        LabelRAM.Text = "RAM available:" & sngRAM.ToString("f0") + "MB"

End
Sub

Private
Sub DrawSweep(ByVal CPU As
Single, ByVal processes As
Single, ByVal RAM As
Single)

Dim oGrafix As Graphics = pnlsweep.CreateGraphics()

Dim sngHeight As
Single = pnlsweep.Height

Dim sngCPUY As
Single
'for the points

Dim sngProcsY As
Single

Dim sngRAMY As
Single
        oGrafix.DrawLine(penback, m_sngX, 0, m_sngX, sngHeight) 'erase the previous sweep line
        sngCPUY = sngHeight - (CPU * sngHeight) - 1      'draw data points
        oGrafix.DrawLine(penCPU, m_sngX - Increment, m_sngCPUY, m_sngX, sngCPUY)
        m_sngCPUY = sngCPUY
        sngProcsY = sngHeight - processes
        oGrafix.DrawLine(penProcs, m_sngX - Increment, m_sngProcsY, m_sngX, sngProcsY)
        m_sngProcsY = sngProcsY
        sngRAMY = sngHeight - (RAM / 10)
        oGrafix.DrawLine(penRAM, m_sngX - Increment, m_sngRAMY, m_sngX, sngRAMY)
        m_sngRAMY = sngRAMY
        m_sngX += Increment

If m_sngX >收细毛孔的面膜瘦身霜ab workouts for women护肤淘宝男装皇冠店去痘印如何瘦脸最快最有效祛痘穿衣搭配去痘印有效丰胸去黑头美国主机非常好怎么样瘦脸粉扑什么牌子好效果好的乔莎眼霜怎么样 pnlsweep.Width Then
            m_sngX = 0                    'reset back to star
            oGrafix.Clear(SystemColors.Control)   'clear the drawing surface

End
If
        oGrafix.DrawLine(penfore, m_sngX, 0, m_sngX, sngHeight)  'draw new line

End
Sub


Private
Sub cmdsweep_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsweep.Click

If cmdsweep.Text = "&star "
Then
            cmdsweep.Text = "&stop"
            clock.Enabled = True

Else
            cmdsweep.Text = "&star "
            clock.Enabled = False

End
If


End
Sub


Private
Sub Trkspeed_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Trkspeed.Scroll

Dim ivalue As
Integer
        ivalue = CInt(Trkspeed.Value) 'set the timer interval to the select time
        clock.Interval = ivalue * 100 'ms

End
Sub


Private
Sub pnlsweep_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pnlsweep.Paint


End
Sub
End
Class

zhairuili125

什么吗？:yaotou 一堆的英语看不懂啦