#HookLab - Tạo cửa sổ TaskPane / ActionPane bằng UserForm (1 người xem)

[thaipv]

Gửi tặng các bạn mã nguồn để tạo cửa sổ TaskPane / ActionPane (cửa sổ phụ) trong excel bằng UserForm.
Ghi chú : Cửa sổ con di chuyển trong phạm vi bên trong và di chuyển theo cửa sổ cha của nó.
+ Màu cam : Cửa sổ ông nội XLMAIN
+ Màu đỏ : Cửa sổ cha XLDESK
+ Màu tím : Cửa sổ con EXCEL7

Giải thuật vắn tắt :
1. Thiết lập UserFom làm (giả) TaskPane / ActionPane là con của cửa sổ XLDESK (con nuôi).
2. Sắp xếp lại vị trí của UserForm và EXCEL7 (con ruột) sao cho không đè lên nhau (UserForm có thể ở bên trái hoặc bên phải của EXCEL7...).
3. Mỗi khi cửa sổ cha XLDESK thay đổi vị trí hoặc kích thước thì cửa sổ con cũng thay đổi theo (và trở về mặc định). Vì vậy, ta cần đặt 1 hook bắt sự kiện này để UserForm và EXCEL7 định lại vị trí và kích thước theo đúng ý 2.

 

[Kiều Mạnh]

UserFom làm (giả) TaskPane ..... không đẹp lắm .... nhưng khâm phục và ngưỡng mộ

 

[HeSanbi]

Gửi tặng

Không biết code VBA là do bác sở hữu và nắm bản quyền hay thế nào, nếu không thì "gửi tặng" là không hợp lí. Code thông qua WinAPI để thực hiện nên không ai cấp phép cả, mà cộng đồng được phép sử dụng theo chính sách của Microsoft.
Và các dòng chú thích tiếng Anh khá là "Anh", vậy nên chỉ có thể đăng là "chia sẻ code". Không biết bác có đồng ý không?
Và kỹ thuật code chưa hoàn chỉnh, sẽ làm ngưng tiến trình ứng dụng Excel đột ngột.

 

[thaipv]

Không biết code VBA là do bác sở hữu và nắm bản quyền hay thế nào, nếu không thì "gửi tặng" là không hợp lí. Code thông qua WinAPI để thực hiện nên không ai cấp phép cả, mà cộng đồng được phép sử dụng theo chính sách của Microsoft.
Và các dòng chú thích tiếng Anh khá là "Anh", vậy nên chỉ có thể đăng là "chia sẻ code". Không biết bác có đồng ý không?
Và kỹ thuật code chưa hoàn chỉnh, sẽ làm ngưng tiến trình ứng dụng Excel đột ngột.

Code này do tôi viết 100% (tất nhiên là ngoại trừ những API), các chú thích tiếng Anh cũng vậy.

 

[HeSanbi]

Tuy bác viết nhưng bác phải sở hữu theo luật sở hữu trí tuệ, thì code bác có thể nói là tặng, ở trường hợp này có lẽ là chia sẽ code.

 

[giaiphap]

Gửi tặng các bạn mã nguồn để tạo cửa sổ TaskPane / ActionPane (cửa sổ phụ) trong excel bằng UserForm.View attachment 219359
Ghi chú : Cửa sổ con di chuyển trong phạm vi bên trong và di chuyển theo cửa sổ cha của nó.
+ Màu cam : Cửa sổ ông nội XLMAIN
+ Màu đỏ : Cửa sổ cha XLDESK
+ Màu tím : Cửa sổ con EXCEL7

Giải thuật vắn tắt :
1. Thiết lập UserFom làm (giả) TaskPane / ActionPane là con của cửa sổ XLDESK (con nuôi).
2. Sắp xếp lại vị trí của UserForm và EXCEL7 (con ruột) sao cho không đè lên nhau (UserForm có thể ở bên trái hoặc bên phải của EXCEL7...).
3. Mỗi khi cửa sổ cha XLDESK thay đổi vị trí hoặc kích thước thì cửa sổ con cũng thay đổi theo (và trở về mặc định). Vì vậy, ta cần đặt 1 hook bắt sự kiện này để UserForm và EXCEL7 định lại vị trí và kích thước theo đúng ý 2.

