khóa command button bằng pass và đếm liswview

[thanhnhanubnd]

Nhờ các bạn chỉ giúp :
1. Mình có 01 form gồm nhiều button, có 1 vài button mình muốn hạn chế sử dụng, khi nhấn vào button này thì phải nhập password thì mới thực hiện lệnh được.

2. Mình có listview, có sử dụng hàm tìm kiếm.
a. Lúc hiển thị tất cả thì có 20 danh sách.
b. Lúc lọc thì còn lại 10 danh sách.

Nhờ chỉ giúp code để count danh sách đang hiển thị trên listview.

 

[Po_Pikachu]

Bạn gửi file lên được không? Không có file thì khó mà làm được. Thân.

 

[thanhnhanubnd]

file mình làm nặng lắm >3Mb.
Các bạn chỉ giúp :
1. Khóa command = password.
2. đếm listview hiện thị thực tế.

Thank.

 

[cadafi]

file mình làm nặng lắm >3Mb.
Các bạn chỉ giúp :
1. Khóa command = password.
2. đếm listview hiện thị thực tế.

Thank.

Bạn nên copy file ra một file khác, xóa hết dữ liệu đi, chừa lại vài dòng! giữ nguyên code và form, rồi zip lại và chuyển lên! Không có file khó làm lắm!

 

[thuyyeu99]

1. Khóa command = password.

trên diễn đàn có đó bạn

Sub CB1_click()
Dim PssDel As String
PssDel = InputBox("nhap Pass:", "Thong bao")
If PssDel = "123" Then
.......thi lam viec
Else
MsgBox "ban nhap sai pass"
Exit Sub
End If
End Sub



2. đếm listview hiện thị thực tế.

còn cái này bạn gửi file lên nhờ các anh trên GPE giúp "cái này ngoài khã năgn của mình"

 

[sealand]

Mình không hiểu rõ bạn định hỏi gì?

Nếu đếm số dòng trên Listview thì

so_dong= Me.LVDataSelector.ListItems.Count

Nếu đếm dòng đang chọn là dòng thứ mấy thì

Cur_line= Me.LVDataSelector.SelectedItem.Index

 

[thanhnhanubnd]

Ý mình là có 20 dòng trong litvíew, dùng code đếm ra kết quả ( trong label nào đó) : 20
, sau khi lọc còn lại litvíwew 10 dòng, dùng code đếm ra kết quả ( trong label nào đó) là 10.

 

[sealand]

Bạn có thể khai 2 biến public a1 là tổng dong của list chưa lọc va a2 sô dong trên list
bạn gán cho Labeln như sau:

Me.labeln.caption=a1 &"/" a2 & " được loc"

Hoặc bạn dùng 2 textbox để lưu 2 số này và chọn Visiable=false

Có thể lưu biến tông thôi còn chi tiết tính trực tiếp:


Me.labeln.caption=Me.LVDataSelector.ListItems.Count&"/" a1 & " được loc"

 

[thanhnhanubnd]

về tổng số thì mình làm được rồi ( đếm trong 01 cell trong excel, sau đó gắn vào label)
Còn sau khi lọc thì chưa rỏ lắm, bạn có thể viết code dùm mình ko?
Thank

 

[sealand]

Sau khi nạp Listview xong bạn dùng lệnh sau để đếm:

Me.Listview1.ListItems.Count

Hoặc khi nạp listview bạn khai thêm 1 biến Z chẳng hạn và đặt Z=0
Cài vào đoạn code adItem Z=Z+1
Mỗi khi nạp 1 dòng thì Z cũng cộng thêm 1. Kết thúc nạp thì Z chính là số dòng lọc.

Sau lệnh nạp Listview, bạn thêm 1 dòng (Ví dụ bạn dùng textbox No_loc để lưu số được lọc):

Me.No_loc=Me.Listview1.ListItems.Count
Hay
Me.No_loc=Z

 

[thanhnhanubnd]

"Me.No_loc=Me.Listview1.ListItems.Count"

Ok. Mình add vào combbox 2 được rồi, cám ơn nhiều nhé.

 

[thanhnhanubnd]

khóa command button

1. Khóa command = password.

trên diễn đàn có đó bạn

Sub CB1_click()
Dim PssDel As String
PssDel = InputBox("nhap Pass:", "Thong bao")
If PssDel = "123" Then
.......thi lam viec
Else
MsgBox "ban nhap sai pass"
Exit Sub
End If
End Sub



Cho mình hỏi để pass chỉ hiển thị dạng "******" ta phải làm sao??

 

[phamduylong]

Cho mình hỏi để pass chỉ hiển thị dạng "******" ta phải làm sao??

Muốn vậy thì bạn phải thiết kế 1 textBox trong form để nhập password. Thuộc tính PasswordChar của TextBox là "*"

 

[sealand]

Tạo Form thì khả dĩ rồi nhưng cách hiển thị trên inputbox như yêu cầu trong bài thì khó quá, thày xem lại giùm.

 

[phamduylong]

Tạo Form thì khả dĩ rồi nhưng cách hiển thị trên inputbox như yêu cầu trong bài thì khó quá, thày xem lại giùm.

Inputbox chỉ lấy thông tin. Đâu có cách nào thay đổi nó được !

 

[thanhnhanubnd]

Các bạn có thể cho 01 ví dụ ko?