Làm sao việt hóa Caption trên From Win 64bit ? (1 người xem)

alohn · 18/10/13

Hoàng Trọng Nghĩa · 18/10/13

alohn đã viết:
Mình đã google mà tìm mãi không ra cách, bạn nào biết xin chỉ giúp.

Thank so much.

Vì tôi không có Win64bit nên không thử nghiệm được, nhưng tôi sẽ thử nghiệm code dưới đây và bạn test dùm xem nó có thể chạy được trên máy của bạn không nhé!

Thủ thục trong Standard Module:

[GPECODE=vb]
Option Explicit

#If VBA7 And Win64 Then 'Office 64-bit
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare PtrSafe 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
#Else ' Office 32-bit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
#End If

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
[/GPECODE]

Thủ tục trong UserForm Module:

[GPECODE=vb]
Private Sub UserForm_Initialize()
SetUnicodeCaption Me, Sheet1.Range("A1")
End Sub
[/GPECODE]

alohn · 18/10/13

ndu96081631 · 18/10/13

alohn đã viết:
Mình đã google mà tìm mãi không ra cách, bạn nào biết xin chỉ giúp.

Thank so much.

Vấn đề nằm ở Office của bạn, nó đang là 64 hay 32? Chẳng liên quan gì đến Win cả

alohn · 18/10/13

Good-Luck · 18/10/13

alohn đã viết:
Mình chạy bản Office 64

vào trang Microsoft tải bản việt hoá về xài, bạn muốn việt hoá Win hay office điều có

ndu96081631 đã viết:
Nói cái gì vậy đồng chí?
Người ta muốn tiếng Việt trên UserForm cơ mà

sorry ko xem rõ tiêu đề đúng là mắt kém rồi , phát biểu lung tung, đáng bị +-+-+-+

ndu96081631 · 18/10/13

Good-Luck đã viết:
vào trang Microsoft tải bản việt hoá về xài, bạn muốn việt hoá Win hay office điều có

Nói cái gì vậy đồng chí?
Người ta muốn tiếng Việt trên UserForm cơ mà

Hoàng Trọng Nghĩa · 18/10/13

alohn đã viết:
Mình chạy thử thì báo lỗi ở hàm StrPtr, lỗi Type mismatch ở thủ thủ tục SetUnicodeCaption, mình có sửa lại các hàm api thành Declare PtrSafe Function để phù hơp với win 64 bit, không biết có chuẩn không. Hình như hàm StrPtr không hỗ trợ cho win 64 bit

Bạn thử thay Long thành LongPt xem sao!

alohn · 18/10/13

Hoàng Trọng Nghĩa · 18/10/13

alohn đã viết:
Mình đã chuyển thành LongPtr nhưng vẫn không được bạn ạ

Thử một lần nữa xem, bạn bỏ hết code trong Standard Module trong file tôi gửi lên, rồi thay bằng thủ tục này xem sao!

Mã:

Declare PtrSafe Function FindWindow Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr


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


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

alohn · 18/10/13

Vẫn lỗi bạn ạ, giờ nó lại báo ở FindWindow là type mismatch

siwtom · 18/10/13

alohn đã viết:
Vẫn lỗi bạn ạ, giờ nó lại báo ở FindWindow là type mismatchView attachment 110903

Tôi không có Win 64 bit cũng chả có office 64 bit để có được cái thú thử nghiệm. Tôi chưa có kinh nghiệm với 64 bit.
Bạn thử thay khai báo ở bài #2 của bạn Nghĩa thành

Mã:

#If VBA7 And Win64 Then 'Office 64-bit
    Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
          (ByVal lpClassName As String, ByVal lpWindowName As String) As [B][COLOR=#ff0000]LongPtr[/COLOR][/B]
    Declare PtrSafe Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcW" _
          (ByVal hwnd As [B][COLOR=#ff0000]LongPtr[/COLOR][/B], ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As [B][COLOR=#ff0000]LongPtr[/COLOR][/B]
#Else ' Office 32-bit
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
          (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    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
#End If

Và thành

Mã:

Sub SetUnicodeCaption(ByVal frm As UserForm, ByVal UnicodeString As String)
    Dim hwnd as [B][COLOR=#ff0000]LongPtr[/COLOR][/B]

alohn · 18/10/13

siwtom · 18/10/13

alohn đã viết:
Cảm ơn các bạn đã nhiệt tình giúp.

Vẫn báo lỗi Type mismach

Cụ thể lỗi ở đâu? Bạn nên nói rõ cho khỏi phải suy đoán.

LParam là địa chỉ trong bộ nhớ của chuỗi. Vậy ta dùng LongPtr.

Bạn thử sửa thành

Mã:

Declare PtrSafe Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcW" _
          (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As LongPtr) As LongPtr

KIến thức thêm: StrPtr trong 64 bit trả về giá trị 64 bit LongPtr

Nếu cần cả wParam as LongPtr
-----------------

Phiên bản cuối cùng

Mã:

Declare PtrSafe Function DefWindowProc Lib "user32" Alias "DefWindowProcW" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

alohn · 18/10/13

siwtom · 18/10/13

alohn đã viết:
Cuối cùng thì ok rồi ạ, chắc lỗi ở đây LParam as LongPtr vì StrPtr trong 64 bit trả về giá trị 64 bit LongPtr
Mình up file hoàn chỉnh lên

Nói chính xác thì
1. StrPtr trong 64 bit trả về giá trị 64 bit LongPtr
2. Nhưng VÌ thì là VÌ LParam chứa địa chỉ của chuỗi trong bô nhớ nên LParam as LongPtr

Lúc trước tôi viết kiểu "đi tắt" nên sẽ làm người đọc hiểu lầm. Đã sửa lại.

Làm sao việt hóa Caption trên From Win 64bit ? (1 người xem)

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

alohn

Thành viên chính thức

Hoàng Trọng Nghĩa

Chuyên gia GPE

File đính kèm

alohn

Thành viên chính thức

ndu96081631

Huyền thoại GPE

alohn

Thành viên chính thức

Good-Luck

Thành viên tiêu biểu

ndu96081631

Huyền thoại GPE

Hoàng Trọng Nghĩa

Chuyên gia GPE

alohn

Thành viên chính thức

Hoàng Trọng Nghĩa

Chuyên gia GPE

alohn

Thành viên chính thức

siwtom

Thành viên gắn bó

alohn

Thành viên chính thức

siwtom

Thành viên gắn bó

alohn

Thành viên chính thức

File đính kèm

siwtom

Thành viên gắn bó

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

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.