Hiện chữ trên thanh tiêu đề của Form? (1 người xem)

  • Thread starter Thread starter NH_DK
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
NH_DK

NH_DK

Let's patience
Tham gia
29/7/10
Bài viết
865
Được thích
1,204
Nghề nghiệp
Kế toán
Em có ví dụ nhỏ, nhờ mọi người xem có thể cho hiện chữ trên thanh tiêu đề của Form không?
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
NH_DK đã viết:
Em có ví dụ nhỏ, nhờ mọi người xem có thể cho hiện chữ trên thanh tiêu đề của Form không?
Nhấp chuột vào đây để mở rộng...

Vào Module thủ tục sau:

Mã: 
Declare Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Sub SetUnicodeCaption(ByVal frm As UserForm, ByVal UnicodeString As String)
  Dim hWnd&
  hWnd = FindWindow("ThunderDFrame", frm.Caption)
  DefWindowProc hWnd, 12, 0, StrPtr(UnicodeString)
End Sub

Chép tiếp code trong Form như sau:

PHP: 
Private Sub UserForm_Initialize()
  SetUnicodeCaption Me, Label1.Caption
End Sub

Nên thoát Form bằng thủ tục Unload Me thay cho End, bởi nếu bạn chắc chắn không chạy bất cứ code gì thì sử dụng End.
 
Upvote 0
NH_DK đã viết:
Em có ví dụ nhỏ, nhờ mọi người xem có thể cho hiện chữ trên thanh tiêu đề của Form không?
Nhấp chuột vào đây để mở rộng...
Hiển thị tiếng Việt Unicode trên thanh tiêu đề UserForm chẳng dễ ăn đâu nha
Đầu tiên bạn đặt chuổi tiếng Việt Unicode vào trong 1 Define name rồi dùng code dưới đây
1> Trong module
PHP: 
Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Declare Function SetBkMode Lib "gdi32.dll" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Declare Function SetTextColor Lib "gdi32.dll" (ByVal hdc As Long, ByVal crColor As Long) As Long
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Declare Function TextOut Lib "gdi32.dll" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpString As Any, ByVal nCount As Long) As Long
Declare Function CreateFontIndirect Lib "gdi32.dll" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
PHP: 
Public hFont As Long, Old_hFont As Long, ProcOld As Long, hWnd As Long
Public Type LOGFONT
  lfHeight As Long: lfWidth As Long: lfEscapement As Long:  lfOrientation As Long: lfWeight As Long: lfItalic As Byte: lfUnderline As Byte
  lfStrikeOut As Byte: lfCharSet As Byte: lfOutPrecision As Byte: lfClipPrecision As Byte: lfQuality As Byte: lfPitchAndFamily As Byte: lfFaceName(32) As Byte
End Type
Public Type Unicode
  H As Byte
  L As Byte
End Type
PHP: 
Private Sub SetUnicodeTitlebar(Text As String)
  Dim NC_hDC As Long, Result As Long, Lf As LOGFONT, NewCaption() As Unicode
  Dim FontFace As String, NewFontFace() As Byte, Seed As Integer
  NC_hDC = GetWindowDC(hWnd)
  Lf.lfWeight = 700
  FontFace = "Tahoma"
  NewFontFace = StrConv(FontFace, vbFromUnicode)
  For Seed = 1 To Len(FontFace)
    Lf.lfFaceName(Seed - 1) = NewFontFace(Seed - 1)
  Next Seed
  hFont = CreateFontIndirect(Lf)
  Old_hFont = SelectObject(NC_hDC, hFont)
  Result = SetTextColor(NC_hDC, &HFFFFFF):    Result = SetBkMode(NC_hDC, 1)
  NewCaption = UniStr2BytesArray(Text)
  Result = TextOut(NC_hDC, 24, 6, NewCaption(0), UBound(NewCaption))
  Result = SelectObject(NC_hDC, Old_hFont):  Result = DeleteObject(hFont):  Result = ReleaseDC(hWnd, NC_hDC)
End Sub
PHP: 
Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  WindowProc = CallWindowProc(ProcOld, hWnd, iMsg, wParam, lParam)
  SetUnicodeTitlebar Evaluate("frmCap")
