锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net项目案例 vbnet action( 二 )

IT技术类名


记得采纳啊
求一个VB.NET进行局域网内UDP广播的源代码例子给你个udp多播例子，广播不是很清楚，呵呵
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Dim port As String
Dim ipadd As String
Dim ipend As IPEndPoint
Dim sendudp As New UdpClient()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim ipadress As IPAddress
ipadress = IPAddress.Parse(TextBox1.Text)
'sendport = Int32.Parse(TextBox2.Text)
'ipend = New IPEndPoint(ipadress, sendport)
Try
sendudp.JoinMulticastGroup(ipadress)
MessageBox.Show("启动完成！")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
vb.net 如何在一个项目中创建类，并且使用他?在任意form类或模块中都可以创建类，跟建立函数和过程一样 。
示例：
public class form1
‘创建一个属于form的子类，名称为【类名】 。
public class 类名
’定义类成员text
public text as string
end class
‘定义一个【类名】类的公共变量 。
dim 类名1 as 类名
’定义一个过程，使用【类名】类的text成员
public sub 过程
‘实例化【类名1】
类名1=new 类名
类名1.text=“赋值”
’定义一个【新类】类的私用变量 ， 并实例化 。
dim 新类1 as new 新类
新类1.name=“一个字符串”
新类1.age=12
end sub
end class
‘’‘创建一个与form同级的类 ， 名称为【新类】
public class 新类
public sub new（）
【vb.net项目案例 vbnet action】end sub
public name as string
public age as integer
end class
在模块中使用：
public class module1
dim a asnew form1.类名
end module
vb.net多线程如何返回参数 ， 举个例子，谢谢Public Class Form1
Public Class SquareClass '把多线程调用的函数封装到类中，通过类事件返回
Public Value As Double
Public Square As Double
Public Event ThreadComplete(ByVal Square As Double)
Public Sub CalcSquare()
Square = Value * Value
RaiseEvent ThreadComplete(Square)
End Sub
End Class
Dim WithEvents oSquare As SquareClass
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '多线程返回值测试 ， 当线程运行完成激发事件
oSquare = New SquareClass()
Dim t As New Threading.Thread(AddressOf oSquare.CalcSquare)
oSquare.Value = https://www.04ip.com/post/30
t.Start()
End Sub
Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete '响应事件函数
MsgBox("The square is "Square)
End Sub
End Class
VB.net实例1 生成txt文件 。
DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框
SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名
IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本，直接覆盖其内容
EndIf
原文链接：
关于vb.net项目案例和vbnet action的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：JAVA应用软件代码，java程序编写软件

下一篇：html5移动web开发做网页，html5移动端开发