Vấn đề thiết kế UserForm (1 người xem)

[Hoàng Trọng Nghĩa]

Xin vui lòng hướng dẫn code làm sao có thể thiết kế Form chỉ với nút Max hoạt động, các nút Min, Close, nếu có thì không cho sử dụng hoặc giấu luôn càng tốt, nhưng Form đó phải có Icon dưới trên taskbar khi form được show.

Xin cám ơn rất nhiều!

====================================================================================

Form chỉ có nút Max,

và dưới taskbar có hiện Icon.

 

[Hoàng Trọng Nghĩa]

Xin vui lòng cho hỏi lại, có thể thiết kế form như bài #1 không ạ?

Cám ơn rất nhiều!

 

[ndu96081631]

Xin vui lòng hướng dẫn code làm sao có thể thiết kế Form chỉ với nút Max hoạt động, các nút Min, Close, nếu có thì không cho sử dụng hoặc giấu luôn càng tốt, nhưng Form đó phải có Icon dưới trên taskbar khi form được show.

Xin cám ơn rất nhiều!

====================================================================================

Form chỉ có nút Max,

và dưới taskbar có hiện Icon.

Có file này, bạn tự mình nghiên cứu đi

 

[Hoàng Trọng Nghĩa]

Có file này, bạn tự mình nghiên cứu đi

Cái Form này em cũng đã tải về lâu lắm rồi, nhưng thật tình, không biết tí gì về Class Module nên không thể mày mò được!

 

[ndu96081631]

Cái Form này em cũng đã tải về lâu lắm rồi, nhưng thật tình, không biết tí gì về Class Module nên không thể mày mò được!

Thì bạn cứ xem cái thằng Class ấy là 1 module bình thường đi là được rồi
Chưa nói đến code, chỉ cần xem khả năng đáp ứng của nó thôi cũng thấy rằng nó tuyệt hảo nhất so với tất cả code mà tôi từng biết đến
File này tôi có đã lâu nhưng do không có nhu cầu nên chưa tìm hiểu kỹ về nó ---> Bạn thích mấy vụ màu mè trên UserForm thì phải chịu khó mà vọc thôi ---> Muốn "ăn chơi" thì phải chịu tốn kém vậy!

 

[Hoàng Trọng Nghĩa]

Thì bạn cứ xem cái thằng Class ấy là 1 module bình thường đi là được rồi
Chưa nói đến code, chỉ cần xem khả năng đáp ứng của nó thôi cũng thấy rằng nó tuyệt hảo nhất so với tất cả code mà tôi từng biết đến
File này tôi có đã lâu nhưng do không có nhu cầu nên chưa tìm hiểu kỹ về nó ---> Bạn thích mấy vụ màu mè trên UserForm thì phải chịu khó mà vọc thôi ---> Muốn "ăn chơi" thì phải chịu tốn kém vậy!

Nhưng thật tình vì nó quá hay nên em không biết chỉnh như thế nào! Ặc ặc ...

Được 1/3 IQ của Thầy thôi thì em đã làm được từ lâu rùi! ẹc ... ẹc ...

 

[ndu96081631]

Nhưng thật tình vì nó quá hay nên em không biết chỉnh như thế nào! Ặc ặc ...

Được 1/3 IQ của Thầy thôi thì em đã làm được từ lâu rùi! ẹc ... ẹc ...

Nếu chỉ để xài, tạm thời khỏi quan tâm đến code viết gì, cứ xem như ta đã check sẵn các mục giống như hình dưới đây là được rồi



Vụ này chắc không phải quá khó đối với bạn chứ

 

[Hoàng Trọng Nghĩa]

Nếu chỉ để xài, tạm thời khỏi quan tâm đến code viết gì, cứ xem như ta đã check sẵn các mục giống như hình dưới đây là được rồi

............................

Vụ này chắc không phải quá khó đối với bạn chứ

Cái khó là khi dùng ICON nó không chịu load lên liền khi mở Form đấy chứ! Và khi đem form đi qua máy khác thì nó "tèo" nếu không có thư mục chứa ICON.

 

[ndu96081631]

Cái khó là khi dùng ICON nó không chịu load lên liền khi mở Form đấy chứ! Và khi đem form đi qua máy khác thì nó "tèo" nếu không có thư mục chứa ICON.

Sao không được chứ
Như trong file ở trên, tôi sửa code sự kiện UserForm_Activate thành vầy cũng được vậy:

Private Sub UserForm_Activate()
    Set mclsFormChanger = New CFormChanger
    mclsFormChanger.IconPath = "C:\Program Files\UniKey\UniKey.exe"
    cbModal.Value = False
    cbCaption.Value = True
    cbCloseBtn.Value = True
    cbTaskBar.Value = True
    cbIcon.Value = True
    cbMaximize.Value = True
    cbMinimize.Value = False
    cbSizeable.Value = False
    cbSysmenu.Value = True
    cbTaskBar.Value = True
    cbSmallCaption.Value = False
    Set mclsFormChanger.Form = Me
    UserForm_Resize
    cbCloseBtn.Value = False
End Sub

Còn việc đem qua máy khác không có Icon thì đành chịu ---> Tốt nhất bạn phải tìm cho bằng được 1 Icon nào đó mà máy nào cũng có (trong thư mục C:\WINDOWS có thiếu gì)

 

[Hoàng Trọng Nghĩa]

Cái mà em nghĩ thấy thật lạ là tại sao phải là Icon của một chương trình nào đó mà không phải nạp trực tiếp từ hình ảnh, Icon nào đó trong một folder cụ thể nào đó? Hoặc tốt hơn là nhập Icon trong chính cái Excel do mình insert picture trong đó?

 

[ndu96081631]

Cái mà em nghĩ thấy thật lạ là tại sao phải là Icon của một chương trình nào đó mà không phải nạp trực tiếp từ hình ảnh, Icon nào đó trong một folder cụ thể nào đó? Hoặc tốt hơn là nhập Icon trong chính cái Excel do mình insert picture trong đó?

Tôi không hiểu ý bạn lắm
Icon có thể lấy từ bất cứ đâu mà! Có thể từ file .EXE, từ file .DLL hoặc từ file .ICO
Nói chung khi bạn đổi Icon cho 1 shortcut thông thường, bạn làm thế nào thì trong file này cũng vậy thôi, có khác gì nhau đâu?

 

[phong0127]

Anh Nghĩa ơi anh giải quyết được cách lấy hình trên sheet làm icon chưa chỉ e với, VD trên sheet1 em có 1 hình có tên Pic1, sau khi Record macro được đoạn: ActiveSheet.Shapes.Range(Array("Pic1")).Select không biết nó có phải đường dẫn của cái hình đó không mà e thay vô form chỗ đoạn như anh ndu96081631 hướng dẫn
mclsFormChanger.IconPath = "Sheet1.Shapes.Range(Array("Pic1"))"
nhưng lại chạy không được, không biết cái đường dẫn sai chỗ nào vậy các anh