Chào mừng các bạn
-((`(`vŽ)--*** MasterSpy *** --(`vŽ)`))- - Thủ thuật Visual basic
ღLONELYღ
  Home
  => Cách tạo một trang web cho riêng mình !
  => Một số địa chỉ trang web hay dành cho bạn, ....cho tôi !
  => 5 bước cơ bản để diệt tận gốc Spyware
  => 10 điều “lính mới” nên biết
  => 10 bước để lập kế hoạch cho nghề nghiệp tương lai của bạn
  => 15 LỜI KHUYÊN HỌC TIẾNG ANH
  => 21 kho lưu dữ liệu miễn phí trên Internet
  => PHƯƠNG PHÁP XỬ LÝ LOGIC VỊ TỪ
  => 50 cuốn sách văn học cần đọc
  => Những bài học từ Adam Khoo
  => Dùng Admodify.net để quản trị và phục hồi Exchange 2003
  => Cuộc đời của Albert Einstein
  => Cảnh giác với hacker và keylogger!
  => Phần mềm miễn phí giúp bảo vệ computer khi online
  => Học thi - cần ăn uống hợp lý
  => Hacker “oánh” mỗi PC chỉ mất 39 giây
  => Xác định nguyên nhân máy tính tự khởi động !
  => Diệt virus Autorun
  => Bấm dây mạng !
  => Bảo vệ mắt khi sử dụng máy tính !
  => Blog ra đời như thế nào?
  => Bài tập Pascal kiểu bản ghi !
  => Hướng dẫn ôn tập lập trình Pascal căn bản !
  => Cách Diệt Virus
  => Cách gỡ bỏ thủ công Symantec Antivirus an toàn (Phần I)
  => Tổng hợp các lệnh ngoài DOS
  => Cài HIREN BOOTCD vào ổ cứng để cứu hộ
  => Cài windows media player 11 ( không cần active window)
  => Cấu hình mạng ADSL cho người dùng tại nhà
  => Thiết Lập Sevice trong windows XP (giúp máy chạy nhanh hơn)
  => Giới Thiệu Centos
  => Chẩn đoán lỗi của màn hình !
  => Chọn DNS truy cập mạng !
  => Kinh nghiệm phòng chống virus, spyware
  => Trắc nghiệm nghiệp vụ kế toán bằng tiếng Anh !
  => Hướng dẫn chụp hình bằng webcam
  => Tổng Hợp Code Dùng Trong Việc Tạo BLOG
  => Công dụng của các dịch vụ trong Windows
  => Sử dụng Popcap game mãi mãi !
  => Cử nhân CNTT không làm CNTT
  => Tìm hiểu DNS.Các bước thiết lập khi mới đăng ký tên miền
  => Làm DNS server online
  => Nội dung định nghĩa về vật chất của Lê Nin
  => Đọc và ... suy nghĩ !
  => Đôi điều về bảo mật hệ thống mạng trong công ty!
  => Khắc phục lỗi 999 Error của Yahoo
  => Chuyển dữ liệu của ổ C từ FAT32 thành NTFS
  => Gỡ password CMOS bằng cách nào?
  => Phần I: Cơ bản về lỗi "màn hình xanh" trong Windows
  => Tổng quan về Group Policy - từ đơn giản đến phức tạp !
  => Gửi nhiều file qua Yahoo Mail
  => Từ XP cài Hacao Linux 2.16 Pro (file ISO) vào đĩa cứng (LiveCD)
  => Chịu thuế và không chịu thuế
  => Hội thảo qua mạng với NetMeeting
  => HOST Free
  => Hướng dẫn download trên megaupload
  => KGB nén File từ 450MB còn 1.43MB rất tiện chia sẻ file trên mạng
  => Khắc phục rớt mạng liên tục
  => Kiến trúc Oracle
  => Thành công trên giảng đường đại học
  => Kỹ thuật Photoshop cơ bản !
  => Kinh nghiệm học tiếng ANH
  => KInh nghiệm học TOÁN CAO CẤP
  => Đôi điều về quá trình làm luận văn (Phần 2)
  => Làm theme cho Blog 360
  => Chia sẻ những điều học được từ cách làm việc theo nhóm
  => Vạch kế hoạch cho tương lai
  => Các Lệnh Cơ Bản trong LINUX
  => Lịch sử các nước ĐẾ QUỐC
  => Lịch sử Việt Nam
  => Links những trang web hay
  => Tạo mail server online bằng IP Động
  => Tự làm giao diện cho Yahoo Mash!
  => Mấy điểm cần tránh
  => Hỏi về IPHONE
  => Máy tính không khởi động từ ổ đĩa cứng!...?
  => MIÊU TẢ SẢN PHẨM MÁY IN hp1320
  => Phá Deep Freeze - Cướp lấy password!!!
  => Những "tuyệt chiêu" chọn mua laptop cũ
  => NHỮNG NGUYÊN TẮC CƠ BẢN CỦA BÁO CHÍ
  => Tìm hiểu nhân của hệ điều hành Linux
  => Sửa lỗi NTLDR is missing
  => Ổ cứng chóng hỏng vì... điều hòa nhiệt độ
  => Những phím tắt thông dụng trong Photoshop 7.0
  => Phím tắt trong WORDS
  => Bí mật của PHỤ NỮ
  => Hướng dẫn post hình lên mạng, và 1 số website để upload hình
  => Chương trình quản lý số điện thoại !
  => Quản lý các mạng Windows dùng script - Phần 2: Hoàn chỉnh script -
  => Cấu hình cho máy in N2500
  => Xóa nick của mình trong Friend List của người khác
  => Rollback Rx Pro:
  => User và pass của một số router
  => Giải pháp sao lưu trực tuyến miễn phí (Phần cuối)
  => Vài điều về Scanner
  => Chọn hệ điều hành của bạn
  => Làm server online tận dụng đường truyền ADSL
  => Thuật toán - Cấu trúc dữ liệu
  => So sánh Oracle và SQL Server ?
  => Cấu hình các công nghệ bảo vệ mạng Windows XP SP2 trên một máy tính
  => Tổng quan về tiết kiệm điện khi sử dụng máy tính !
  => Phần IV: Xử lý sự cố phần cứng
  => CÁC VẤN ĐỀ VỀ SỨC KHỎE PHỤ NỮ
  => Sử dụng phím tắt với Internet Explorer 7
  => SỰ PHÁT TRIỂN CỦA SINH VẬT
  => Nguồn gốc máng cỏ giáng sinh
  => Sưu tầm câu đố !
  => SVCHOST
  => Phòng chống virus cho mạng máy tính doanh nghiệp: kinh nghiệm thực tế
  => Các lệnh căn bản trong ngôn ngữ html
  => Sức mạnh của card đồ họa !
  => Cách tải Nhạc nét
  => Triết học và tâm sự của các nhà giáo
  => Phát triển chiều cao
  => Tăng tốc toàn bộ máy tính bằng tay
  => Tăng tốc WinXP
  => Chống mất cắp cho laptop với Laptop Alarm
  => Tạo file ghost!
  => Tạo một CSS layout từ một bản thiết kế (Phần 1 đến 8)
  => Tạo nick ảo trong Yahoo Messenger
  => Tết Đoan Ngọ bắt đầu từ giữa trưa
  => Thói quen tốt: Nghĩ vậy mà không phải vậy
  => Thomas Edison & những phát minh vĩ đại -
  => Windows Vista: các thủ thuật nhỏ khi sử dụng
  => Thủ thuật Blog 360
  => Thủ thuật Internet Explorer 7
  => Thủ thuật tăng tốc cho Windows
  => Thủ thuật Visual basic
  => Thủ thuật Yahoo! Messenger
  => Yahoo Messenger
  => Khám phá mạng xã hội Yahoo! Mash
  => Mẹo tìm kiếm
  => Tìm kiếm trong Excel
  => Tóc hợp khuôn mặt
  => Tokyo - Một chuyến đi
  => Mười quy luật then chốt về Bảo mật
  => Tổng hợp tất cả các kỹ thuật vượt tường lửa
  => Trang trí USB
  => Thuật toán - Cấu trúc dữ liệu CRC (Cyclic Redundancy Check)
  => Các Tuyệt kỹ khiến phái nữ phải ngã lòng
  => CÁCH UP ẢNH QUA HOST TẠI DIỄN ĐÀN
  => Quản lý danh sách bạn chat trong Yahoo! Messenger
  => Error Doctor 2007
  => TuneUp Utilities® 2007
  => Bộ gõ tiếng Việt: Unikey
  => Hướng dẫn viết bài
  => Tường lửa mới trong Windows Vista và Windows Server Longhorn
  => Web 2.0 không chỉ là công nghệ
  => Các website hữu ích về du học bậc sau đại học tại Hoa Kỳ
  => Wi-fi và an toàn thông tin
  => Thuật toán - Cấu trúc dữ liệu So khớp chuỗi với các ký tự wildcard
  => Xóa địa chỉ và homepage
  => USB không cho ghi
  => Yêu cầu của Quản trị mạng
  => Cách Add Feed trong Blog 360
  => Cách tạo theme trong suốt
  => Đề cương KT-Chính Trị
  Contact
  Guestbook
  Story
  Kiếm tiền thật dễ dàng