Đỉnh, cách của bạn rất hay. Tôi chỉnh chút code nhìn cũng rất chuyên nghiệp với cái giao diện TaskPanel này.

 

[Kiều Mạnh]

Đỉnh, cách của bạn rất hay. Tôi chỉnh chút code nhìn cũng rất chuyên nghiệp với cái giao diện TaskPanel này.

Bạn cải tiến viết thêm chút ... !!!

VD: Túm cái Form keo thả vào 4 góc là nó vô đúng vị trí của nó ...vvv và khắc phục một số lỗi nữa là ok đấy

 

[giaiphap]

Bạn cải tiến viết thêm chút ... !!!

VD: Túm cái Form keo thả vào 4 góc là nó vô đúng vị trí của nó ...vvv và khắc phục một số lỗi nữa là ok đấy

Mình cũng sửa lại để cái Form vừa lại với giao diện, di chuyển thì nhu cầu chỉ nằm bên trái hoặc bên phải thôi, còn khi sử dụng tạm thời chưa phát hiện nó bị lỗi gì, nếu bạn phát hiện chia sẻ cách khắc phục.

 

[thuyyeu99]

Cách này cũng hay thật, phải chi biết sớm thì đỡ khổ hihihi

 

[giaiphap]

Cách này cũng hay thật, phải chi biết sớm thì đỡ khổ hihihi

Thì ra mục đích của học Delphi là chổ này...

 

[thuyyeu99]

Thì ra mục đích của học Delphi là chổ này...

Cái này với cái Listview anh

 

[Kiều Mạnh]

Cái này với cái Listview anh

Mạnh cũng đang có ý định mò viết Add-Ins TaskPane trên Delphi ... mà lâu nay bận quá ko có thời gian mở Delphi lên coi ... lâu lâu ghé GPE chọc chọc vài dòng lướt qua vậy chứ có coi kỹ bài nào mô

 

[Mutants Men]

Gửi tặng các bạn mã nguồn để tạo cửa sổ TaskPane / ActionPane (cửa sổ phụ) trong excel bằng UserForm.View attachment 219359
Ghi chú : Cửa sổ con di chuyển trong phạm vi bên trong và di chuyển theo cửa sổ cha của nó.
+ Màu cam : Cửa sổ ông nội XLMAIN
+ Màu đỏ : Cửa sổ cha XLDESK
+ Màu tím : Cửa sổ con EXCEL7

Giải thuật vắn tắt :
1. Thiết lập UserFom làm (giả) TaskPane / ActionPane là con của cửa sổ XLDESK (con nuôi).
2. Sắp xếp lại vị trí của UserForm và EXCEL7 (con ruột) sao cho không đè lên nhau (UserForm có thể ở bên trái hoặc bên phải của EXCEL7...).
3. Mỗi khi cửa sổ cha XLDESK thay đổi vị trí hoặc kích thước thì cửa sổ con cũng thay đổi theo (và trở về mặc định). Vì vậy, ta cần đặt 1 hook bắt sự kiện này để UserForm và EXCEL7 định lại vị trí và kích thước theo đúng ý 2.

nhấn vào có hiện form lên sau đó con trỏ xoay tầm 2s, rồi tự động tắt excel luôn bác ạ, không nhấn gì nữa cả

 

[thuyyeu99]

nhấn vào có hiện form lên sau đó con trỏ xoay tầm 2s, rồi tự động tắt excel luôn bác ạ, không nhấn gì nữa cả

Cai này còn phải bẩy lỗi nhiều hihihi

 

[giaiphap]

Cai này còn phải bẩy lỗi nhiều hihihi

Bạn sửa lại để hoàn chỉnh luôn đi bạn, thật sự có nghiên cứu tới mấy cái API để xem lỗi chổ nào nhưng máy mình chạy nó không hề báo lỗi. Mà cái vụ API mình nghiền hoài nhưng vẫn không nuốc nổi, bó tay.

 

[thuyyeu99]

