27-11-17, 04:02 AM
وعليكم السلام ورحمة الله وبركاته
هذا الكود بطريقة VB.NET
<Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function SetFocus(ByVal hWnd As IntPtr) As IntPtr
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Visible = False
SetFocus(TextBox1.Handle)
End Sub
هذا الكود بطريقة VB.NET
<Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function SetFocus(ByVal hWnd As IntPtr) As IntPtr
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Visible = False
SetFocus(TextBox1.Handle)
End Sub

