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

[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

[ghafoori]

منبع:https://barnamenevis.org/showpo...0&postcount=24

کد:

INSERT INTO Sales.Customer ([TerritoryID],[CustomerType]) VALUES (8,'S')

GO

SELECT SCOPE_IDENTITY()