Bạn sửa lại để hoàn chỉnh luôn đi bạn, thật sự có nghiên cứu tới mấy cái API để xem lỗi chổ nào nhưng máy mình chạy nó không hề báo lỗi. Mà cái vụ API mình nghiền hoài nhưng vẫn không nuốc nổi, bó tay.

hihihi em cũng đâu có rành môn API đâu với lại máy tháng gần đây em có chút việc bận nên không ngồi máy lâu được nên đâu có mày mò code được, lâu lâu vô diễn đàn comment đỡ buồn.

 

[giaiphap]

Đúng là có lỗi thật, khi mình thay đổi kích thước (Phóng to, di chuyển, đổi vị trí) của của sổ WorkBook một chút thì nó treo luôn excel. Ai khắc phục được hoàn thiện nó đi mọi người, bạn @thaipv khắc phục sản phẩm của mình xem sao.

 

[thaipv]

Đúng là có lỗi thật, khi mình thay đổi kích thước (Phóng to, di chuyển, đổi vị trí) của của sổ WorkBook một chút thì nó treo luôn excel. Ai khắc phục được hoàn thiện nó đi mọi người, bạn @thaipv khắc phục sản phẩm của mình xem sao.

Cập nhật :
+ Thiết kế, căn chỉnh lại frmTaskPane theo phong cách phẳng.
+ Chuyển code vào UserForm.
Các bạn tải về test thử nhé.

 

[quanluu]

Mình thử xem thế n ào thì: excel stop working nhé.
excel 2013 64bit

 

[thaipv]

Mình thử xem thế n ào thì: excel stop working nhé.
excel 2013 64bit

Hôm qua tôi có dò lại mã mà chưa hiểu lỗi chỗ nào(Lỗi 'Stop Working' thường là do các hàm API gây ra). Bạn nào dùng Office 64bit thì test giùm nhé.

 

[giaiphap]

View attachment 228144
Cập nhật :
+ Thiết kế, căn chỉnh lại frmTaskPane theo phong cách phẳng.
+ Chuyển code vào UserForm.
Các bạn tải về test thử nhé.

Mở lên chút nó đơ luôn Excel bạn ơi và bật tắt vài lần thì nó lại báo lỗi thế này.

Chắc phải cái tiến vài lần nửa.

 

[Kiều Mạnh]

Sao VBA nó ko hổ trợ TaskPanes mà mình cứ loanh quanh làm giả khổ quá nhỉ
thấy link sau nó có hướng dẫn mã chưa test ko biết là cho Excel hay Word nữa

Excel 2007 VBA Programmer's Reference

This book is aimed squarely at Excel users who want to harness the power of the VBA language in their Excel applications. At all times, the VBA language is presented in the context of Excel, not just as a general application programming language. The Primer has been written for those who are new...

books.google.com.vn

Mới kiếm được sách xong thích khúc code nào copy cho nhanh trên File PDF úp cho ai iu em nó

 

[Nguyễn Duy Tuân]

Code cũ của bạn trong mHooklab là:

#If VBA7 Then
   ...
    Public Function xlDeskProc(ByVal hWnd As LongPtr, ByVal uMsg As Long, _
                               ByVal wParam As Long, ByVal lParam As Long) As LongPtr
        If WM_SIZE = uMsg Then
            Call frmTaskPane.SetLayout
        Else
            If 0 = lpPrevProc Then Call RecoverPointer(lpPrevProc, "lpPrevProc")
            If 0 <> lpPrevProc Then
                xlDeskProc = CallWindowProc(lpPrevProc, hWnd, uMsg, wParam, lParam)
            End If
        End If
    End Function
#Else
...
#End If

Trong môi trường 64-bit thì tham số LPARAM, WPARAM là số Long 8 byte vì thế hàm xlDeskProc bạn phải sửa lại kiểu của hai tham số này. Cần sửa lại như sau:

