代码已测试。
创新互联 - 成都机柜租用，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，成都机柜租用，西南服务器托管，四川/成都大带宽，成都机柜租用，四川老牌ＩＤＣ服务商
一、测试需要的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
四、测试截图如下
在项目A里添加引用，在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件，然后在项目A中添加对这个dll文件的引用。
其实就是结构体，如下面
Public Structure My_type
Public type_1 As Integer
Public type_2 As String
Public type_3 As Double
End Structure
注意下你给ButtonTop的Image属性赋值的地方，你的属性SET里是针对【上】这个类的改变，你如果这样写是触发不了属性改变的：
ButtonTop.背景 = Image.FromFile("C:/1.png")
正确的处理办法应该是new一个【上】类的对象，初始化时进行赋值就可以了
Me.ButtonTop = New Class1() With {.背景 = Image.FromFile("C:/1.png")}
“结构”是 Visual Basic 早期版本支持的用户定义类型 (UDT) 的一般化。除字段外，结构还可以公开属性、方法和事件。结构可以实现一个或多个接口，而您可以分别为每个字段声明访问级别。
可以合并不同类型的数据项来创建结构。结构将一个或多个“元素”彼此关联并且将它们与结构本身关联。声明了结构后，它将成为“复合数据类型”，而您可以声明该类型的变量。
想让单个变量持有几个相关信息时结构很有用。例如，您可能想将一个雇员的姓名、电话分机号和薪金放在一起。可以对这些信息使用几个变量，或者可以定义一个结构并将它用于单个雇员变量。当有许多雇员并且因此有该变量的许多实例时，结构的优点变得非常明显。
使用 Structure 语句语句作为结构声明的开始，并使用 EndStructure 语句作为结构声明的结束。在这两条语句之间必须至少声明一个“元素”。元素可以是任何数据类型，但是至少一个必须是非共享变量，或是非共享非自定义事件。
不能在结构声明中初始化任何结构元素。如果将一个变量声明为结构类型，则可以通过变量访问元素来给它们赋值。
声明一个结构：
可以使用 Public、Protected、Friend或Private关键字指定结构的访问级别，或者使用默认值 Public。如：
Private Structure employee
End Structure
向结构体添加元素：
结构必须具有至少一个元素。必须声明结构的每个元素并指定其访问级别。如果使用不含任何关键字的 Dim 语句 (Visual Basic)，则可访问性默认值为 Public。如：
Private Structure employee
Public givenName As String
Public familyName As String
Public phoneExtension As Long
Private salary As Decimal
Public Sub giveRaise(raise As Double)
salary *= raise
End Sub
Public Event salaryReviewTime()
End Structure
－－－－－－－－－－－－－－－－－－－－－－－－－－－
另外，关于你的问题，请参考下面C++/C对自定义类型的比较：
1、在C++中，不需使用typedef
struct Structure1 {
char c;
int i;
float f;
double d;
};
int main() {
struct Structure1 s1, s2;
s1.c = 'a'; // Select an element using a '.'
s1.i = 1;
s1.f = 3.14;
s1.d = 0.00093;
s2.c = 'a';
s2.i = 1;
s2.f = 3.14;
s2.d = 0.00093;
}
2、在C中，需用typedef定义
typedef struct {
char c;
int i;
float f;
double d;
} Structure2;
int main() {
Structure2 s1, s2;
s1.c = 'a';
s1.i = 1;
s1.f = 3.14;
s1.d = 0.00093;
s2.c = 'a';
s2.i = 1;
s2.f = 3.14;
s2.d = 0.00093;
}
当然有啊，
引用类型的变量就是类的实例化对象
VB.net值类型包括14种基本数据类型(除String)、结构和枚举，其他都是引用类型
引用一个按钮对象
Dim a As Button = Button1 '假设窗体中有Button1这个按钮控件
引用一个自定义类的对象
Public Class Class1
End Class
Dim b As New Class1
上面的a和b都是引用型的变量。
字符串也是引用型的变量
它是基础数据类型中唯一的引用型数据类型。
Dim s As String = "字符串也是引用类型！"
满意请采纳，谢谢。
重庆分公司
重庆分公司
