Public Sub My_Break()
Call execute_command("DrawingBrokenViewCmd") ' 22576
Dim windowhandle As LongPtr
Select Case ThisApplication.Locale
Case Is = 1033, 2057
windowhandle = FindWindow("#32770", "Break")
Case Is = 1049
windowhandle = FindWindow("#32770", "Разрыв") ' "Ðàçðûâ" - проблема копирования текста **
Case Else
End Select
Dim retval As LongPtr ' return value
retval = EnumChildWindows(windowhandle, AddressOf EnumChildProc_Break, 0)
End Sub
Private Function EnumChildProc_Break(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim CtrlID As Integer
CtrlID = GetDlgCtrlID(hwnd)
If CtrlID = "16331" Then
Call ShowWindow(hwnd, SW_SHOWNORMAL)
Call SendMessage(hwnd, WM_SETTEXT, 0, ByVal "1 mm")
End If
If CtrlID = "16548" Then
Call ShowWindow(hwnd, SW_SHOWNORMAL)
Call SendMessage(hwnd, WM_SETTEXT, 0, ByVal "2")
End If
EnumChildProc_Break = 1 ' return value of 1 means continue enumeration
End Function
Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim CtrlID As Integer
CtrlID = GetDlgCtrlID(hwnd)
If CtrlID = "12111" Then
Call ShowWindow(hwnd, SW_SHOWNORMAL)
Call SendMessage(hwnd, WM_SETTEXT, 0, ByVal "9 mm")
End If
EnumChildProc = 1 ' return value of 1 means continue enumeration
End Function