#If VBA7 Then
   ...
    Public Function xlDeskProc(ByVal hWnd As LongPtr, ByVal uMsg As Long, _
                               ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
        If WM_SIZE = uMsg Then
            Call frmTaskPane.SetLayout
        Else
            If 0 = lpPrevProc Then Call RecoverPointer(lpPrevProc, "lpPrevProc")
            If 0 <> lpPrevProc Then
                xlDeskProc = CallWindowProc(lpPrevProc, hWnd, uMsg, wParam, lParam)
            End If
        End If
    End Function
#Else
...
#End If

Mình góp ý thêm là các khai báo hàm API của bạn nên sửa lại cho gọn, liên quan đến các hàm SetWindowLongPtrA, GetWindowLongPtrA

    #If Win64 Then
        Public Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" ( _
            ByVal hWnd As LongPtr, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As LongPtr) As LongPtr
    #Else
        Public Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" ( _
            ByVal hWnd As LongPtr, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As LongPtr) As LongPtr
    #End If

Sửa lại là

    #If Win64 Then
        Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( _
            ByVal hWnd As LongPtr, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As LongPtr) As LongPtr
    #Else
        Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
            ByVal hWnd As LongPtr, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As LongPtr) As LongPtr
    #End If

Khi đưa về một tên SetWindowLong thì sau này sử dụng nó bạn không phải điều hướng biên dịch #If VBA7 nữa thì code sẽ ngắn gọn hơn.
Trong các code liên quan tới điều hướng 32 và 64-bit chưa được gọn (phải viết lại nguyên một hàm). Chỉ nên điều hướng những dòng code , những khai báo có kiểu dữ liệu khác nhau, code bên trong Sub, Function nên đồng bộ cả 32 và 64 bit sau này bảo trì và nâng cấp thuận lợi hơn.

Dự án liên quan đến API - subclass trong VBA này còn nhiều gian nan lắm. Còn rất nhiều việc khác bạn phải nâng cấp nữa.

 

[thukhon2014]

Đúng cái mình cần, chỉ cần Add là sài. Cảm ơn bạn rất nhiều vì đã chia sẽ

 

[Kiều Mạnh]

Thấy Bill nói trên Vb có vẻ đơn giản thế mà VBA nó không hổ trợ thấy buồn ... có cách nào lách xài không nhỉ
Code Của Bill

CustomTaskPaneCollection Interface (Microsoft.Office.Tools)

Represents a collection of custom task panes in a Microsoft Office application.

docs.microsoft.com

Private myUserControl1 As MyUserControl
Private WithEvents myCustomTaskPane As Microsoft.Office.Tools.CustomTaskPane

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Me.Startup

    myUserControl1 = New MyUserControl()
    myCustomTaskPane = Me.CustomTaskPanes.Add(myUserControl1, "New Task Pane")

    With myCustomTaskPane
        .DockPosition = Office.MsoCTPDockPosition.msoCTPDockPositionFloating
        .Height = 500
        .Width = 500
        .DockPosition = Office.MsoCTPDockPosition.msoCTPDockPositionRight
        .Width = 300
        .Visible = True
    End With
End Sub

[System.Runtime.InteropServices.Guid("c3a84bf1-e95b-4d23-952d-59e35673958e")]
public interface CustomTaskPaneCollection : 
IDisposable, System.Collections.Generic.IEnumerable<Microsoft.Office.Tools.CustomTaskPane>

How to: Add a custom task pane to an application - Visual Studio (Windows)

Learn how you can add a custom task pane to the applications by using the Visual Studio Tools for Office (VSTO) Add-in.

docs.microsoft.com

 

[thaipv]

Thấy Bill nói trên Vb có vẻ đơn giản thế mà VBA nó không hổ trợ thấy buồn ... có cách nào lách xài không nhỉ
Code Của Bill

CustomTaskPaneCollection Interface (Microsoft.Office.Tools)

Represents a collection of custom task panes in a Microsoft Office application.

docs.microsoft.com

Private myUserControl1 As MyUserControl
Private WithEvents myCustomTaskPane As Microsoft.Office.Tools.CustomTaskPane

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Me.Startup

    myUserControl1 = New MyUserControl()
    myCustomTaskPane = Me.CustomTaskPanes.Add(myUserControl1, "New Task Pane")

    With myCustomTaskPane
        .DockPosition = Office.MsoCTPDockPosition.msoCTPDockPositionFloating
        .Height = 500
        .Width = 500
        .DockPosition = Office.MsoCTPDockPosition.msoCTPDockPositionRight
        .Width = 300
        .Visible = True
    End With
