Các chiêu thức trong lập trình Để form trở nên trong suốthome

... Để form trở nên trong suốt home Xuất xứ : www.allapi.net Binh khí sử dụng : Không Đoạn mã : Const LWA_COLORKEY ... As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Sub Form_ Load() Dim Ret As Long Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED ... SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA End Sub ‘ Chú ý số...

Ngày tải lên: 24/10/2013, 15:20

... hoặc gì gì đó nhưng đừng lớn quá chương trình kém “Nhạy” đừng nhỏ quá chương trình “Giật giật” Nguyên tắc : Nếu như một số Code, người ta chỉ thuần cho Form của bạn “On top” khi Load thì Code ... Để form của bạn ở chế độ “Luôn nổi” home Xuất xứ : Lê Nguyên Dũng (dungcoi) sửa lại từ www.allapi.net ... cho Form của bạn “On top” khi Load thì Code này chẳng qua cho nó “On top” dài dài...

Ngày tải lên: 24/10/2013, 15:20

... “Kéo form di chuyển từ một điểm bất kỳ” home Xuất xứ : www.allapi.net Binh khí sử dụng : Lại cũng tay ... ReleaseCapture Lib "User32" () Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Private Sub Form_ MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lngReturnValue ... lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) En...

Ngày tải lên: 24/10/2013, 14:20

... Để chương trình bạn có giao diện “Nữa trong suốt” home Giới thiệu : Trong các Độc chiêu trước tôi đã có giới thiệu 2 chiêu khá hay đó là Form trong suốt và Form theo hình dạng ... dạng bức ảnh tuy nhiên mỗi chiêu có một vẽ hay, cũng như vậy tại độc chiêu này tuy thực tế ứng dụng hầu như không gặp (Theo tôi nhận thấy) tuy nhiên nó cũng khá thú vị để ta ngâm kíu. Xuất...

Ngày tải lên: 24/10/2013, 15:20

... răng,độc lập tự chủ về kinh tế là nền tảng vật chất cơ bản để phát triển đất nớc trong điều kiện hiện nay a ,để bảo đảm sự bền vững của độc lập tự chủ về chính trị .Trong lý luận cũng nh trongtrong ... nhập luôn đứng trớc cả những thách thức và cơ hội:.........................20 III- Các phơng thức và giải pháp để xây dựng nền kinh tế độc lập tự chủ trong quá trình hội...

Ngày tải lên: 22/04/2013, 11:04

... SetClassLong me.hwnd, Contro,OldCur End Sub - Ta rút ra được một “Công thức : Thay vì đặt con trỏ động trong Form ta có thể thay Me.hwnd trong dòng lệnh : OldCur=SetClassLong(Me.hwnd, ConTro,NewCur) ... Private Sub Form_ Load 'Giả sử rằng bạn đã có sẵn file Clock.ani ở ổ C:\ NewCur=LoadCursorFromFile("C:\Clock.ani") OldCur=SetClassLong(Me.hwnd, ConTro,NewCur) End sub Pr...

Ngày tải lên: 24/10/2013, 14:20

... Mở từng hộp thoại trong Control Panel home Xuất xứ : www.pscode.com Binh khí sử dụng : Không Đoạn mã : ( Do có nhiều phần nên tôi chỉ đưa ra Code cơ bản) 'Hộp thoại

Ngày tải lên: 24/10/2013, 14:20

... home Xuất xứ : www.caulacbovb.com Binh khí sử dụng : Một CommandButton Đoạn mã : Option Explicit ‘ Các hằng số và hàm phục vụ cho việc thay đổi WallPaper Private Const SPIF_UPDATEINIFILE = &H1 ... HKEY_CURRENT_USER = &H80000001 HKEY_DYN_DATA = &H80000006 HKEY_LOCAL_MACHINE = &H80000002 HKEY_PERFORMANCE_DATA = &H80000004 HKEY_USERS = &H80000003 End Enum Private Declar...

Ngày tải lên: 24/10/2013, 15:20

... As Single) Dim pt As POINTAPI pt.X = X pt.Y = Y ClientToScreen Form1 .hwnd, pt SetCursorPos pt.X, pt.Y End Sub Form : Private Sub Form_ Load() MoveMouse 500, 400 End Sub

Ngày tải lên: 24/10/2013, 15:20

... Form có hình dạng theo một hình ảnh bất kỳ (Tất nhiên có màu tượng trưng cho form trong suốt) home Chú ý : Phần này trong lần xuất bản 1 có lỗi Xuất xứ : ... sử dụng : - 1 picture mang tên : picMainSkin trong đó có chứa sẵn một hình ảnh bất kỳ mà bạn muốn làm giao diện chương trình màu tượng trưng cho trong suốt là màu ở câu lệnh TransparentColor ... màu của điểm có tọa độ (0...

Ngày tải lên: 24/10/2013, 14:20