Biển xanh ... cát trắng

 

Content of 
tạo chữ chạy trên TitleBar của form:
Giới thiệu:
Bạn hãy thêm một Timer (với thuộc tính Interval là 10) và đoạn code sau đây vào Form.

Private Sub Form_Load()
'Form1.WindowState = 2
Form1.Caption = Space(100) & "Visual Basic"
End Sub

Private Sub Timer1_Timer()
Form1.Caption = Right(Form1.Caption, Len(Form1.Caption) - 1)
If Form1.Caption = "" Then
Form1.Caption = Space(100) & "Visual Basic"
End If
End Sub
Làm cho Controls biến mất
Bạn làm cho một Control như Label, Textbox, ListBox .v..v biến mất bằng cách cho Property 'visible' trở nên False, như:

TxtName.visible = False

Dùng

TxtName.visible = True

để làm Textbox txtName hiện ra trở lại. Khi muốn cho một nhóm Controls biến mất hay hiện ra cùng một lúc, chứa tất cả các Controls ấy trong một container như Frame hay PctureBox, rồi chỉ cần làm cho container ấy visible hay không.

Invisible Control rất tiện dụng khi ta dùng nó để chứa dữ kiện. Một TextBox tàn hình có thể Databound để lặng lẽ chứa data lấy từ một recordField của current Record cho bạn dùng. Bạn cűng có thể 'assign' (cho nó bằng) một value vào một Control tàn hình. Nếu Control ấy Databound, value sẽ được viết vào database khi đúng lúc,