End Function
PHP: 
Function UniStr2BytesArray(SrcStr As String) As Unicode()
  Dim SrcStrLength As Long, Seed As Long, TmpUnicode() As Unicode
  SrcStrLength = LenB(SrcStr)
  ReDim TmpUnicode(SrcStrLength / 2)
  Do Until Seed >= SrcStrLength / 2
    TmpUnicode(Seed).H = CByte(AscB(MidB(SrcStr, Seed * 2 + 1, 1)))
    TmpUnicode(Seed).L = CByte(AscB(MidB(SrcStr, Seed * 2 + 2, 1)))
    Seed = Seed + 1
  Loop
  UniStr2BytesArray = TmpUnicode
End Function
2> Trong UserForm
PHP: 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
PHP: 
Private Sub UserForm_Initialize()
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowText hWnd, ""
  ProcOld = SetWindowLong(hWnd, -4, AddressOf WindowProc)
End Sub
PHP: 
Private Sub UserForm_Terminate()
  SetWindowLong hWnd, -4, ProcOld
End Sub
Kết quả được như vầy:

untitled.JPG
 

File đính kèm

Upvote 0
minhthien321 đã viết:
Vào Module thủ tục sau:

Mã: 
Declare Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Sub SetUnicodeCaption(ByVal frm As UserForm, ByVal UnicodeString As String)
  Dim hWnd&
  hWnd = FindWindow("ThunderDFrame", frm.Caption)
  DefWindowProc hWnd, 12, 0, StrPtr(UnicodeString)
End Sub

Chép tiếp code trong Form như sau:

PHP: 
Private Sub UserForm_Initialize()
  SetUnicodeCaption Me, Label1.Caption
End Sub

Nên thoát Form bằng thủ tục Unload Me thay cho End, bởi nếu bạn chắc chắn không chạy bất cứ code gì thì sử dụng End.
Nhấp chuột vào đây để mở rộng...

Em làm rùi nhưng nó vẫn báo lỗi. Anh xem lại cho em với!? Anh làm vào file đính kèm cho em nhé! Vì máy em không tải đươc file lên nữa?
 
Upvote 0
ndu96081631 đã viết:
Nói không có bằng chứng, đưa file lên đây tôi mới tin
(Dễ ăn vậy sao???)
Nhấp chuột vào đây để mở rộng...

Thì thủ tục em đã trình bày ở bài 2 đó thôi

attachment.php
 

File đính kèm

  • vdu(1).xls
    vdu(1).xls
    39.5 KB · Đọc: 69
  • Hinh.jpg
    Hinh.jpg
    16.3 KB · Đọc: 168
Lần chỉnh sửa cuối:
Upvote 0
Đây là Excel 2003 và WinXP

attachment.php


Có thể mặc định máy cài sẳn là Tohama trên thanh tiêu đề.
 

File đính kèm

  • hinh.png
    hinh.png
    8.7 KB · Đọc: 164
Upvote 0
Upvote 0
ndu96081631 đã viết:
Hiển thị tiếng Việt Unicode trên thanh tiêu đề UserForm chẳng dễ ăn đâu nha
Đầu tiên bạn đặt chuổi tiếng Việt Unicode vào trong 1 Define name rồi dùng code dưới đây
Nhấp chuột vào đây để mở rộng...

Ngược lại, với bài của Thầy, máy em lại không hiển thị bất cứ tiêu đề nào hết mới ghê (trên Win7, X2007)! Đúng là kỳ lạ!
 
Upvote 0
minhthien321 đã viết:
Đây là Excel 2003 và WinXP
Có thể mặc định máy cài sẳn là Tohama trên thanh tiêu đề.
Nhấp chuột vào đây để mở rộng...
Dám cá rằng font hệ thống đã bị thay đổi (do cài chương trình nào đó hoặc đổi bằng tay)
- Click phải trên Desktop, chọn Properties
- Chuyển sang tab Appearance, bấm nút Advanced
- Bấm mũi tên xổ xuống của mục Item, chọn Active Title Bar
- Xem khung dưới đang là font gì? Mặc định là font Trebuchet MS

untitled.JPG

Nếu nó là font Tahoma thì chứng tỏ các bạn đã chỉnh lại font rồi và code đó không phải là cách tổng quát để hiển thị tiếng Việt trên thanh Title
 
Upvote 0
ndu96081631 đã viết:
Dám cá rằng font hệ thống đã bị thay đổi (do cài chương trình nào đó hoặc đổi bằng tay)
- Click phải trên Desktop, chọn Properties
- Chuyển sang tab Appearance, bấm nút Advanced
- Bấm mũi tên xổ xuống của mục Item, chọn Active Title Bar
- Xem khung dưới đang là font gì? Mặc định là font Trebuchet MS



