Các chiêu thức trong lập trình Form có hình dạng theo một hình ảnh bất kỳ

... Dấu dữ liệu dạng text vào 1 file bất kỳ home Xuất xứ : www.ttvnol.com Binh khí sử dụng : Hai textbox đặt tên lần lượt là ... cùng cho “Nó” và “Thả” nó ra. Vì nguyên tắc đơn giản nên bạn cần kết hợp với chiêu “Mã hóa dữ liệu dạng Text” mới có “Cơ may” qua mặt kẻ thù. Đoạn mã : (Khi Runtime nhớ nhập đường dẫn và nội

Ngày tải lên: 24/10/2013, 14: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ứ : www.pscode.com ... 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 = GetPixel(hDC,...

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

... 'THủ tục dùng để đăng kí Icon cho chương trình Public Sub Tao_File_He_Thong() 'Giả sử rằng chương trình của bạn sẽ đăng kí ch việc thay đổi các tập tin có phần mở rộng là "*.mp3". ... "shell\open\command", REG_SZ, _ sKeyValue, MAX_PATH) 'Lấy một Icon làm ảnh đại diện sKeyName = "Khunglongbeo" 'Bạn hãy tìm một file .Ico bất kì v...

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

... 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) ... con trỏ động tại một đối tượng nào đó home Xuất xứ : www.ttvnol.com Binh khí sử dụng : Chỉ cần một cái Form Đoạn mã : 'Hằng được sử dụng private Const ConTro=(-12) &apos...

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

... Sub Private Sub Form_ MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Selecting = True SetCapture Me.hwnd Form_ MouseMove 0, Shift, X, Y End Sub Private Sub Form_ MouseMove(Button ... Hiệu ứng khi Click vào Form home Xuất xứ : www.pscode.com Binh khí sử dụng : Không Đoạn mã : Private Type POINTAPI X As ... Integer, X As Single, Y As Single) If Selecting = False T...

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

... Private Sub Form_ Load() Dim Ret As Long Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0) If Ret = 1 Then MsgBox "Ban da ket noi Internet " & sConnType, vbInformation Else ... Kiểm tra máy tính của bạn có kết nối Internet hay không Xuất xứ : www.allapi.com Binh khí sử dụng : - Không Đoạn mã : Private ... Internet " & sConnType, vbInformation Else MsgBox &quo...

Ngày tải lên: 24/10/2013, 14: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 không tập bắt ... 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, HTC...

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

... ReadyToClose = True Unload Me End Sub Private Sub Form_ Load() RemoveMenus Me, False, False, _ False, False, False, True, True End Sub Private Sub Form_ QueryUnload(Cancel As Integer, UnloadMode As ... Const MF_BYPOSITION = &H400& Private ReadyToClose As Boolean Private Sub RemoveMenus(frm As Form, _ remove_restore As Boolean, _ remove_move As Boolean, _ remove_size As Boolean, _ r...

Ngày tải lên: 24/10/2013, 15: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 bức ảnh tuy nhiên mỗi chiêu ... suốt và Form theo hình 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...

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

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