English | Vietnamese
 

banner

[Rule] Rules  [Home] Main Forum  [Portal] Portal  
[Members] Member Listing  [Statistics] Statistics  [Search] Search  [Reading Room] Reading Room 
[Register] Register   [Login] Login [  http  | https  ]
 
Forum Index Thảo luận hệ điều hành Windows tạo một form luôn nổi lên trên màn hình Windows (VB6)  XML
  [Programming]   tạo một form luôn nổi lên trên màn hình Windows (VB6) 30/06/2006 23:08:22 (+0700) | #1 | 2540
hoanganhloc
Elite Member
[Minus]    0    [Plus]
Joined: 05/04/2003 16:47:35
Messages: 28
Offline
[Profile] [PM]
Cách tạo một form luôn nổi lên trên màn hình Windows cho dù form có focus hay lost focus.

Để hiển thị 1 form luôn nổi trên màn hình, bạn có thể dùng hàm API SetWindowPos(). Đoạn code VB cụ thể như sau :

‘Khai báo hàm API SetWindowsPos
Private Declare Function SetWindowPos Lib “user32” (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
‘Khai báo hằng
Const HWND_TOPMOST = -1
‘ Hàm xử lý biến cố Load Form
Private Sub Form_Load()
‘Các lệnh khởi động khác
‘ Hiển thị form nổi trên màn hình
retval = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 500, 400, SWP_NOSIZE Or SWP_NOMOVE)
End Sub

hakuso: trích từ http://www.pcworld.com.vn/pcworld/faq.asp?t=faqview&id=496&cat_id=2&fn=228fd4c31e4e1a1cadc20006
[Up] [Print Copy]
[digg] [delicious] [google] [yahoo] [technorati] [reddit] [stumbleupon]
Go to: 
 Users currently in here 
1 Anonymous

Powered by JForum - Extended by HVAOnline
 hvaonline.net  |  hvaforum.net  |  hvazone.net  |  hvanews.net  |  vnhacker.org
1999 - 2013 © v2012|0504|218|