نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

منبع:https://barnamenevis.org/showpo...66&postcount=4


این کد را در کلاس مربوط به کنترل TextBox خود بنویسید :
کد:

Protected Overrides Function ProcessDialogKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean



        If keyData = Keys.Return Then

            SendKeys.Send("{TAB}")

        End If

        Return MyBase.ProcessDialogKey(keyData)

    End Function

و در مورد استفاده در کنترلهای استاندارد :
کد:

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Return Then

            SendKeys.Send("{TAB}")

        End If

    End Sub

[ghafoori]

https://barnamenevis.org/showpo...6&postcount=61

Imports System.IO



 Private Sub CreateTextFile()

        Dim fs As FileStream = New FileStream("C:\test.txt", FileMode.Create)

        Dim w As StreamWriter = New StreamWriter(fs, Encoding.UTF8)

        Using (fs)

            Using (w)

                w.WriteLine(124.23)

                w.WriteLine("Salaam!")

                w.WriteLine("!")

            End Using

        End Using

    End Sub





    Private Function ReadFromTextFile() As String



        Dim sb As StringBuilder = New StringBuilder()

        Dim fs As FileStream = New FileStream("C:\test.txt", FileMode.Open)

        Dim r As StreamReader = New StreamReader(fs, Encoding.UTF8)

        Using (fs)

            Using (r)

                sb.AppendLine(r.ReadLine())

                sb.AppendLine(r.ReadLine())

                sb.AppendLine(r.ReadLine())

            End Using

        End Using

        Return sb.ToString()

    End Function

[ghafoori]

https://barnamenevis.org/showpo...7&postcount=62

Dim filename As String = "..\..\myfile.txt"

        Dim fullPath As String = "c:\Temp"

        Dim filename As String = Path.GetFileName(filename)

        Dim fullPath As String = Path.Combine(fullPath, filename)

        '// (fullPath is now "c:\Temp\myfile.txt")

[ghafoori]

https://barnamenevis.org/showpo...8&postcount=63

Dim randomFileName As String = System.IO.Path.GetRandomFileName()

و برای ایجاد نام منحصر بفرد برای فایلهای موقت :
کد:

Dim tfile As String = Path.GetTempFileName()

[ghafoori]

https://barnamenevis.org/showpo...0&postcount=64

System.Diagnostics.Process.Start("iexplore.exe", "www.barnamenevis.org")

و برای مثال در فایرفاکس :
کد:

System.Diagnostics.Process.Start("C:\Program Files\Mozilla Firefox\FireFox.exe", "www.barnamenevis.org")