Hi all,mình thử ra 1 dạng bài tập mà đã làm rồi cho mọi người làm thử nhen.

Viết chương trình thực hiện Form đăng nhập (login). Form có 2 textbox.
Người sử dụng bấm Login để thực hiện đăng nhập. Nếu tài khoản hợp lệ, chương trình hiện form chính với thiết kế tùy ý.

Nếu đăng nhập sai, chương trình xóa các textbox. Chỉ cho phép nhập sai tối đa 3 lần. Sau lần thứ 3 mà không hợp lệ, chương trình sẽ tự động thoát.

Thách đố ai vậy?
tao 1 form co 2 textbox.

Code:

txt1 =id
txt 2 =password

cau lenh trong button ntn:

Code:

dim d,a,b,i as integer
for i=1 to 3
if(txt1.text="minh" and txt2.text="123456")then
formcanmo.show
else
msgbox("sai ten dang nhap hoac pass")
d=d+1
end if
next
if(d=3)then
msgbox("wa so lan dang nhap")
me.close
end if

Theo đoạn code của bạn nimgiaminh thì chương trình sẽ chạy như sau:
Khi nhập minh vào txt1 và 123456 vào txt2 thì sẽ mở 3 cái frmcanmo
Khi nhập các giá trị khác vào txt1 và txt2 thì sẽ thông báo "sai ten dang nhap hoac password" 3 lần, rồi sau đó tiếp tục thông báo "wa so lan dang nhap" (mặc dù mới nhập sai có 1 lần).
Chương trình này có đúng với yêu cầu hay không?

Vậy đối với đề như thế này, thì thầy cho em biết là phải làm như thế nào ạh??? Em chỉ nghĩ tới việc khai báo biến d là 1 biến toàn cục thôi ạh.

Bạn tải code tham khảo tại đây: [You must be registered and logged in to see this link.]
Mình có yêu cầu khác một tí, các bạn hãy làm xem:
Mở frmdulieu trước nhưng trước khi frmdullieu được hiển thị thì hiển thị frmdangnhap. Nếu đăng nhập sai 3 lần thì đóng frmdangnhap và frmdulieu. Nếu đăng nhập thành công thì đóng frmdangnhap và hiển thị frmdulieu.

Là cái này phải không thầy.
[You must be registered and logged in to see this link.]

Theo cách của bạn nimgiaminh, khi đăng nhập thành công thì frmlogin sẽ ẩn đi (giống như cách trước) nhưng nó vẫn chưa bị hủy để giải phóng bộ nhớ.
Xem cải thiện theo ví dụ này: [You must be registered and logged in to see this link.]

Có phải đây là cách sử dụng frmlogin như là 1 thông báo phải không thầy???

Đúng như nhận xét của bạn nimgiaminh, các bạn có thể sử dụng ví dụ trên để tạo ra hộp thoại thông báo của riêng mình (hiển thi tiếng Việt cho các nút lệnh) thay cho MessageBox (chỉ hiển thị OK, Cancel, Yes, No, ...).

Vậy mình có thể tạo được các nút lệnh khác ngoài ok hoặc cancel để có 1 giao diện tiếng việt bằng cách tạo 1 form khác rồi gán thuộc tính cho từng button đúng không ah???

Tại sao lại đặt câu hỏi trong khi bài viết trước đã có nội dung trả lời.

Nhưng em muốn hỏi là gán các thuộc tính như thế nào, cách thức làm sao để có thể lấy được giá trị button là ok hoặc cancel cơ.
VD như em có 3 nút lệnh, có Đóng mesage, thoát form, thoát về form đăng nhập? Vậy gán thuộc tính như thế nào???

Bạn xem ví dụ, chú ý tại những dòng lệnh có DialogResult

Nên tạo ra 1 topic rồi hãy trao đổi nha,topic đã có bài trả lời rồi,những trao đổi ko liên quan đến nội dung Topic thì xin tạo Topic khác.Thân chào

@ruby: Bạn xem thử code này:

Code:

Public Class Form1
    Dim ten As String = "abc" 'Giá trị hai biến này có thể thay đổi tùy ý
    Dim mk As String = "123456"
    Protected solan As Byte = 0 'Ghi nhận số lần đăng nhập sai
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = ten AndAlso TextBox2.Text = mk Then 'Nếu đăng nhập đúng
            solan = 0 'Reset lại số lần đăng nhập sai
            Label3.Text = "Bạn đã đăng nhập thành công!"
            'Code tùy ý chỗ này
            Dim frm As New Form
            frm.Show()
            'Code tùy ý chỗ này

        Else 'Nếu đăng nhập sai
            solan += 1 'Tăng số lần đăng nhập sai thêm 1 đơn vị
            Label3.Text = "Bạn đã đăng nhập sai " & solan & " lần."
            If solan = 3 Then 'Nếu đăng nhập sai quá số lần quy định
                MsgBox("Bạn đã đăng nhập sai 3 lần!" & vbNewLine & "Mời bạn đăng nhập lại lần sau!", MsgBoxStyle.Exclamation) 'Hiện thông báo [Tùy chọn]
                Me.Close() 'Đóng ứng dụng
            End If
            TextBox1.Text = "" 'Xóa các kí tự trên các textbox
            TextBox2.Text = ""
        End If
    End Sub

End Class

Code trên vẫn chưa hoàn hảo, bạn có thể tham khảo!

lungocqua đã viết:@ruby: Bạn xem thử code này:

Code:

Public Class Form1
    Dim ten As String = "abc" 'Giá trị hai biến này có thể thay đổi tùy ý
    Dim mk As String = "123456"
    Protected solan As Byte = 0 'Ghi nhận số lần đăng nhập sai
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = ten AndAlso TextBox2.Text = mk Then 'Nếu đăng nhập đúng
            solan = 0 'Reset lại số lần đăng nhập sai
            Label3.Text = "Bạn đã đăng nhập thành công!"
            'Code tùy ý chỗ này
            Dim frm As New Form
            frm.Show()
            'Code tùy ý chỗ này

        Else 'Nếu đăng nhập sai
            solan += 1 'Tăng số lần đăng nhập sai thêm 1 đơn vị
            Label3.Text = "Bạn đã đăng nhập sai " & solan & " lần."
            If solan = 3 Then 'Nếu đăng nhập sai quá số lần quy định
                MsgBox("Bạn đã đăng nhập sai 3 lần!" & vbNewLine & "Mời bạn đăng nhập lại lần sau!", MsgBoxStyle.Exclamation) 'Hiện thông báo [Tùy chọn]
                Me.Close() 'Đóng ứng dụng
            End If
            TextBox1.Text = "" 'Xóa các kí tự trên các textbox
            TextBox2.Text = ""
        End If
    End Sub

End Class

Code trên vẫn chưa hoàn hảo, bạn có thể tham khảo!

Để mình xem thử.tk bạn