Nếu nó là font Tahoma thì chứng tỏ các bạn đã chỉnh lại font rồi và code đó không phải là cách tổng quát để hiển thị tiếng Việt trên thanh Title
Nhấp chuột vào đây để mở rộng...

Với WinXP (máy thử) thì Font là Verdana (có thể trước đó ai đã đặt lại), còn mặc định của Win7 có thể là Verdana vì em chưa biết nó nằm ở đâu nữa để cài đặt trên chính máy tính của em.

Vì vậy đâu là tổng quát thì chưa biết, vì máy em không hiển thị tiêu đề của Form ở File của Thầy, ngược lại máy Thầy nếu không thay đổi Font mặc định cho tiêu đề window thì lại bị lỗi font.
 
Upvote 0
minhthien321 đã viết:
Với WinXP (máy thử) thì Font là Verdana (có thể trước đó ai đã đặt lại), còn mặc định của Win7 có thể là Verdana vì em chưa biết nó nằm ở đâu nữa để cài đặt trên chính máy tính của em.

Vì vậy đâu là tổng quát thì chưa biết, vì máy em không hiển thị tiêu đề của Form ở File của Thầy, ngược lại máy Thầy nếu không thay đổi Font mặc định cho tiêu đề window thì lại bị lỗi font.
Nhấp chuột vào đây để mở rộng...
Verdana là Unicode rồi còn gì
Code của tôi không chỉnh font hệ thống, chỉ tạm thời chỉnh tiêu đề của Active Window thành Tahoma, thoát form lại trả mọi thứ về như cũ
Đương nhiên, nếu font hệ thống là Unicode rồi thì rất dễ, chỉ vài ba đoạn code là xong!
Tôi nghĩ code của tôi mới là tổng quát nhất, vì nó không quan tâm font hệ thống là gì... không hiểu sao bạn lại chạy không được... Nhờ các bạn khác test giúp nhé
Nói thêm: Cái vụ Unicode trên Title bar đã từng bàn rất nhiều, và nó là thứ khó nhai nhất (mà tôi biết) chứ không đơn giản như bạn đã nghĩ đâu
 
Upvote 0
ndu96081631 đã viết:
Verdana là Unicode rồi còn gì
Code của tôi không chỉnh font hệ thống, chỉ tạm thời chỉnh tiêu đề của Active Window thành Tahoma, thoát form lại trả mọi thứ về như cũ
Đương nhiên, nếu font hệ thống là Unicode rồi thì rất dễ, chỉ vài ba đoạn code là xong!
Tôi nghĩ code của tôi mới là tổng quát nhất, vì nó không quan tâm font hệ thống là gì... không hiểu sao bạn lại chạy không được... Nhờ các bạn khác test giúp nhé
Nói thêm: Cái vụ Unicode trên Title bar đã từng bàn rất nhiều, và nó là thứ khó nhai nhất (mà tôi biết) chứ không đơn giản như bạn đã nghĩ đâu
Nhấp chuột vào đây để mở rộng...
Không hiểu Active Title Bar của em Font gì nữa, không biết giải thích sao đây?
Font setting.JPG
 
Upvote 0
ndu96081631 đã viết:
Verdana là Unicode rồi còn gì
Code của tôi không chỉnh font hệ thống, chỉ tạm thời chỉnh tiêu đề của Active Window thành Tahoma, thoát form lại trả mọi thứ về như cũ
Đương nhiên, nếu font hệ thống là Unicode rồi thì rất dễ, chỉ vài ba đoạn code là xong!
Tôi nghĩ code của tôi mới là tổng quát nhất, vì nó không quan tâm font hệ thống là gì... không hiểu sao bạn lại chạy không được... Nhờ các bạn khác test giúp nhé
Nói thêm: Cái vụ Unicode trên Title bar đã từng bàn rất nhiều, và nó là thứ khó nhai nhất (mà tôi biết) chứ không đơn giản như bạn đã nghĩ đâu
Nhấp chuột vào đây để mở rộng...
Mình thích nguyên tắc này. Nếu dungf nhiều phần mềm tiếng Việt, mà anh nào cũng chỉnh font hệ thống mới đọc được tiêu đề, mỗi anh mỗi loại font, khi thoát chương trình lại không chịu trả về như cũ, nếu đưa chương trình cho người khác dùng, đâu phải ai cũng biết chỉnh.Vậy thà chấp nhận tiêu đề không dấu còn hơn chỉnh font hệ thống (mất rin)...
 
