samiasoft
جمعه 08 آبان 1394, 17:03 عصر
سلام دوستان
همانطور که از عنوان مشخصه من به دنبال این API های برای استفاده در دستورات SEND MESSAGE هستم.
اینارو من از VB6 تبدیل کردم ایا اینا درسته ؟
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Object) As Long
Sub ControlCopy(ByVal hwnd As Long)
SendMessage(hwnd, WM_COPY, 0, 0&)
End Sub
' Cut the contents of a control into the Clipboard
Sub ControlCut(ByVal hwnd As Long)
SendMessage(hwnd, WM_CUT, 0, 0&)
End Sub
' Paste the contents of the Clipboard into a control
Sub ControlPaste(ByVal hwnd As Long)
SendMessage(hwnd, WM_PASTE, 0, 0&)
End Sub
' Delete the selected contents of a control
Sub ControlDelete(ByVal hwnd As Long)
SendMessage(hwnd, WM_CLEAR, 0, 0&)
End Sub
اگر صحیح هست متاسفانه در دستور زیر خاصیت hwnd برای ریچ تکست باکس رو نمیتونم اعمال کنم !
ControlCopy(rtb1.hwnd)
مشکل کار به نظرتون کجاست؟
در تاپیکی هم گفته شده که معادل hwnd بدین صورته :
Handle.ToInt32
اما متوجه نشدم چطوری اینو در دستور قبلی جایگزین کنم.ممنون میشم راهنمایی کنید
همانطور که از عنوان مشخصه من به دنبال این API های برای استفاده در دستورات SEND MESSAGE هستم.
اینارو من از VB6 تبدیل کردم ایا اینا درسته ؟
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Object) As Long
Sub ControlCopy(ByVal hwnd As Long)
SendMessage(hwnd, WM_COPY, 0, 0&)
End Sub
' Cut the contents of a control into the Clipboard
Sub ControlCut(ByVal hwnd As Long)
SendMessage(hwnd, WM_CUT, 0, 0&)
End Sub
' Paste the contents of the Clipboard into a control
Sub ControlPaste(ByVal hwnd As Long)
SendMessage(hwnd, WM_PASTE, 0, 0&)
End Sub
' Delete the selected contents of a control
Sub ControlDelete(ByVal hwnd As Long)
SendMessage(hwnd, WM_CLEAR, 0, 0&)
End Sub
اگر صحیح هست متاسفانه در دستور زیر خاصیت hwnd برای ریچ تکست باکس رو نمیتونم اعمال کنم !
ControlCopy(rtb1.hwnd)
مشکل کار به نظرتون کجاست؟
در تاپیکی هم گفته شده که معادل hwnd بدین صورته :
Handle.ToInt32
اما متوجه نشدم چطوری اینو در دستور قبلی جایگزین کنم.ممنون میشم راهنمایی کنید