林怡欣的专栏

  * 加一个图像列 Dim imageColumn As DataColumn = pageDataTable.Columns.Add("Note", GetType(Image)) imageColumn.ColumnName = "Note" DataGridMain.Columns("Note").DefaultCell

这里是声明部分 * 操作键盘 Hook 的代码    Private Const WM_HOTKEY As Integer = &H312    Private Const MOD_ALT As Integer = &H1    Private Const MOD_CONTROL As Integer = &H2    Private Const MOD_SHIFT As Integer

Private Sub TextBoxCode_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxCode.KeyDown        Try            * 如果在验证码还没出现的时候用户去按了按键按键,就会出现异常.            I

 Dim SaveFile As StreamWriter = New IO.StreamWriter(System.IO.Directory.GetCurrentDirectory & "/" & Student.WateName.Substring(0, Student.WateName.Length - 4) & ".dat", True, System.Text.Encoding.GetE

 先建一个 "CookieContainer "   把WebBrowser中的Cookie保存在里面                       //在WebBrowser中登录　cookie保存在　WebBrowser.Document.Cookie中                                                 CookieContainer   myCoo

Imports System.ThreadingPublic Class Form1    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        myBrowser.Visible = False        Me.Con

Public Class TestMessageFilter Implements IMessageFilter Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) _ As Boolean Implements IMessageFilter.PreFilterMessage Blocks al

Public Delegate Sub myDelegate()     Private Sub SetLabel()        Label1.Text = ""    End Sub  Private Sub SplitFile()Label1.Invoke(New myDelegate(AddressOf SetLabel)) End Sub

匹配Email地址的正则表达式：/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)* 评注：表单验证时很实用 匹配网址URL的正则表达式：[a-zA-z]+://[^/s]* 评注：网上流传的版本功能很有限，上面这个基本可以满足需求 匹配帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$ 评注：

发送 Dim arguments() As String = {qqNumber, count.ToString}ThreadQueueList.Add(arguments) BgWorker.RunWorkerAsync(ThreadQueueList(0))  * 接收传递过来的参数            Dim qqNumber As String = DirectCast

本程序代码:Dim arg As String = "米老鼠" & "|" & CStr(CheckVersion) & "|" & CStr(LocalVersionNum) & "|" & Microsoft.VisualBasic.Command()System.Diagnostics.Process.Start(Application.StartupPath & "/../Chec

 * 压缩数组，去除数组中的重复项            Dim arr As New ArrayList            For i As Integer = 0 To MessageArray(Convert.ToInt32(e.Result)).Length - 1                If Not arr.Contains(MessageArray(Convert.ToI

  以下代码主要通过字符串来调用窗体，同时通过字符串来调用方法        Dim formname As String = "工程名.窗体名"        Dim mytype As Type = Type.GetType(formname)        Dim myform As Form = CType(System.Activator.CreateInstance(mytype)

Me.Region = New Region(CreateRound(New Rectangle(0, 0, Me.BackgroundImage.Width, Me.BackgroundImage.Height), 12))

  * t=0 默认为 im 传入的是图片 id 属性    * t=1 为 Alt 属性 t=2 为 Src 属性    Private Function GetCode(ByVal wb As WebBrowser, ByVal im As String, Optional ByVal t As Integer = 0) As Image        Try            Dim