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

[ghafoori]

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

Imports System.Diagnostics



 For Each p As Process In Process.GetProcesses()



            If p.ProcessName.ToLower() = "notepad" Then

                p.Kill()

            End If

        Next

و یا :
کد:

System.Diagnostics.Process.Start("TaskKill", "/f /im Notepad.exe /t")

[ghafoori]

منبع:https://barnamenevis.org/showpo...6&postcount=18

Imports System.Net.NetworkInformation



Dim remoteMachineNameOrIP As String = "127.0.0.1"

        Dim timeOut As Integer = 5

        Dim ping As Ping = New Ping()

        '// Pinging remote maching

        Dim reply As PingReply = ping.Send(remoteMachineNameOrIP, timeOut)

        '// Displaying the result

        Dim sb As StringBuilder = New StringBuilder()

        sb.Append("Address:" + reply.Address.ToString())

        sb.Append("\nStatus:" + reply.Status.ToString())

        sb.Append("\nRoundtripTime:" + reply.RoundtripTime.ToString())

        MessageBox.Show(sb.ToString(), "Ping Result: " + remoteMachineNameOrIP)

[ghafoori]

منبع:https://barnamenevis.org/showpo...8&postcount=19

کد:

MessageBox.Show(AppDomain.CurrentDomain.BaseDirect  ory)

یا :
کد:

MessageBox.Show(System.IO.Directory.GetCurrentDire  ctory())

یا :
کد:

MessageBox.Show(Application.StartupPath)

یا:
کد:

MessageBox.Show(System.IO.Path.GetDirectoryName(Ap  plication.ExecutablePath))

کاربر bad_boy_2007 یاد اوری کردند با این کد هم می شود

My.Application.Info.DirectoryPath

[ghafoori]

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


مثال : برگرداندن 10 رکورد اخری که به جدول اضافه شده از جدول myTable
کد:

SELECT TOP 10 id,title

FROM myTable

ORDER BY NEWID()

[ghafoori]

منبع:https://barnamenevis.org/showpo...2&postcount=21

کاربرد : زمانی که نمیتوان از یک الگوریتم بازگشتی استفاده کرد؛ برای مثال کنترلها در Container های متفاوتی هستند و تنها تعداد خاصی از آنها باید Clear شوند.
کد:

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        ClearControls(TextBox1, textBox2, comboBox1)

    End Sub



    Public Sub ClearControls(ByVal ctls As Control())

        For Each ct As Control In ctls

            ct.Text = ""

        Next

    End Sub

[ghafoori]

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

استفاده از کرسرهای پیشفرض محیط :
کد:

Button1.Cursor = Cursors.Hand

لود کردن یک کرسر سفارشی از فایل :
کد:

button1.Cursor = new Cursor("C:\WINDOWS\Cursors\hibeam.cur")

[ghafoori]

منبع:https://barnamenevis.org/showpo...5&postcount=23

کد:

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        ClearControls(Me.controls)

    End Sub



    Public Sub ClearControls(ByVal _parent As Control)

        _parent.Text = ""

        If _parent.HasChildren = True Then

            For Each ct As Control In _parent.Controls

                ClearControls(ct)

            Next

        End If



    End Sub