Question

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

在VB.net中新建了一个类，类里面是读取INI文件的函数，请问我在窗体中怎么使用这个类中的函数啊？

Answer 1

代码已测试。

一、测试需要的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

四、测试截图如下