End Sub

[System.Runtime.InteropServices.Guid("c3a84bf1-e95b-4d23-952d-59e35673958e")]
public interface CustomTaskPaneCollection :
IDisposable, System.Collections.Generic.IEnumerable<Microsoft.Office.Tools.CustomTaskPane>

How to: Add a custom task pane to an application - Visual Studio (Windows)

Learn how you can add a custom task pane to the applications by using the Visual Studio Tools for Office (VSTO) Add-in.

docs.microsoft.com

Dường như là không có cách nào tạo TaskPane theo cách 'chính thống' trong VBA được. Tài liệu bạn gửi ở bài #22 cũng yêu cầu 1 COM-Addin.

 

[Kiều Mạnh]

Em CustomTaskPane ... Mạnh làm đang hình thành thai nghén ... khoe một tẹo he
Viết *.OCX luôn he
Vậy là trên GPE Mạnh là người thứ 2 Viết *.OCX CustomTaskPane sau sư Phụ @Nguyễn Duy Tuân .... Coder Đẳng Cấp đó he

 

[Nguyễn Duy Tuân]

Em CustomTaskPane ... Mạnh làm đang hình thành thai nghén ... khoe một tẹo he
Viết *.OCX luôn he
Vậy là trên GPE Mạnh là người thứ 2 Viết *.OCX CustomTaskPane sau sư Phụ @Nguyễn Duy Tuân .... Coder Đẳng Cấp đó he
View attachment 228374

Đúng hướng rồi. Tham số myUserControl là Form ActiveX. Bạn chú ý sử dụng các thuộc tính Align hoặc Anchors để căn chỉnh các controls theo Form là ok đấy.

 

[thuyyeu99]

Em CustomTaskPane ... Mạnh làm đang hình thành thai nghén ... khoe một tẹo he
Viết *.OCX luôn he
Vậy là trên GPE Mạnh là người thứ 2 Viết *.OCX CustomTaskPane sau sư Phụ @Nguyễn Duy Tuân .... Coder Đẳng Cấp đó he
View attachment 228374

Anh number one

Chỉ em với hhihihi

MỚI bắt đầu còn nhiều thứ lỗi lắm

anh viết bằng gì vậy ?

 

[Kiều Mạnh]

Anh number one

Chỉ em với hhihihi

MỚI bắt đầu còn nhiều thứ lỗi lắm

 

[Kiều Mạnh]

Co và giản kéo và thả 4 góc Excel thoải mái... thấy tiện ích
Mỗi ngày điều chỉnh viết thêm vô một chút ... chơi mà học .... học mà chơi vậy mới vui khi mò ra một cái gì đó

 

[thuyyeu99]

hihi nếu anh viết trên Delphi còn nhứt đầu nhiều lắm

 

[Kiều Mạnh]

hihi nếu anh viết trên Delphi còn nhứt đầu nhiều lắm

Sư phụ lâu nay vẫn có và đang xài đó còn giả vờ hỏi sao ???!!!!

Nếu thích thì có thể tải cuốn sách bài #22 nghiên cứu là có thể làm được theo cách của Sư phụ he

 

[thuyyeu99]

Sư phụ lâu nay vẫn có và đang xài đó còn giả vờ hỏi sao ???!!!!

Nếu thích thì có thể tải cuốn sách bài #22 nghiên cứu là có thể làm được theo cách của Sư phụ he

Lâu rồi em đâu có sài nó, nó còn lỗi gõ tiếng việt lâu lâu nó đơ đơ em chưa giải quyết được (có thể do em chưa biết làm)?

 

[Kiều Mạnh]

Lâu rồi em đâu có sài nó, nó còn lỗi gõ tiếng việt lâu lâu nó đơ đơ em chưa giải quyết được (có thể do em chưa biết làm)?

mà thấy cái đó tự viết trên Delphi hay xài ADD-IN EXPRESS vậy

 

