VB.Net学习笔记之VB.Net基础

VB.Net项目笔记

VB.Net基础学习

VB.net学习地址：w3cschool

项目实战笔记

声明

1. 变量声明

   '声明实例化int类型
   Dim  num As Integer =100
   
   声明实例化string 类型
   Dim  str As Integer = "Hello"
   
   实例化DataTable
   Dim dt As New DataTable
   
   

2. 常量声明

   '声明实例化常量
   Const num As Integer = 100
   
   

3. 类语句

   Class Test
   '内容
   End Class
   
   
   

接口语句

    Public Interface MyInterface
    '内容
	End Interface

方法语句

	有返回参数:
	Function  Test（） As string
	 return "3"
	End Function 
	 ```
	无返回参数:
	Sub Test（）
	End Sub 
	
	函数中string、int 变量:
	Function  Test（ByVal str As string , ByVal num As Integer ） As String
	'内容
	returen "3"
	End  Function  
	
	函数中List变量:
	Function  Test（ByVal list As List（of 实体类）） As String
	'内容
	returen "3"
	End  Function  

for循环

	Imports Test.Test
	Public Class TestDto
    Private _item As New List(Of TestDtoCh)
    Public Property Item() As List(Of TestDtoCh)
        Get
            Return _item
        End Get
        Set(ByVal value As List(Of TestDtoCh))
            _item = value
        End Set
    End Property
    End Class
	Public Class TestDtoCh
    Private _name As String
    Public Property name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property
    End Class
	Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        '每次+1 相当于java中的i++
        '如果从0开始  To后面需要到 dt.Rows.Count-1
        For index = 1 To dt.Rows.Count

        Next
        'Step后面跟的是  每次+的值 
        For index = 1 To dt.Rows.Count

        Next
        'forEach循环 一般用于实体类
        Dim list As New TestDto
        Dim t As New TestDtoCh
        For Each t In list.Item
            Dim name As String = t.name
        Next

    End Sub
    End Class

TestDto 和 TestDtoCh 是两个实体类 其中 TestDto 包含多个 TestDtoCh
fro each 循环一般适用于实体类之前的循环 如上面代码中 t 可以像java一样直接. 对象中的属性 就可以对该属性进行复制或者获取值
for 循环在开发中最多的是循环 DataTable 然后获取DataTable中的值
DataTable 中值获取 需要判断DataTable中有数据 并且要判断 DataTable 中有需要的属性 如下图中name VB中判断是用的 IsDBNull方法 这个和C#中是有一定出入的 c#中则是需要判断 dt.Rows(index).Item(“name”) != null

Dictionary用法

		Dim t As New TestDtoCh
        Dim dic As New Dictionary(Of String, Object)
        '添加数据
        dic.Add("name", "张三")
        dic.Add("test", t)
        '获取数据
        Dim name = dic("name").ToString()
        '遍历
        For i = 0 To dic.Count
            '获取key 也就是name/test
            Dim key As String = dic.Keys(i)
            '获取Value 也就是 “张三”/t
            Dim obj As Object = dic.Item(i)
            '删除test
            dic.Remove("test")
        Next

注意事项

1. 代码中不等于 要用<> 而不是java或者C#中的 !=
2. 并且/或者 要使用 and/or 而不是java或者C#中的 &&/||
3. 注释要使用英文逗号（.） ，缩放模块可以使用 #region “注释内容” #end region
4. VB和C#中DataTable数据某个属性值
   VB：dt.Row(i).Item(“属性名”)
   C#：dt.Row[i][“属性名”]