vb.net测试类的简单介绍

在vb.net中怎么调用自定义类？

代码已测试。

一、测试需要的INI文件。名称为“setinfo.ini”，存放路径为你解决方案里“Bin“文件夹的”Debug“文件夹里。

内容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的类。新建一个类，类中内容为：

Public Class Class1

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _

( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Int32, _

ByVal lpFileName As String _

) As Int32

End Class

三、界面代码：

Imports System.IO 'for path

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

getINI()

End Sub

Private Sub getINI()

Dim iniclass As New Class1 '

Dim myBf As String 'get set_info 开辟存储的内存

myBf = New String(CChar(""), 256)

Dim myFN As String '配置文件的文件路径

myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")

Dim myAN As String 'Application_NAME,也是Section名称

myAN = Me.TextBox1.Text

Dim myKN As String 'KEY_NAME,关键字名称

myKN = Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作

TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要

End Sub

End Class

四、测试截图如下

相关问答

Q1: VB.net中怎样让程序测试时显示变量的值？？

如果你是建立的窗体的话，可以用一个messagebox来显示 messagebox.show(n)如果是控制台程序，就可以Console.write(n)

Q2: vb.net测试数据库是否能连接

serverstring = "Server=" 服务器IP ";DataBase=" 库名 ";Userid=" 用户名 ";Password=" 密码

Try

Conn = New MySqlConnection(serverstring)

Conn.Open()

MsgBox("连接成功")

Conn.Dispose()

Conn.Close()

Catch ex As Exception

MsgBox("连接失败！")

End Try

这是 mysql 的，自己改成 sql server 的就行了

Q3: 怎么用vb.net做心理测试 第一个窗口有一张图片 然后在选择A 就弹出一张图片 选择B 弹出

用2个单选控件

按钮下 如果 单选控件1状态是选中vb.net测试类的 就显示窗体2 不是则显示窗体3

或者 vb.net测试类你可以显示 图像框控件2

Q4: VB.NET怎么编程测试CPU电压

'

'！！！重要：首先要添加“引用”一个dll，选择“System Management”；

'

Imports Microsoft.VisualBasic

Imports System

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Text

Imports System.Windows.Forms

Imports System.Management

Imports System.IO

Namespace WindowsApplication1

    Partial Public Class Form1

        Inherits Form

        Public Sub New()

            InitializeComponent()

        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取CPU编号

            Dim [MyClass] As New ManagementClass("Win32_Processor")

            Dim MyCollection As ManagementObjectCollection = [MyClass].GetInstances()

            Dim MyInfo As String = "当前系统CPU编号是："

            Dim MyCPUID As String = ""

            For Each MyObject As ManagementObject In MyCollection

                MyCPUID = MyObject.Properties("ProcessorId").Value.ToString()

                Exit For

            Next MyObject

            MyInfo = MyCPUID

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的当前电压

            Dim MyInfo As String = "计算机CPU的当前电压是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                Try

                    MyInfo = ControlChars.Lf  String.Format("CurrentVoltage : "  MyObject("CurrentVoltage").ToString())

                    MyInfo = ControlChars.Lf  "========================================================="

                Catch

                End Try

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button3_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的外部频率

            Dim MyInfo As String = "计算机CPU的外部频率是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                Try

                    MyInfo = ControlChars.Lf  String.Format("ExtClock : "  MyObject("ExtClock").ToString())

                    MyInfo = ControlChars.Lf  "========================================================="

                Catch

                End Try

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button4_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的二级缓存

            Dim MyInfo As String = "计算机CPU的二级缓存尺寸是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("L2CacheSize: "  MyObject("L2CacheSize").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的制造商名称

            Dim MyInfo As String = "计算机CPU的制造商名称是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("Manufacturer : "  MyObject("Manufacturer").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button6_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的产品名称

            Dim MyInfo As String = "计算机CPU的产品名称是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("Name : "  MyObject("Name").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button7_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的版本信息

            Dim MyInfo As String = "计算机CPU的版本信息如下："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("Version: "  MyObject("Version").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button8_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的当前使用百分比 注意要把SQLserver或者其他耗CPU的软件开着否则看不到效果就一直为0

            Dim MyInfo As String = "计算机CPU的当前使用百分比是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("LoadPercentage : "  MyObject("LoadPercentage").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button9_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的最大时钟频率

            Dim MyInfo As String = "计算机CPU的最大时钟频率是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("MaxClockSpeed : "  MyObject("MaxClockSpeed").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button10_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机CPU的当前时钟频率

            Dim MyInfo As String = "计算机CPU的当前时钟频率是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("CurrentClockSpeed : "  MyObject("CurrentClockSpeed").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button11_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机的CPU地址宽度

            Dim MyInfo As String = "当前计算机的CPU地址宽度是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("AddressWidth: "  MyObject("AddressWidth").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

        Private Sub button14_Click(ByVal sender As Object, ByVal e As EventArgs)

            '获取计算机的CPU数据宽度

            Dim MyInfo As String = "当前计算机的CPU数据宽度是："

            Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

            For Each MyObject As ManagementObject In MySearcher.Get()

                MyInfo = ControlChars.Lf  String.Format("DataWidth : "  MyObject("DataWidth").ToString())

                MyInfo = ControlChars.Lf  "========================================================="

            Next MyObject

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Sub

    End Class

Q5: 怎么用vb.net做一个简单的心理测试 就那种选择A出一张图 选择B弹出一张图

把图片存入资源，或把路径存放变量，在a,b的click事件中加载即可

vb.net测试类的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net测试类的信息别忘了在本站进行查找喔。