Public Class LogIn
Dim form1 As New Form1
Private Sub LogIn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If tex_user.Text = "" Then
MessageBox.Show("กรุณาป้อนชื่อเข้าระบบ")
tex_user.Focus()
End If
If text_pass.Text = "" Then
MessageBox.Show("กรุณาป้อนรหัสผ่านเข้าระบบ")
text_pass.Focus()
End If
tex_user.Text = form1.Label1.Text
Me.Hide()
Dim f As New Form1
f.Show()
End Sub
End Class
ฟอร์ม แสดงชื่อที่ Login เข้าระบบ Code (VB.NET)
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
แสดง ชื่อ ที่ Login เข้ามา
End Sub
End Class
Imports System.Text
Public Class Form1
Dim strID As String = ""
Public Property _strID() As String
Get
Return strID
End Get
Set(ByVal value As String)
strID = value
End Set
End Property
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Msgbox.Show(strID)
End Sub
End Class