Chọn nhiều Controls như một nhóm

Chọn nhiều Controls rất tiện cho việc assign một property cho cả nhóm qua Properties Window. Ðể chọn nhiều Controls như một nhóm bạn có thể 'rubber band' (quấn dây thun) cả nhóm bằng cách 'drag' con trỏ thành một hình chừ nhật bao cả nhóm lại. Nếu các Controls ấy nằm trong một container như Frame hay Picture box, trước hết bạn phải 'click' Form rồi kế đó đè nút 'Ctrl' xuống trong khi 'rubber band' như nói trên. Một khi các Controls trong một nhóm đã được chọn rồi ta có thể dùng menu Format command để Align (ngang hàng) chúng hay làm cho chúng cùng cở.

Chọn nhiều hàng trong ListBox

Muốn cho user chọn nhiều hàng trong Listbox ta phải set Property Multiselct của Listbox ra Extended. Sau đó user có thể chọn nhiều hàng bằng cách bấm nút Shift hay Ctrl trong khi Click những hàng. Nhớ là nếu bấm nút Shift thì chọn những hàng liên tục giữa hai cái click, còn bấm nút Ctrl thì chọn hay không chọn thêm từng hàng một.

Mỗi hàng trong Listbox List1 được cho thứ tự từ 0 đến List1.ListCount-1.
Khi hàng i được selected thì List1.Selected(i) = True.
Muốn 'deselect' (không chọn) hàng đó thì dùng List1.Selected(i) = False.

'Sort' các hàng trong một Listbox
Nếu ta muốn những hàng trong một Listbox được sorted theo mẫu tự (alphabetical order) thì khi thiết kế (at design time) set Property Sorted của Listbox ra True. Trong khi xử lý ta không thay đổi value của Property Sorted được. Nếu một Listbox đã lỡ có Property Sorted = False mà ta muốn Sort nó trong khi xử lý thì làm sao? Bạn đặt thêm lên Form một Listbox khác. Listbox nầy có Property Sorted = True. Khi nào muốn Sort các hàng trong Listbox thứ nhất ta làm như sao:

