摘要：首先要设置某控件的AllowDrapdrop属性为True然后利用控件的MouseDown事件激活Drapdrop　　Private Sub 事件函数名(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 控件.MouseDown　　　　If e.Button = Windows.Forms... 阅读全文

摘要：Dim sText As String = "abcdefg1234567" Dim oMD5 As Cryptography.MD5 = Cryptography.MD5.Create Dim oBuffer() As Byte = System.Text.Encoding.Unicode.GetBytes(sText) oBuffer = oMD5.ComputeHash(oBuffer) D... 阅读全文

摘要：Dim sText As String = "123456" Dim sKey As String = "MoMoMoMo" Dim sIV As String = "oMoMoMoM" Dim bKey() As Byte = System.Text.Encoding.UTF8.GetBytes(sKey) Dim bIV() As Byte = System.Text.Encoding.UTF... 阅读全文

摘要：System.Reflection.MethodBase.GetCurrentMethodMethodBase.Module.Name \\方法、函数所在程序的名称MethodBase.ReflectedType.Name \\方法、函数所在类的名称MethodBase.Name \\方法、函数的名称 阅读全文

摘要：Imports System.Runtime.Serialization.Formatters.BinaryImports System.IO Dim oTools As BinaryFormatter = New BinaryFormatter \\序列化要用到的类 Dim oStream As FileStream = New FileStream("Store Object Path", F... 阅读全文