غیر فعال کردن دکمه ی close فرم

ابتدا متغیر های زیر را بصورت عمومی یعنی خارج از سابروتینها تعریف کنید

Private _closeClick AsBoolean

PublicConst SC_CLOSE AsInteger = 61536

PublicConst WM_SYSCOMMAND AsInteger = 274

سپس سابروتین زیر را بنویسید

Protected Overloads Overrides Sub WndProc(ByRef m As message)

If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then

ExitSub

Else

Me._closeClick = True

EndIf

MyBase.WndProc(m)

EndSub

textbox فقط اعداد را وارد می کند

در رویداد textchanged  یک جعبه متن کد زیر را بنویسید

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If IsNumeric(Me.TextBox1.Text) = False Then

Me.TextBox1.Text = ""

End If

End Sub

نحوه شبیه سازی دکمه enter با دکمه tab در vb.net

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean

If msg.WParam.ToInt32() = CInt(Keys.Enter) Then

SendKeys.Send("{tab}")

Return True

End If

Return MyBase.ProcessCmdKey(msg, keyData)

End Function