Upvote 0
[video=youtube;XwKQ8-EVO8k]http://www.youtube.com/watch?v=XwKQ8-EVO8k[/video]

Đây là test trên máy em đây! Các Thầy xem rồi cho biết tại sao nhé!
 
Upvote 0
Upvote 0
ndu96081631 đã viết:
Bạn chuyển sang tab Theme, bấm mũi tên xổ xuống, chọn Windows XP xem thế nào
---------------------------

Tiếp tục test trên máy khác xem!
Nhấp chuột vào đây để mở rộng...

Vâng em vừa Test trên máy thứ 2 xài Win7, X2007, core i5, vẫn tình trạng trên, không tiêu đề ạ.
 
Upvote 0
Trên máy của em Win7, Excel 2007 :

16-09-2011 4-36-29 PM.jpg
 
Upvote 0
thanhlanh đã viết:
Mình thích nguyên tắc này. Nếu dungf nhiều phần mềm tiếng Việt, mà anh nào cũng chỉnh font hệ thống mới đọc được tiêu đề, mỗi anh mỗi loại font, khi thoát chương trình lại không chịu trả về như cũ, nếu đưa chương trình cho người khác dùng, đâu phải ai cũng biết chỉnh.Vậy thà chấp nhận tiêu đề không dấu còn hơn chỉnh font hệ thống (mất rin)...
Nhấp chuột vào đây để mở rộng...

Anh nói hoàn toàn không sai, từ trước đến nay tôi vẫn hoàn toàn nhất trí về tính tổng quát, nhưng hình như bài của Thầy NDU cũng chưa có tính tổng quát, vì lý do sau:

Mã: 
Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  WindowProc = CallWindowProc(ProcOld, hWnd, iMsg, wParam, lParam)
  [COLOR=#ff0000][B]SetUnicodeTitlebar Evaluate("frmCap")[/B][/COLOR]
End Function

Tôi nghĩ Cái Function này không phải là hàm vì nó không có tính tổng quát, nó chỉ thực hiện đúng 1 tiêu đề cho 1 Form mà thôi, nếu tôi có nhiều Form, vậy tôi phải làm nhiều hàm như vậy sao?

Ngược lại, với bài của tôi, cho dù phải chỉnh font hệ thống đối với WinXP, nhưng cũng là font Unicode, và xa hơn là Win7 trở về sau thì khỏi cần chỉnh gì cả, trong khi đó chỉ cần thay cái đuôi SetUnicodeCaption Me, Label1.Caption bằng cái gì đó có giá trị là text cũng được.

Tôi hoàn toàn thích thú với sự tổng quát, còn việc thảo luận là test lẫn nhau để đưa ra cái tối ưu nhất để chọn lựa cho riêng mình.
 
Upvote 0
Vài người test file trên Win7 đều không ra kết quả, trong khi code của tôi hoàn toàn chẳng liên quan gì đến HĐH, chỉ yêu cầu duy nhất: Máy có font Tahoma
Quả thật tôi cảm thấy không phục, sáng nay tôi nhờ thằng bạn mang cái laptop dùng Win7 của nó vào đây để Test... Ẹc... Ẹc... tất cả bình thường

Untitled.jpg
Chỉ khác 1 cái duy nhất so với khi test trên Windows XP là MÀU SẮC
 
Upvote 0
ndu96081631 đã viết:
Vài người test file trên Win7 đều không ra kết quả, trong khi code của tôi hoàn toàn chẳng liên quan gì đến HĐH, chỉ yêu cầu duy nhất: Máy có font Tahoma
Quả thật tôi cảm thấy không phục, sáng nay tôi nhờ thằng bạn mang cái laptop dùng Win7 của nó vào đây để Test... Ẹc... Ẹc... tất cả bình thường

Chỉ khác 1 cái duy nhất so với khi test trên Windows XP là MÀU SẮC
Nhấp chuột vào đây để mở rộng...

Em test lại rồi. Kết luận : Nguyên nhân là do Themes của Win7

1. Basic anh High Constract Themes

18-09-2011 7-33-59 AM.jpg

2. Aero Themes

18-09-2011 7-35-15 AM.jpg
 
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
ndu96081631 đã viết:
Hiển thị tiếng Việt Unicode trên thanh tiêu đề UserForm chẳng dễ ăn đâu nha
Đầu tiên bạn đặt chuổi tiếng Việt Unicode vào trong 1 Define name rồi dùng code dưới đây
1> Trong module
PHP: 
Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Declare Function SetBkMode Lib "gdi32.dll" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Declare Function SetTextColor Lib "gdi32.dll" (ByVal hdc As Long, ByVal crColor As Long) As Long
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Declare Function TextOut Lib "gdi32.dll" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpString As Any, ByVal nCount As Long) As Long
Declare Function CreateFontIndirect Lib "gdi32.dll" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
PHP: 
Public hFont As Long, Old_hFont As Long, ProcOld As Long, hWnd As Long
Public Type LOGFONT
  lfHeight As Long: lfWidth As Long: lfEscapement As Long:  lfOrientation As Long: lfWeight As Long: lfItalic As Byte: lfUnderline As Byte
  lfStrikeOut As Byte: lfCharSet As Byte: lfOutPrecision As Byte: lfClipPrecision As Byte: lfQuality As Byte: lfPitchAndFamily As Byte: lfFaceName(32) As Byte
