自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

gyygyy007的专栏

原创 DSAFASG

Ado.net和DataTable、DataView

2008-08-07 12:35:00 313

原创 ADSGADS

C#

2008-08-07 12:27:00 275

原创 cdgadg

开发者一直要求微软为VB加入更多的多线程功能，对于VB.NET也是这样。VB6已经支持建立多线程的EXE、DLL和OCX。不过使用多线程这个词语，可能也不太确切。因此VB6仅支持运行多个单线程的单元。一个单元实际上是代码执行的空间，而单元的边界限制了代码访问任何单元以外的事物。　　VB.NET就不同了，它支持建立自由线程(free-threaded)的应用。这意味着多个线程可以访问同样一套

2008-08-06 23:27:00 396 2

原创 gyygyy007随便贴点东西

server:#include #pragma comment (lib,"ws2_32") BYTE command[1024*2]; SOCKET sockSrv,sockConn; SOCKADDR_IN addrSrv,addrClient; int len=sizeof(SOCKADDR); WORD wVersionRequested; WSADATA wsaDa

2008-07-31 23:11:00 396 3

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

gyygyy007 CSDN认证博客专家 CSDN认证企业博客

码龄18年

IP 属地：北京市

IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）

4: 原创

81万+: 周排名

99万+: 总排名

1380: 访问

: 等级

58: 积分

2: 粉丝

0: 获赞

5: 评论

0: 收藏

私信

关注

热门文章

最新评论

cdgadg
gyygyy007: End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load showTotalForDelegate1 = AddressOf ShowForDelegate1 End Sub End Class
cdgadg
gyygyy007: Public Class Form1 Public Delegate Sub ShowTotal(ByVal total As Integer) Public Delegate Sub NewMethodInvoker(ByVal startNumber As Object) Private showTotalForThread1 As ShowTotal Private showTotalForDelegate1 As ShowTotal Private Sub btnDelegate1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelegate1.Click Dim invoker As New NewMethodInvoker(AddressOf AddForDelegate1) invoker.BeginInvoke(txtInit.Text, Nothing, Nothing) End Sub Private Sub AddForDelegate1(ByVal startNum As Object) Dim nInit As Integer = 0 If startNum IsNot Nothing AndAlso Not String.IsNullOrEmpty(startNum.ToString()) Then Int32.TryParse(startNum.ToString(), nInit) End If Dim nTotal As Integer = nInit While (nTotal < nInit + 5) nTotal += 1 If showTotalForDelegate1 IsNot Nothing Then showTotalForDelegate1(nTotal) End If System.Threading.Thread.Sleep(300) End While End Sub Private Sub ShowForDelegate1(ByVal total As Integer) Invoke(New ShowTotal(AddressOf ShowForDelegate1ForControl), total) End Sub Private Sub ShowForDelegate1ForControl(ByVal total As Integer) txtDelegate1.Text = total.ToString()
gyygyy007随便贴点东西
gyygyy007: 1.等待由Thread类启动的线程使用Thread类对象的Join（）方法，等待线程的结束 '定义线程 Dim thread2 As New System.Threading.Thread(ThreadStart) '启动线程 thread2.Start() '等待线程 thread2.Join()
gyygyy007随便贴点东西
gyygyy007: Dim strDirectory As String() = System.IO.Directory.GetDirectories(targetDirectory) If Not strDirectory.Length = 0 Then For i = 0 To strDirectory.Length - 1 Bianli(strDirectory(i), targetExtension) Next End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FileDir As New FolderBrowserDialog Dim value As String = "F:/music" FileDir.SelectedPath = value If FileDir.ShowDialog() = Windows.Forms.DialogResult.OK Then TextBox2.Text = FileDir.SelectedPath End If End Sub End Class
gyygyy007随便贴点东西
gyygyy007: Public Class Search Dim Number As Integer = 0 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim strFilePath As String = TextBox2.Text Dim strFileExtension As String = "*." + TextBox1.Text Dim ts As New Threading.ThreadStart(AddressOf ReadFileByThread) Dim thread As New System.Threading.Thread(ts) ListBox1.Items.Clear() Bianli(strFilePath, strFileExtension) MessageBox.Show(Number) End Sub Private Sub Bianli(ByVal targetDirectory As String, ByVal targetExtension As String) Dim strFilePaths As String() = System.IO.Directory.GetFiles(targetDirectory, targetExtension) Dim i As Integer = 0 If Not strFilePaths.Length = 0 Then For i = 0 To strFilePaths.Length - 1 ListBox1.Items.Add(strFilePaths(i)) Number += 1 ListBox1.Update() System.Threading.Thread.Sleep(50) Next End If Dim strDirectory As String() = System.IO.Directory.GetDirectories(targetDirectory) If Not strDirectory.Length = 0 Then For i = 0 To strDirectory.Length - 1 Bianli(strDirectory(i), targetExtension) Next End If <br

最新文章

提示

确定要删除当前文章？

取消删除