|
Chuyển
các mục giữa hai ListBox trong Access |
|
Đó hỏi:
Tôi có hai ListBox trên cùng một form. Tôi muốn chọn
một mục trong ListA và nhấn nút > thì mục này được
chuyển qua ListB, còn nhấn nút >> thì chuyển tất cả
mục của ListA qua ListB và ngược lại. Xin e-CHÍP
hướng dẫn. |
|
<vanbang_sg@> |
|
Đây trả lời:
Bạn hãy tạo form mới, vẽ hai ListBox có tên ListA và
ListB, gán thuộc tính Row Source Type cho cả hai
ListBox là Value List, vì chỉ có kiểu row source này
mới cho phép thêm mục (AddItem) mới hoặc xóa mục
(RemoveItem) cũ. Vẽ thêm 4 CommandButton lần lượt có
tên cmdChayQua, cmdChayQuaHet, cmdChayLai và
cmdChayLaiHet tương ứng lần lượt với nút >, >>, < và
<<. Bạn gõ đoạn mã 1 vào form.
Khi mở form, ListA nhận focus, các nút <, << bị mờ
đi. Người dùng có thể chọn một mục trong ListA, rồi
bấm nút > để chuyển sang ListB. Có thể chỉ cần bấm
kép (double-click) vào một mục trong ListA cần
chuyển sang ListB. Khi chuyển hết các mục trong
ListA sang ListB, danh sách ListB sẽ nhận focus, các
nút >, >> bị mờ đi. Khi đó, người dùng có thể thực
hiện tiến trình ngược lại. |
|
Đoạn mã 1 |
|
Option Compare Database
Private Sub Form_Load()
Dim i As Long
For i = 1 To 10
ListA.AddItem "Dong thu " & Str(i)
Next
ListA.SetFocus
End Sub
Private Sub ListA_GotFocus()
cmdChayQua.Enabled = True
cmdChayQuaHet.Enabled = True
cmdChayLai.Enabled = False
cmdChayLaiHet.Enabled = False
End Sub
Private Sub ListB_GotFocus()
cmdChayQua.Enabled = False
cmdChayQuaHet.Enabled = False
cmdChayLai.Enabled = True
cmdChayLaiHet.Enabled = True
End Sub
Private Sub cmdChayQua_Click()
If ListA.ListIndex >= 0 Then
ListB.AddItem ListA.ItemData(ListA.ListIndex)
ListA.RemoveItem (ListA.ListIndex)
If ListA.ListCount = 0 Then
ListB.SetFocus
End If
End If
End Sub
Private Sub cmdChayQuaHet_Click()
Do
ListB.AddItem ListA.ItemData(0)
ListA.RemoveItem (0)
Loop Until ListA.ListCount = 0
ListB.SetFocus
End Sub
Private Sub cmdChayLai_Click()
If ListB.ListIndex >= 0 Then
ListA.AddItem ListB.ItemData(ListB.ListIndex)
ListB.RemoveItem (ListB.ListIndex)
If ListB.ListCount = 0 Then
ListA.SetFocus
End If
End If
End Sub
Private Sub cmdChayLaiHet_Click()
Do
ListA.AddItem ListB.ItemData(0)
ListB.RemoveItem (0)
Loop Until ListB.ListCount = 0
ListA.SetFocus
End Sub
Private Sub ListA_DblClick(Cancel As Integer)
cmdChayQua_Click
End Sub
Private Sub ListB_DblClick(Cancel As Integer)
cmdChayLai_Click
End Sub |
|
CHƯƠNG CAN CHÍP |
|
Kiểm tra địa chỉ IP của các máy
con trong mạng LAN |
|
Đó hỏi:
e-CHÍP có thể cho tôi
biết phần mềm nào có thể kiểm tra địa chỉ IP của các
máy con trong mạng LAN không? |
|
<duyet_ln@> |
|
 |
|
Ngoài tính năng hiển
thị địa chỉ IP, với NetView bạn còn có thể truy cập
nhanh vào một máy nào đó chỉ bằng cách nhấp kép vào
tên máy hiển thị trong danh sách. Còn rất nhiều tính
năng về mạng cơ bản khác mà NetView cung cấp, bạn có
thể tự khám phá để công việc quản lý mạng của bạn
được tốt hơn. |
|
Tìm vị trí các thành phần của
giao diện Joomla |
|
Đó hỏi:
Tôi đang sử dụng
Joomla để làm website, đây là một portal rất tốt
nhưng có một vướng mắc nhỏ đó là không biết vị trí
của từng thành phần có trong theme mà tôi đang dùng
cho website. Có cách nào hay phần mềm nào có thể làm
việc đó tự động không? |
|
<haitrieu2k3@> |
|
 |
|
Đối với Joomla muốn
biết được vị trí chính xác của từng thành phần trong
theme không phải là điều dễ dàng gì nếu như bạn
không được tác giả của theme ấy cung cấp sơ đồ. Mặc
dù không được Joomla.org chính thức công bố nhưng
bạn vẫn có thể sử dụng cách dưới đây để nhìn thấy
cấu trúc của đa số các theme. Cách thực hiện rất đơn
giản, bạn chỉ đơn giản thêm chuỗi ?tp=1 vào cuối một
trang bất kỳ, ví dụ:
www.nguonmovietnam.org/index.php?tp=1, khi trang này
được tải lên trình duyệt thì tên các vị trí của
theme sẽ được thể hiện chồng lên trên nội dung của
trang, rất trực quan. |
|
TRẦN
ANH VŨ |
|
[Đầu trang]
|