End Type
Public Type Unicode
  H As Byte
  L As Byte
End Type
PHP: 
Private Sub SetUnicodeTitlebar(Text As String)
  Dim NC_hDC As Long, Result As Long, Lf As LOGFONT, NewCaption() As Unicode
  Dim FontFace As String, NewFontFace() As Byte, Seed As Integer
  NC_hDC = GetWindowDC(hWnd)
  Lf.lfWeight = 700
  FontFace = "Tahoma"
  NewFontFace = StrConv(FontFace, vbFromUnicode)
  For Seed = 1 To Len(FontFace)
    Lf.lfFaceName(Seed - 1) = NewFontFace(Seed - 1)
  Next Seed
  hFont = CreateFontIndirect(Lf)
  Old_hFont = SelectObject(NC_hDC, hFont)
  Result = SetTextColor(NC_hDC, &HFFFFFF):    Result = SetBkMode(NC_hDC, 1)
  NewCaption = UniStr2BytesArray(Text)
  Result = TextOut(NC_hDC, 24, 6, NewCaption(0), UBound(NewCaption))
  Result = SelectObject(NC_hDC, Old_hFont):  Result = DeleteObject(hFont):  Result = ReleaseDC(hWnd, NC_hDC)
End Sub
PHP: 
Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  WindowProc = CallWindowProc(ProcOld, hWnd, iMsg, wParam, lParam)
  SetUnicodeTitlebar Evaluate("frmCap")
End Function
PHP: 
Function UniStr2BytesArray(SrcStr As String) As Unicode()
  Dim SrcStrLength As Long, Seed As Long, TmpUnicode() As Unicode
  SrcStrLength = LenB(SrcStr)
  ReDim TmpUnicode(SrcStrLength / 2)
  Do Until Seed >= SrcStrLength / 2
    TmpUnicode(Seed).H = CByte(AscB(MidB(SrcStr, Seed * 2 + 1, 1)))
    TmpUnicode(Seed).L = CByte(AscB(MidB(SrcStr, Seed * 2 + 2, 1)))
    Seed = Seed + 1
  Loop
  UniStr2BytesArray = TmpUnicode
End Function
2> Trong UserForm
PHP: 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
PHP: 
Private Sub UserForm_Initialize()
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowText hWnd, ""
  ProcOld = SetWindowLong(hWnd, -4, AddressOf WindowProc)
End Sub
PHP: 
Private Sub UserForm_Terminate()
  SetWindowLong hWnd, -4, ProcOld
End Sub
Kết quả được như vầy:

View attachment 70190
Nhấp chuột vào đây để mở rộng...

Sư phụ em làm theo cách của sư phụ thì OK rùi. Nhưng có một lỗi nhỏ xảy ra: Khi file này em làm xong vào đóng lại thì khi mở lại click chuột trực tiếp vào nó thì không mở. Và em phải mở chương trình Excel trước thì mở qua đây mới đuợc ah. Tại sao lại như vậy? Xin sư phụ chỉ giáo thêm cho em nhé!
Download
Tên: 010020
Mật khẩu: 010020
 
