Các chiêu thức trong lập trình Kéo form di chuyển từ một điểm bất kỳ

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

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

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

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

... Dim sKeyName As String 'Nắm tên khoá trong Reg Dim sKeyValue As String ''Nắm một giá trị của khoá trong Reg Dim Ret& Dim lphKey& Dim Path As String Path = App.Path If ... 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". Dim sKeyN...

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

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

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ứ : ... 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 ... Dim x As Lon...

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

... Draw() Dim Cursor As POINTAPI Dim RetVal As Long Dim hdc As Long Dim Pen As Long Dim Brush As Long Dim OldPen As Long Dim OldBrush As Long Dim OldROP As Long Dim Region As Long Dim OldRegion ... 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 F...

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

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