[thuyyeu99]

mà thấy cái đó tự viết trên Delphi hay xài ADD-IN EXPRESS vậy

đang sài ADD-IN EXPRESS em thấy cũng ít sử dụng quá nên cũng không hứng thú lắm

 

[Kiều Mạnh]

đang sài ADD-IN EXPRESS em thấy cũng ít sử dụng quá nên cũng không hứng thú lắm

tiện có vậy viết luôn file *.OCX (x32-x64) mà xài xem sao

 

[thuyyeu99]

tiện có vậy viết luôn file *.OCX (x32-x64) mà xài xem sao

Cực lắm
Em có thử viết cái OCX mà nhắm không đủ sức làm nên thôi

 

[Kiều Mạnh]

Cực lắm
Em có thử viết cái OCX mà nhắm không đủ sức làm nên thôi
View attachment 228455

Mạnh thấy VB6 cũng viết tốt có điều nó lỗi thời ko hổ trợ nữa và chỉ chạy trên nền tảng x32 ... còn x64 thì mạnh ko biết
không biết có cách nào viết *.OCX trên VB6 xong chuyển nó qua Delphi build x32_x64 được ko nhỉ ??? ( Vì mình có thể làm tốt trên VB6 còn Delphi thì thua)

 

[thuyyeu99]

Mạnh thấy VB6 cũng viết tốt có điều nó lỗi thời ko hổ trợ nữa và chỉ chạy trên nền tảng x32 ... còn x64 thì mạnh ko biết
không biết có cách nào viết *.OCX trên VB6 xong chuyển nó qua Delphi build x32_x64 được ko nhỉ ??? ( Vì mình có thể làm tốt trên VB6 còn Delphi thì thua)

Kiến thức em thì em bó tay anh ơi hông có đơn giản đâu viết thì có thể nó chạy đó mà nó chạy có ổn không thì không biết, lỗi tràn bộ nhớ v.v.v......

 

[Kiều Mạnh]

Kiến thức em thì em bó tay anh ơi hông có đơn giản đâu viết thì có thể nó chạy đó mà nó chạy có ổn không thì không biết, lỗi tràn bộ nhớ v.v.v......

quả thực là vậy mà tài liệu viết Task Pane trên VB6 + Delphi cực hiếm (trừ khi xài ké cái ADD-IN EXPRESS) còn lại ko thấy luôn ... còn c++/C# , VB.net thì đầy ra đó mà ít ai quan tâm
Mò Google lòi con mắt ra ko thấy luôn .... Cái cuốn sách bài #22 nó chỉ hướng dẫn có 1 nữa trong đó còn 1 nữa là thì chỉ có mò mới ra !!!!
mà 1 vài thư viện trên Windows10 nó lại ko hổ trợ

Vãi kinh luôn

 

[thuyyeu99]

quả thực là vậy mà tài liệu viết Task Pane trên VB6 + Delphi cực hiếm (trừ khi xài ké cái ADD-IN EXPRESS) còn lại ko thấy luôn ... còn c++/C# , VB.net thì đầy ra đó mà ít ai quan tâm
Mò Google lòi con mắt ra ko thấy luôn .... Cái cuốn sách bài #22 nó chỉ hướng dẫn có 1 nữa trong đó còn 1 nữa là thì chỉ có mò mới ra !!!!
mà 1 vài thư viện trên Windows10 nó lại ko hổ trợ

Vãi kinh luôn

Máy cái này làm gì có ai chia sẻ anh. Người ta viết được đó mà không có ai chia sẻ đâu . Nếu anh muốn làm thì nên Tự lực cánh sinh là chính

 

[Kiều Mạnh]

Máy cái này làm gì có ai chia sẻ anh. Người ta viết được đó mà không có ai chia sẻ đâu . Nếu anh muốn làm thì nên Tự lực cánh sinh là chính

Vậy chốt lại là sư phụ xài ké cái ADD-IN EXPRESS viết Task Pane chứ không phải tự tay viết ?!
Còn Mạnh lại tự tay mò ( Copy Của ai đó tí + ai đó 1 tẹo) xong tự tay viết he mà ko phải xài ké của ai đó .... vãi he

 

