តោះ! បង្កើតLogin Interface ជាមួយVB.Net

ក្នុងប្រកាសនេះ អាយធីជនបទ សូមបង្ហាញពីរបៀបបង្កើតLOGIN User Interfaceដែលប្រើរូបភាពជាBackground ហើងក្នុងនេះ យើងអាចផ្លាស់ទីវាបានផងដែរ។

កំណត់Propertiesរបស់Form

1. Name : frmLogin
2. AcceptButton : cmdlogin
3. BackColor : Black
4. BackgroundImage : រូបភាពរបស់អ្នកណាមួយដែលមានកន្ទុយ(.png) ឬអាចទាញយកResourceពី< a href="">ទីនេះ
5. BackgroundImagelayout: Stretch
6. StartPosition: CenterScreen
7. TransparencyKey: Black

កំណត់Propertiesរបស់Button LOGIN

1. Name : cmdlogin
2. AcceptButton : cmdlogin
3. BackColor : White
4. BackgroundImage : រូបភាពរបស់អ្នកណាមួយដែលមានកន្ទុយ(.png) ឬអាចទាញយកResourceពី< a href="">ទីនេះ
5. BackgroundImagelayout: Stretch

កំណត់Propertiesរបស់TextBox Username

1. Name : txtusername
2. BackColor: ScrollBar
3. BorderStyle: FixedSingle
4. Tag:admin (អ្នកអាចដាក់អ្វីក៏បានសំរាប់ជាឈ្មោះអ្នកប្រើ(Username)

កំណត់Propertiesរបស់TextBox Password

1. Name : txtpassword
2. BackColor: ScrollBar
3. BorderStyle: FixedSingle
4. Tag:12345 (អ្នកអាចដាក់អ្វីក៏បានសំរាប់ជាលេខសំងាត់(Password)
5. PasswordChar: ♥ (អ្នកអាចដាក់អីក៏បាន)

---

អនុវត្តការសរសេរកូដ

1. Public Class frmLogin​
2. Dim drag As Boolean
3. Dim Y As Integer
4. Dim X As Integer

កូដសំរាប់Button Login

5. Private Sub cmdlogin_Click(sender As Object, e As EventArgs) Handles cmdlogin.Click
6. If txtUsername.Text = txtUsername.Tag And txtpassword.Text = txtpassword.Tag Then
7. MessageBox.Show("Username and Password accepted.", "LOGIN FORM", MessageBoxButtons.OK, MessageBoxIcon.Information)
8. txtUsername.Clear()
9. txtpassword.Clear()
10. txtUsername.Focus()
11. Else
12. MessageBox.Show("Niether Username nor Password accepted.", "LOGIN FORM", MessageBoxButtons.OK, MessageBoxIcon.Error)
13. txtpassword.Clear()
14. txtUsername.Focus()
15. txtUsername.SelectionStart = 0
16. txtUsername.SelectionLength = Len(txtUsername.Text)
17. End If
18. End Sub

កូដសំរាប់ផ្លាស់ទីFORM

19. Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
20. drag = True
21. Y = Windows.Forms.Cursor.Position.Y - Me.Top
22. X = Windows.Forms.Cursor.Position.X - Me.Left
23. End Sub
24. Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
25. If e.Button = Windows.Forms.MouseButtons.Left Then
26. If drag Then
27. Me.Top = Windows.Forms.Cursor.Position.Y - Y


28. Me.Left = Windows.Forms.Cursor.Position.X - X
29. End If
30. End If
31. End Sub
32. Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
33. drag = False
34. End Sub
35. End Class

ទាញយកProject