Upvote 0
NH_DK đã viết:
Sư phụ em làm theo cách của sư phụ thì OK rùi. Nhưng có một lỗi nhỏ xảy ra: Khi file này em làm xong vào đóng lại thì khi mở lại click chuột trực tiếp vào nó thì không mở. Và em phải mở chương trình Excel trước thì mở qua đây mới đuợc ah. Tại sao lại như vậy? Xin sư phụ chỉ giáo thêm cho em nhé!
Download
Tên: 010020
Mật khẩu: 010020
Nhấp chuột vào đây để mở rộng...
Vì khi bạn thoát Form nhưng chưa tắt Excel, thế thôi (xem Task Manager sẽ thấy)
Nếu bạn thích ẩn ứng dụng khi load Form thì phải tính cho kỹ ---> Thoát form thì nên làm điều gì? Hoặc mở hiện lại ứng dụng, hoặc là thoát luôn ứng dụng... tất cả hãy tính toán cho kỹ rồi ghi code vào trong sự kiện UserForm_Terminate nhé
Nếu bạn chỉ thoát form mà không nói gì thì đồng nghĩa là ứng dụng vẫn còn đang bị "treo" (vì bị ẩn trước đó chứ chưa tắt hẳn)
 
Lần chỉnh sửa cuối:
Upvote 0
ndu96081631 đã viết:
Vì khi bạn thoát Form nhưng chưa tắt Excel, thế thôi (xem Task Manager sẽ thấy)
Nếu bạn thích ẩn ứng dụng khi load Form thì phải tính cho kỹ ---> Thoát form thì nên làm điều gì? Hoặc mở hiện lại ứng dụng, hoặc là thoát luôn ứng dụng... tất cả hãy tính toán cho kỹ rồi ghi code vào trong sự kiện UserForm_Terminate nhé
Nếu bạn chỉ thoát form mà không nói gì thì đồng nghĩa là ứng dụng vẫn còn đang bị "treo" (vì bị ẩn trước đó chứ chưa tắt hẳn)
Nhấp chuột vào đây để mở rộng...

Cám ơn sư phụ nhiều! Nhưng em đã dùng:
PHP: 
Application.Quit
rùi mà?
Quả thực em không hiểu lắm! Xin sư phụ chỉ giáo cho em học hỏi thêm ah!
 
Upvote 0
NH_DK đã viết:
Thầy ơi, em muốn hỏi tại sao file của em khi thoát nó vẫn chưa thoát hết hẳn? Thầy xem mục #29 nhé!
#29:
Khi file này em làm xong vào đóng lại thì khi mở lại click chuột trực tiếp vào nó thì không mở.
#31:
Nhưng em đã dùng:
PHP: 
Application.Quit
rùi mà?
Nhấp chuột vào đây để mở rộng...
Click trực tiếp vào file không mở được là vì khi đóng file làm sai quy trình. Để vào nhà phải mở cửa nhà, vào trong nhà rồi mới mở cửa phòng, đúng không? Còn khi trở ra phải làm ngược lại: đóng cửa phòng rồi mới đóng cửa nhà, đúng không?

Nghĩa là:
Khi mở ứng dụng:
- Mở Excel
- Dấu sheet để chỉ hiện form

Khi tắt ứng dụng:
- Không cho hiện sheet lên lại
- Tắt Excel
Có nghĩa là khi đi ra chỉ đóng cửa nhà mà không đóng cửa phòng. Lần sau vào sẽ thấy nó mở toang hoang sẵn.

Việc này tôi và các cao thủ khác đã nói rất nhiều:
1. Khi đã can thiệp vào mặc định thì khi thoát ra phải trả về như cũ. Dấu sheet thì phải cho hiện sheet ra lại. Chỉnh Window title của Excel bằng tên mình thì sau đó phải trả lại mặc định. Vào thì phải mở từ ngoài mở vào, ra thì phải đóng từ trong đóng ra. Mở bao nhiêu cái thì phải đóng lại bấy nhiêu.
2. Không bao giờ dùng Quit Application vì có chắc là không có file Excel nào đang mở? Quit là đóng lại hết của người ta sao? Chỉ nên dùng Workbook. Close.

Chính vì lẽ này mà không bao giờ tôi mở file của NHDK từ dạo đó đến giờ. Chưa nói đến file có pass.
 
Lần chỉnh sửa cuối:
Upvote 0
ptm0412 đã viết:
Click trực tiếp vào file không mở được là vì làm sai quy trình. Để vào nhà phải mở cửa cổng, vào trong cổng rồi mở mới cửa nhà, đúng không?

