[حل شده] پیغام سفارشی فارسی با استفاده از دستور ویژوال بیسیک

[look20]

سلام
توی انجمن گشتم و مورد خاصی پیدا نکردم
توی ویژوال بیسیک میشه پیغام msgbox رو بصورت سفارشی تغییر داد این کد:

Private SourceGozar As Long
Private m_hHook As Long
Private Const IDOK = 1
Private Const IDCANCEL = 2
Private Const IDABORT = 3
Private Const IDRETRY = 4
Private Const IDIGNORE = 5
Private Const IDYES = 6
Private Const IDNO = 7

Private Const WH_CBT = 5
Private Const GWL_HINSTANCE = (-6)
Private Const HCBT_ACTIVATE = 5

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Sub MessageBoxH(hwndThreadOwner As Long)
    
    Dim hInstance As Long
    Dim hThreadId As Long
    
    hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)
    hThreadId = GetCurrentThreadId()
    
    m_hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, hInstance, hThreadId)
    
End Sub
Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
    If uMsg = HCBT_ACTIVATE Then
        SetDlgItemText wParam, IDOK, "ÊÃííÏ"
        SetDlgItemText wParam, IDCANCEL, "áÛæ"
        SetDlgItemText wParam, IDABORT, "ÞØÚ Úãá"
        SetDlgItemText wParam, IDRETRY, "ÓÚí ãÌÏÏ"
        SetDlgItemText wParam, IDIGNORE, "ÕÑÝ äÙÑ"
        SetDlgItemText wParam, IDYES, "Èáå"
        SetDlgItemText wParam, IDNO, "äå"
        
        UnhookWindowsHookEx m_hHook
    End If
    MsgBoxHookProc = False
    
End Function
Public Function MsgBox2(Form1 As Form, prompt As String, style As VbMsgBoxStyle, title As String) As Long
        MessageBoxH Form1.hwnd
    MsgBox2 = MsgBox(prompt, style, title)
End Function
Public Function MsgBox3(Form1 As Form, prompt As String, style As VbMsgBoxStyle, title As String) As Long
        MessageBoxH Form1.hwnd
    MsgBox3 = MsgBox(prompt, style + vbMsgBoxRtlReading + vbMsgBoxRight, title)
End Function 

این کد رو هم برای فراخوانی استفاده میشه کرد :

Private Sub Command1_Click()
MsgBox3 Me, "کادر پيام فارسي", vbCritical + vbYesNo, "VB6 Source"
End Sub 

حالا من سوال داشتم میشه همین کد ها رو توی vba اجرا کرد خود کد api روی توی ماژول کپی میکنم بدون مشکل هست ولی دستور اجرای دکمه خطا میگیره
ممنون

[look20]

پیغام فارسی صددر صد کاربردی اکسل

بچه ها مشکل حل شد تشکر یادتون نره
لطفا مدیران محترم قسمت دوم این پست بهمراه فایل رو به قسمت addons انتقال بدید ممنون