1. Chép tất cả mọi hàng từ Listbox thứ nhất qua Listbox thứ nhì, các hàng sẽ được sorted tự đông trong Listbox thứ nhì.
2. Clear Listbox thứ nhất
3. Chép mọi hàng từ Listbox thứ nhì qua Listbox thứ nhất.
Nhớ đừng cho user thấy Listbox thứ nhì bằng cách set Property Visible của nó ra False (tàn hình).

Lưu ý Clear một Listbox trước khi cho một số hàng mới vào và không muốn giữ những hàng cű bằng cách dùng method Clear như List1.Clear.

Sắp ngay cột những chữ trong các hàng khác nhau của Listbox
Nếu muốn tất cả các chữ cột thứ 8 của các hàng trong một Listbox đứng thẳng hàng chiều cao (vertically) bạn có thể set Font của Listbox ra Courier, một lọai Fixed Font. Tất cả các chữ của Fixed Font như Courier đều có cűng chiều rộng (character width). Ngược lại trong một Proportional spacing Font như "MS Sans Serif" chiều rộng của chừ 'í nhỏ hơn của chừ 'm'. Nếu bạn muốn dùng Tab trong Listbox thì phải gọi một API Function để làm cho Listbox chịu nhận Tab (support Tab feature).


Sắp ngay cột những chữ trong các hàng khác nhau của Listbox.
Nếu muốn tất cả các chữ cột thứ 8 của các hàng trong một Listbox đứng thẳng hàng chiều cao (vertically) bạn có thể set Font của Listbox ra Courier, một lọai Fixed Font. Tất cả các chữ của Fixed Font như Courier đều có cűng chiều rộng (character width). Ngược lại trong một Proportional spacing Font như "MS Sans Serif" chiều rộng của chừ 'í nhỏ hơn của chừ 'm'. Nếu bạn muốn dùng Tab trong Listbox thì phải gọi một API Function để làm cho Listbox chịu nhận Tab (support Tab feature).

Drag một hàng từ Listbox nầy bỏ vào Listbox khác
Giả sử bạn muốn Drag một hàng từ List1 bỏ vào List2 và display nó ở cuối List2.
Ta sẽ dùng Mousedown Event của List1 mà Drag. Khi bắt đầu Drag ta muốn MousePointer đổi ra hình một trang giấy. Do đó ta phải Browse directory để cho vào Property DragIcon của List1 tên một Icon File. Bạn có thể vào Folder C rogram FileMicrosoft Visual StudioCommonGraphicsIconsDragDrop lể chọn một Icon File.

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.Drag ' Bắt đầu drag
End Sub

Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
' Source ở đây là List1
List2.AddItem Source.Text ' Bỏ hàng từ List1 vô cuối List2
Source.RemoveItem Source.ListIndex ' Lấy hàng ra khỏi List1
List2.Listindex = List2.Listcount-1 ' Hilight hàng cuối và làm cho nó được display
End Sub


Làm sao biết Drag Source là control nào
Ta có thể dùng Function Typename như:
TypeName(Source) để xem nó là "ListBox" hay "TextBox" etc..
hay dùng TypeOf như:
If TypeOf Source Is ListBox Then
Msgbox " Drag source is a ListBox"
End If
Ta cűng có thể dùng Name của Source như:
If Source.Name = "List1" then
MsgBox "Drag source is List1"
End If
Ngoài ra ta cűng có thể dùng Property Tag của Source Control để chứa một biệt danh và dùng giống như tên của Drag Source như:
If Source.Tag = "MYLIST1" then
MsgBox "Tag of Drag Source is: " & Source.Tag
End If



In những hàng được chọn của một ListBox
Ta dùng Printer Object. Ráp tất cả những hàng được chọn lại thành một text string dài, thêm vào cuối mỗi hàng là Carriage Return / LineFeed ( vbCrLf ) .
Dim i
strOut = "" ' Initialise Output string không có gì cả
For i=0 to List1.Listcount-1
If List1.Selected(i) then
strOut = strOut & List1.List(i) & vbCrLf
End if
Next
Printer.Print strOut ' Gởi text String ra Printer
Printer.EndDoc ' Bắt đầu in ra
Nếu bạn muốn in từng hàng thì dùng:
Printer.Print List1.List(i) ' Không cần phải dùng vbVrLf
Muốn in chữ đậm thì mở BOLD lên bằng:
Printer.FontBold = True
và khi nào muốn tắt chữ đậm thì dùng:
Printer.FontBold = False