Nghĩa là:
Khi mở ứng dụng:
- Mở Excel
- Dấu sheet để chỉ hiện form

Khi tắt ứng dụng:
- Không cho hiện sheet lên lại
- Tắt Excel
Có nghĩa là khi đi ra chỉ đóng cửa cổng mà không đóng cửa nhà.

Việc này tôi và các cao thủ khác đã nói rất nhiều:
1. Khi đã can thiệp vào mặc định thì khi thoát ra phải trả về như cũ. Dấu sheet thì phải cho hiện sheet ra lại. Chỉnh Window title của Excel bằng tên mình thì sau đó phải trả lại mặc định.
2. Không bao giờ dùng Quit Application vì có chắc là không có file Excel nào đang mở? Quit là đóng lại hết của người ta sao? Chỉ nên dùng Workbook. Close.

Chính vì lẽ này mà không bao giờ tôi mở file của NHDK từ dạo đó đến giờ. Chưa nói đến file có pass.
Nhấp chuột vào đây để mở rộng...

Mục 2 mà Sư phụ nói em cũng có nghĩ giống như Sư phụ. Song, đôi khi em cũng dùng Quit và đôi khi em cũng dùng Close, nhưng nếu dùng Quit thì em phải xác định rõ là phải chắc chắn chỉ 1 mình file đó đang mở thì mới dùng Quit:

PHP: 
  With Application
    If .Workbooks.Count > 1 Then
      .ThisWorkbook.Close False
    Else
      .DisplayAlerts = False
      .Quit
    End If
  End With

Khi tắt ứng dụng:
- Không cho hiện sheet lên lại
- Tắt Excel
Có nghĩa là khi đi ra chỉ đóng cửa cổng mà không đóng cửa nhà.
Nhấp chuột vào đây để mở rộng...

Với cái này, nếu giấu sheet thì đương nhiên khi Close nếu không Save thì cũng chẳng sao. Nhưng nếu giấu Application thì cho dù có Save hay không Save thì sau khi thoát, mở file excel khác nó vẫn hiển thị bình thường như chưa có vấn đề gì xảy ra.

(giấu chứ nhỉ)
 
Upvote 0
minhthien321 đã viết:
Với cái này, nếu giấu sheet thì đương nhiên khi Close nếu không Save thì cũng chẳng sao. Nhưng nếu giấu Application thì cho dù có Save hay không Save thì sau khi thoát, mở file excel khác nó vẫn hiển thị bình thường như chưa có vấn đề gì xảy ra.

(giấu chứ nhỉ)
Nhấp chuột vào đây để mở rộng...
Ừ thì giấu, không phải dấu.
Với lại ý tôi nói giấu sheet = không hiển thị sheet tức là giấu Application
Xem cái chữ đỏ.
Mở file excel khác, tức là nói đến căn nhà khác. Nhà đó khi đi ra đã đóng đúng quy trình rồi. Vậy khi đi vào bình thường không có vấn đề nhà cửa toang hoang.
Còn NHDK mở lại file cũ, mà cái nhà đó khi đi ra đã để ngỏ cửa.
 
Lần chỉnh sửa cuối:
Upvote 0
ptm0412 đã viết:
Ừ thì giấu, không phải dấu.
Với lại ý tôi nói giấu sheet = không hiển thị sheet tức là giấu Application
Xem cái chữ đỏ.
Mở file excel khác, tức là nói đến căn nhà khác. Nhà đó khi đi ra đã đóng đúng quy trình rồi. Vậy khi đi vào bình thường không có vấn đề nhà cửa toang hoang.
Còn NHDK mở lại file cũ, mà cái nhà đó khi đi ra đã để ngỏ cửa.
Nhấp chuột vào đây để mở rộng...
Tức là nói ngắn gọn thế này: Lúc trước đã làm gì thì khi "đi" hãy trả mọi thứ về như cũ, đừng có "phủi đít" như khi ngồi ghế đá công viên là được rồi
(Xin lỗi về cái ví von này...)
Với NH_DK: Bây giờ bạn đã thấy "tai nạn nghề nghiệp" khi dùng Application.Visible chưa? Không phải cứ thích là có thể xài tùy tiện đâu (cái này hình như sư phụ ptm0412 đã nhắc bạn nhiều lần rồi)
 