[thuyyeu99]

Chính xác là em đang sài ké
Chắc quởn quởn bắt trước anh tập làm quá, gần cuối năm rồi, gần 20/11 nữa nhiều việc quá

 

[Kiều Mạnh]

Chính xác là em đang sài ké
Chắc quởn quởn bắt trước anh tập làm quá, gần cuối năm rồi, gần 20/11 nữa nhiều việc quá

Nếu vậy mà là Mạnh thì Mạnh xài ké cái BSAC.OCX của Sư Phụ @Nguyễn Duy Tuân thì lại đỉnh trong đỉnh đó he ... khởi phải suy nghỉ cho U đầu

 

[thuyyeu99]

Tùy mõi người, nếu muốn tiện thì nên sài Tool người ta viết sẵn cho tiện, vừa được vá lỗi, vừa được hướng dẫn nhưng....
Còn muốn trải nghiệm thì mày mò cho vui.
Thôi không nói chuyện nữa loãn Topic hết.
Vậy nha

 

[Kiều Mạnh]

Khoe 1 tẹo ... mò ra cái chìa khóa rùi thì cứ thế mà thêm code vào thui
Taskpane cho Word

Taskpane cho Excel

Taskpane cho Access

Làm chung 3 Em hay nhiều Em nó vào 1 *.OCX ... mở Excel , Access hay Word lên điều thấy các Em nó
Mò Tiếp chim view + Custom Ribbon nữa vậy là có cái Add-Ins link tinh trong đó .... hahahaha

 

[tranthevu]

quả thực là vậy mà tài liệu viết Task Pane trên VB6 + Delphi cực hiếm (trừ khi xài ké cái ADD-IN EXPRESS) còn lại ko thấy luôn ... còn c++/C# , VB.net thì đầy ra đó mà ít ai quan tâm
Mò Google lòi con mắt ra ko thấy luôn .... Cái cuốn sách bài #22 nó chỉ hướng dẫn có 1 nữa trong đó còn 1 nữa là thì chỉ có mò mới ra !!!!
mà 1 vài thư viện trên Windows10 nó lại ko hổ trợ

Vãi kinh luôn

cho e hỏi sách gì vậy a.

 

[phuongnam366377]

cho e hỏi sách gì vậy a.

để viết được *.OCX Task Pane

1/ ít nhất bạn phải biết VB6 Or Tools khác
2/ Sách thì xem lại mấy bài trước
3/ trên GPE này sau 10 năm mới có người viết ra cái *.OCX Task Pane thứ 2 đấy ===> chứng tỏ 1 điều là khó đấy !?
4/ Cố giắng hãy tự thân thử sức xem ... kẹt quá thì xài lại của ai đó hay làm giả như chủ thớt vậy cho lẹ
5/ khi biết rồi thì thấy rất đơn giản ... tại ta chưa biết khai báo sử dụng mà thôi
....
...
Thử sức xem sao nha ... còn hướng dẫn thì chắc không bao giờ quá hãy để đấy sau 1 to 10 năm sau xem như thế nào thôi

 

[tranthevu]

để viết được *.OCX Task Pane

1/ ít nhất bạn phải biết VB6 Or Tools khác
2/ Sách thì xem lại mấy bài trước
3/ trên GPE này sau 10 năm mới có người viết ra cái *.OCX Task Pane thứ 2 đấy ===> chứng tỏ 1 điều là khó đấy !?
4/ Cố giắng hãy tự thân thử sức xem ... kẹt quá thì xài lại của ai đó hay làm giả như chủ thớt vậy cho lẹ
5/ khi biết rồi thì thấy rất đơn giản ... tại ta chưa biết khai báo sử dụng mà thôi
....
...
Thử sức xem sao nha ... còn hướng dẫn thì chắc không bao giờ quá hãy để đấy sau 1 to 10 năm sau xem như thế nào thôi

Em thấy có người thứ 3 roi :

Liên kết: https://www.youtube.com/watch?v=p0zfWZZ8V1Y

Bài đã được tự động gộp: 14/6/21