Bắt buộc user phải click ComboBox để chọn một hàng
Khi Form mới hiện ra, nếu đã có sẵn một hàng chữ nằm trong ComboBox, mà đó đúng là hàng user muốn dùng, ta không có dịp để dùng Event Click của ComboBox để làm chuyện gì tùy thuộc vào hàng mà user đã chọn.
Một mánh lới là trước khi cho các hàng vào ComboBox ta để một hàng trống, thí dụ như:
Combo1.AddItem " "
ComboBox sẽ như trống không khi Form mới hiện ra, bắt buộc user phải chọn một hàng chớ không dùng hàng đầu 'by default' (tự động có nếu không làm gì).


Làm một Control hiện ra trên mọi trang của Tab Control

Mỗi trang của Tab Control chứa riêng những Control của nó. Nếu bạn muốn một Textbox, Listbox hay CommandButton hiện ra trên mọi trang của Tab, bạn tạo control đó bên ngoài Tab và kéo nó vào đặt lên trên Tab. Nếy Control nằm phía dưới Tab, dùng VBIDE menu Comand "Format | Order | Bring to Front" để mang Control ra phía trước.

Sắp xếp thứ tự các TextBox cho Data Entry
Khi user điền các dữ kiện vào một Form (Data Entry), user rời mỗi TextBox bằng cách bấm nút Tab. Kế đó MouseCursor nhảy đến TextBox có Property TabIndex value theo thứ tự sau TabIndex value của TextBox vừa rời khỏi. Thường thường ta cho TabIndex value theo thứ tự từng cặp LblName, txtName rồi lblAddress, txtAddress, v.v. có TabIndex values thí dụ như 1,2,3,4. Khi txtName (TabIndex=2) mất Focus, mouseCursor dời đến lblAddress (TabIndex=3) , nhưng vì lblAddress là một Label nên không chứa mouseCursor được, do đó mouseCursor nhảy đến txtAddress (TabIndex=4). Nếu Caption của lblAddress có một character underlined, như

lblAddress.Caption = "Add&ess" ' character "e" underlined

khi user bấm Alt+e bất cứ lúc nào mousePointer sẽ nhảy đến lblAddress nhưng rốt cuộc rớt vào TextBox kế đó, tức là txtAddress trong trường hợp nầy.

Nếu bạn không muốn mousePointer đáp vào một TextBox nào set Property TabStop của nó ra False. Bạn cűng có thể không cho user thay đổi dữ kiện ở một TextBox bằng cách set Property Enabled ra False hay Locked ra True.



Làm sao cho data vào trong ListBox hay ComboBox

Khi Design ta có thể dùng Property List của ListBox hay ComboBox để đánh vào các dòng data. Mỗi khi xuống hàng phải nhớ dùng Ctrl+Enter chớ không phải Enter, nếu không VBIDE tưởng là bạn đã chấm dứt data entry.

Một cách khác để cho data vào ListBox hay ComboBox là dùng Method AddItem trong Sub Form_Load, như:

Sub Form_Load()

Dim i

For i=1 to 10

List1.AddItem "Line " & CStr(i)

Next

lstState.AddItem "NSW"

lstState.AddItem "VIC"

lstState.AddItem "QLD"

lstState.AddItem "SA"

lstState.AddItem "WA"

lstState.AddItem "TAS"

End Sub


Sao không thấy hình trong CommandButton?

Bạn dùng Properties Window để đặt một Picture vào một CommandButton bằng cách Browse và chọn một Image File. Nhưng bạn không thấy Picture đâu cả. Bạn còn cần phải set Propety Style của CommandButton ra "Graphical", thay vì "Standard".



Làm sao đặt icon lên Toolbar làm shortcut cho một menu command của VBIDE?

Dùng Menu command View | Toolbars | Customize để display Dialog Customize. Kế đó chọn Tag Commands, bên trái sẽ là một Listbox chứa danh sách các Categories và bên phải là những Commands thuộc về Category đang được highlighted. Thử select từng Category để tìm trong Listbox bên phải cái Command có icon mà bạn muốn. Drag icon đó lên Toolbar. Nhân dịp nầy bạn có thể bỏ một icon có sẵn trên Toolbar bằng cách Drag nó ra chỗ khác.

 
new page
Today, there have been 1 visitors (10 hits) on this page!
=> Do you also want a homepage for free? Then click here! <=
Đến với thành phố biển Vũng Tàu