Lần chỉnh sửa cuối:
Upvote 0
Mấy điểm thắc mắc

Em vẫn thấy chưa thông lắm, xin lấy ví dụ trong file đính kèm như sau :

Module1 :

PHP: 
Public Sub ShowForm()
    Application.Visible = False ' Mở cửa phòng (sau khi đã mở cửa nhà)
    Application.DisplayAlerts = False ' Tắt chuông báo động
    UserForm1.Show
End Sub

UserForm1 (chứa CommandButton1)

PHP: 
Private Sub CommandButton1_Click()
    Unload Me
    Application.Quit ' Đóng cửa nhà mà không khóa phòng + không bật lại chuông báo
End Sub

Click đôi trở lại File cũ thì vẫn chạy bình thường (không hề bị như trường hợp của bạn NH_DK), mặc dù đã đóng file không đúng quy trình như anh ptm0412 nói. Như vậy có phải là chỉ cần đóng cửa nhà thì cửa phòng cũng tự đóng theo và chuông báo động tự bật trở lại? Có vẻ như Application.Quit đã xoá hết mọi dấu vết. Xin mọi người giải đáp hộ mấy điểm này.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Code "thoat" của NHDK thậm chí không có cả dòng lệnh UnLoad form Main. Mà cái form của NHDK khi load lên không đơn giản chút nào, nó liên quan đến đủ thứ khác, không như cái form bạn test thử đâu.
Nếu Unload form thì cái này sẽ chạy:
PHP: 
Private Sub UserForm_Terminate()
  SetWindowLong hWnd, -4, ProcOld
End Sub
Câu lệnh đó trả cái gì đó về tình trạng ban đầu. Nhưng đã không trả. Do đó, Application không quit thực sự, và phải vào Task manager để tắt.

Nếu không tắt Application đó thì tình trạng để ngỏ cửa vẫn còn, và không thể mở lại bằng double click. Mở bằng cách open từ Excel, tức là đã mở từ Application thứ hai.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb (1 người xem)
Trả lời
9
Đọc
420
Gà Con yêu VBA
Gà Con yêu VBA
Ả
Cách tạo list Data validation không qua trung gian (1 người xem)
Trả lời
46
Đọc
7K
thuytrangbp28
T
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
15
Đọc
2K
anhdepjai
A
T
[Giúp đỡ] Sửa lỗi runtime error 1004 application defined or object defined
Trả lời
2
Đọc
91
tmhung0805
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
280
Đọc
35K
hoangtuan.net
hoangtuan.net
M
  • Question Question
[Hỏi cách tạo VBA] - Xin các cao nhân chỉ giúp cách tạo VBA cho công việc thuận tiện hơn
Trả lời
5
Đọc
217
SA_DQ
SA_DQ
dongbhhg
Hàm đếm số lượng trong khoảng thời gian cho trước
Trả lời
6
Đọc
154
thanthanhan
thanthanhan
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
399
Đọc
47K
BlueSphere
B
N
Tạo file lưu trữ dữ liệu tự động trên excel. (1 người xem)
Trả lời
12
Đọc
281
DeTong
D
D
  • Đã khóa
lọc các ô trong một cột chứa một nhóm dữ liệu? mong các cao thủ giải đáp giúp mình
Trả lời
6
Đọc
166
ptm0412
ptm0412
S
cần xử lý dữ liệu trùng nhau bằng VBA (1 người xem)
    • Cười
Trả lời
9
Đọc
255
HUONGHCKT
H
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết
Trả lời
27
Đọc
25K
Anh2207
A
P
In file excel có cột bị gộp
Trả lời
0
Đọc
57
ple28
P
N
  • Question Question
Tạo file lưu trữ dự liệu tự động
Trả lời
8
Đọc
245
le_vis
L
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
564
ongke0711
ongke0711
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn
Trả lời
3
Đọc
171
HieuCD
H
D
in ra bị thiếu chữ
Trả lời
4
Đọc
141
dankedun
D
Momominh
Hỏi công thức tìm tuần thiếu hàng
Trả lời
1
Đọc
116
hoangtuaotrang_hp_vn
H
2
EM MUỐN TẠO MA TRẬN BIẾN ĐỔI GIÁ TRỊ PHẦN TỬ NGẪU NHIÊN
Trả lời
2
Đọc
103
ptm0412
ptm0412
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định
Trả lời
34
Đọc
2K
Emyeuexcel
Emyeuexcel
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom