VB.net 拖拽功能 摘自项目FXB：Private Sub MainForm_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop Dim Files(), Temp() As String Files = e.Data.GetData(DataFormats.FileDrop) Temp = Split(Files(0), ".") If UCase(Temp(UBound(Temp))) = "XLSX" Or UCase(Temp(UBound(Temp))) = "XLS" Then MsgBox(Files(0)) Else MsgBox("非Excel文件！", MsgBoxStyle.Exclamation) End If End Sub Private Sub MainForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then e.Effect = DragDropEffects.Link Else e.Effect = DragDropEffects.None End If End Sub

VB.net ListBox自绘（实现不同颜色字体等） 摘自网络：Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load SellList.DrawMode = DrawMode.OwnerDrawFixed SellList.Items.AddRange(New String() {"第一", "第二", "第三"}) End Sub Private Sub SellList_DrawItem(sender As Object, e As DrawItemEventArgs) Handles SellList.DrawItem 'Dim lb As ListBox = CType(sender, ListBox) If e.Index = -1 Then Return End If If e.Index = 2 Then e.Graphics.DrawString(SellList.Items(e.Index), SellList.Font, Brushes.Red, e.Bounds.X, e.Bounds.Y) Else e.Graphics.DrawString(SellList.Items(e.Index), SellList.Font, Brushes.Green, e.Bounds.X, e.Bounds.Y) End If End Sub

VB.net 数字千分符 摘自网络：Format(Text1.Text, "Standard")

VB.net 正则表达式 简单查找第一个匹配值Public Function getFirstReg(ByVal searchStr As String, ByVal regStr As String) As String Try Dim r As New Regex(regStr) Dim m As Match = r.Match(searchStr) If m.Success Then Return m.Value Else Return "" End If Catch ex As Exception Return "" End Try End Function替换字符Public Function regReplace(ByVal searchStr As String, ByVal replaceStr As String, ByVal regStr As String) As String Dim reg As New Regex(regStr) Dim result As String = reg.Replace(searchStr, replaceStr) Return result End Function