để viết được *.OCX Task Pane

1/ ít nhất bạn phải biết VB6 Or Tools khác
2/ Sách thì xem lại mấy bài trước
3/ trên GPE này sau 10 năm mới có người viết ra cái *.OCX Task Pane thứ 2 đấy ===> chứng tỏ 1 điều là khó đấy !?
4/ Cố giắng hãy tự thân thử sức xem ... kẹt quá thì xài lại của ai đó hay làm giả như chủ thớt vậy cho lẹ
5/ khi biết rồi thì thấy rất đơn giản ... tại ta chưa biết khai báo sử dụng mà thôi
....
...
Thử sức xem sao nha ... còn hướng dẫn thì chắc không bao giờ quá hãy để đấy sau 1 to 10 năm sau xem như thế nào thôi

Và thấy có người thứ 4 (Quá ít) :

Liên kết: https://www.youtube.com/watch?v=A7q4FSbUVHM

 

[phuongnam366377]

Em thấy có người thứ 3 roi :

Liên kết: https://www.youtube.com/watch?v=p0zfWZZ8V1Y

Bài đã được tự động gộp: 14/6/21

Và thấy có người thứ 4 (Quá ít) :

Liên kết: https://www.youtube.com/watch?v=A7q4FSbUVHM

cái đó viết = C# có 1 đống files ấy không phải *.OCX .... code trên Google có 1 tấn luôn
Tìm ngay trên GPE này nick @giaiphap là thấy code kiểu đó

 

[Kiều Mạnh]

Ôi dào code với trả két ... ngày ấy mò khoãng 2 tuần viết trên VB6 thì nó Show ra .....


bỏ diết mấy năm sau nó lại mới Show lại trên Delphi



Tôi Chỉ vào đây đánh dấu 1 chút như đại thánh bay trong lòng bàn tay phật tổ thôi

 

[Trần Dương 98]

Em CustomTaskPane ... Mạnh làm đang hình thành thai nghén ... khoe một tẹo he
Viết *.OCX luôn he
Vậy là trên GPE Mạnh là người thứ 2 Viết *.OCX CustomTaskPane sau sư Phụ @Nguyễn Duy Tuân .... Coder Đẳng Cấp đó he
View attachment 228374

chỉ e làm với a ơi

 

[Kiều Mạnh]

chỉ e làm với a ơi

1/ Mọi cái tôi làm cho sẳn rồi phần còn lại nếu thích khai báo sử dụng thôi

2/ Món đó không ai chỉ cả dù dì khả năng tự viết được nó rất ít kể cả bạn thấy đâu đó trên C# ..++++++++ thì cũng sử dụng của DNA hoặc

Write Office COM add-in, smart tag, RTD server in Visual Studio .NET, VSTO, VCL

Develop MS Office customizations (COM add-in, smart tag, Excel user-defined function (UDF), XLL addin and RTD server) in Visual Studio .NET, VSTO and Delphi for Office. VB.NET, C++, C# are supported.

www.add-in-express.com

3/ Nó có trong cuốn sách tôi úp bài số 22 của chủ đề này tôi xem kỹ nó làm ra trong 1 tuần trên VB6 ... sau vài năm mới viết thành công trên Delphi

#HookLab - Tạo cửa sổ TaskPane / ActionPane bằng UserForm

Gửi tặng các bạn mã nguồn để tạo cửa sổ TaskPane / ActionPane (cửa sổ phụ) trong excel bằng UserForm. Ghi chú : Cửa sổ con di chuyển trong phạm vi bên trong và di chuyển theo cửa sổ cha của nó. + Màu cam : Cửa sổ ông nội XLMAIN + Màu đỏ : Cửa sổ cha XLDESK + Màu tím : Cửa sổ con EXCEL7 Giải...

www.giaiphapexcel.com

4/ Tôi mò từ đâu thì chỉ cho từ đó mà mò là ra thôi ... còn ra hay không phụ thuộc vào chính khả năng của bạn

5/ Nếu không thích cách Tôi bày thì hãy thử với ChatGPT tôi mới hỏi xong nó chỉ cả thảy 7 bước sau: