.Net(VB/C#)常用小代碼

     工作之後收集了一些小的程式碼片段,上傳上來供大家搜尋,也方便自己尋找.

 

 1.Regex單個字元統計方法  Dim str As String = "fkdsajfl甘jdsa甘kfjdsflaf"<br />Dim reg As New Text.RegularExpressions.Regex("甘")<br />MsgBox(reg.Matches(str).Count)

 

2.隱藏TabControl標籤

Private Sub frmPersonSetting_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize<br /> Me.TabControl1.Region = New Region(New RectangleF(Me.Tabpage1.Left, Me.Tabpage1.Top, Me.Tabpage1.Width, Me.Tabpage1.Height))<br /> End Sub

 

3.FTP資料上傳

Try<br /> Dim client As New Net.WebClient<br /> client.Credentials = New Net.NetworkCredential(Str_Username, Str_Password)<br /> client.UploadFile(Str_Path, Str_Filename)<br /> Catch ex As Exception<br /> MsgBox(ex.ToString)<br />End Try

 

 4.用讀文本的方式匯出Excel(這種方法速度快)

Public Sub ExportToExcel(ByVal dgv As System.Windows.Forms.DataGridView)<br /> Dim str As String = ""<br /> Dim tempstr As String = ""<br /> Dim filename As String = ""<br /> Dim savefile As New SaveFileDialog<br /> savefile.Filter = "Execl files (*.xls)|*.xls"<br /> savefile.FilterIndex = 0<br /> savefile.RestoreDirectory = True<br /> savefile.Title = "匯出到Excel"<br /> savefile.ShowDialog()<br /> filename = savefile.FileName<br /> If filename = "" Then Exit Sub<br /> Using sw As StreamWriter = New StreamWriter(filename, False, System.Text.Encoding.GetEncoding(-0))<br /> Try<br /> For i As Integer = 0 To dgv.Columns.Count - 1<br /> If i > 0 Then<br /> str = str & vbTab<br /> End If<br /> str = str & dgv.Columns(i).HeaderText.Trim<br /> Next<br /> sw.WriteLine(str)<br /> For j As Integer = 0 To dgv.Rows.Count - 1<br /> tempstr = ""<br /> For k As Integer = 0 To dgv.Columns.Count - 1<br /> If k > 0 Then<br /> tempstr = tempstr & vbTab<br /> End If<br /> tempstr = tempstr & dgv.Rows(j).Cells(k).Value.ToString.Trim<br /> Next<br /> sw.WriteLine(tempstr)<br /> Next</p><p> sw.Close()<br /> Catch ex As Exception<br /> MsgBox(ex.ToString.Trim)<br /> End Try<br /> End Using<br />End Sub

 

5.截屏

Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Int32) As Int32<br /> Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Integer) As Integer<br /> Private picture As Bitmap = Nothing '以picture作為圖片格式的聲<br /> Public Sub capture_window()<br /> Me.Visible = False<br /> Dim capture1 As IntPtr = CreateDC("DISPLAY", Nothing, Nothing, Nothing)<br /> Dim get1 As Graphics = Graphics.FromHdc(capture1)<br /> '建立一個新的Graphics對象<br /> picture = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, get1)<br /> '根據螢幕大小建立一個相同大小的Bitmap<br /> Dim get2 As Graphics = Graphics.FromImage(picture)<br /> Dim get3 As IntPtr = get1.GetHdc() '擷取螢幕的控制代碼<br /> Dim get4 As IntPtr = get2.GetHdc() '擷取位元影像的控制代碼 　　<br /> BitBlt(get4, 0, 0, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, get3, _<br /> 0, 0, 13369376) '把當前螢幕複製到位元影像中<br /> get1.ReleaseHdc(get3) '釋放螢幕控制代碼<br /> get2.ReleaseHdc(get4) '釋放位元影像控制代碼<br /> picture.Save("CapturePicture.jpg", ImageFormat.Jpeg)<br /> MessageBox.Show(" 已經把當前截取螢幕儲存到CapturePicture.jpg，檢查程式根目錄")<br /> Me.Visible = True<br />End Sub

 

6.擷取系統字型

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim InstalledFont As New System.Drawing.Text.InstalledFontCollection<br /> Dim Fonts As System.Drawing.FontFamily() = InstalledFont.Families<br /> Me.ComboBox1.DataSource = Fonts<br /> Me.ComboBox1.DisplayMember = "Name"<br /> End Sub</p><p> Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged<br /> If Me.ComboBox1.SelectedItem Is Nothing Then Exit Sub<br /> Me.TextBox1.Font = New Font(CType(Me.ComboBox1.SelectedItem, System.Drawing.FontFamily), 20)<br />End Sub

 

 7.遍曆註冊表
Dim key, subkey, no1, no2, no3, no4, sitekey As Microsoft.Win32.RegistryKey<br /> Dim site, valuename As String<br /> valuename = "Path"<br /> key = Microsoft.Win32.Registry.LocalMachine<br /> subkey = key.OpenSubKey("SOFTWARE")<br /> no1 = subkey.OpenSubKey("Microsoft")<br /> no2 = no1.OpenSubKey("Windows")<br /> no3 = no2.OpenSubKey("CurrentVersion")<br /> no4 = no3.OpenSubKey("App Paths")<br /> For Each site In no4.GetSubKeyNames()<br /> sitekey = no4.OpenSubKey(site)<br /> For Each valuename In sitekey.GetValueNames()<br /> If InStrRev(sitekey.GetValue(valuename).ToString, ".") > 0 And sitekey.GetValue(valuename).ToString.Length > 4 Then<br /> Me.ListLj.Items.Add(sitekey.GetValue(valuename))<br /> End If<br /> Next<br /> Next

更多代碼 請訪問我的網站
代碼三人幫