Ngay từ đầu, người ta nói Iphone đẹp. Mình phải thừa nhận là đẹp từ phần cứng cho tới phần mềm. Nếu mọi người để ý giao diện bên trong của chiếc điện thoại iphone, chúng ta thấy cách thiết kế của họ rất mượt mà. Nếu chịu khó quan sát, chúng ta sẽ học hỏi được những cái làm nên vẻ đẹp ấy.
Điều mà mình ấn tượng, đó là với mỗi danh sách hiện ra, bên trái nó luôn có các biểu tượng nhỏ nhắn xinh xắn, bắt mắt. Apple đã rất trau chuốt và tỉ mỉ trong thiết kế của họ.
Trên diễn đàn đã có một chủ đề về đặt hình ảnh vào trong nút bấm, hoặc sử dụng chính đối tượng image có vai trò như nút bấm. Mình vẫn thấy thiếu, vì vậy mà topic này được lập ra. Làm thế nào để hiển thị hình ảnh icon vào title (caption) của Userform.
Nguồn tham khảo code:
Icon mọi người có thể tham khảo và download từ trang này:
Điều mà mình ấn tượng, đó là với mỗi danh sách hiện ra, bên trái nó luôn có các biểu tượng nhỏ nhắn xinh xắn, bắt mắt. Apple đã rất trau chuốt và tỉ mỉ trong thiết kế của họ.
Trên diễn đàn đã có một chủ đề về đặt hình ảnh vào trong nút bấm, hoặc sử dụng chính đối tượng image có vai trò như nút bấm. Mình vẫn thấy thiếu, vì vậy mà topic này được lập ra. Làm thế nào để hiển thị hình ảnh icon vào title (caption) của Userform.
Bạn cần đăng nhập để thấy đính kèm
Mã:
Private Declare PtrSafe Function FindWindow _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function ExtractIcon _
Lib "shell32.dll" Alias "ExtractIconA" _
(ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long
Private Declare PtrSafe Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Integer, _
ByVal lParam As Long) As Long
Private Const WM_SETICON = &H80
Private Sub UserForm_Initialize()
Dim strIconPath As String
Dim lngIcon As Long
Dim lnghWnd As Long
' Change to the path and filename of an icon file
strIconPath = "D:\VBA\file_type_license_icon_130482.ico"
' Get the icon from the source
lngIcon = ExtractIcon(0, strIconPath, 0)
' Get the window handle of the userform
lnghWnd = FindWindow("ThunderDFrame", Me.Caption)
'Set the big (32x32) and small (16x16) icons
'SendMessage lnghWnd, WM_SETICON, True, lngIcon '32x32
SendMessage lnghWnd, WM_SETICON, False, lngIcon '16x16
End Sub
Bạn cần đăng nhập để thấy link
Icon mọi người có thể tham khảo và download từ trang này:
Bạn cần đăng nhập để thấy link