Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.224.64.226] |
|
Сообщ.
#1
,
|
|
|
Из ListBox информация забирается в буфер обмена, но после вставки в блокнот выясняется, что кодировка не та. Как поправить?
Private Sub Command_Copy_Click() 1 On Error GoTo ErrorHandler 2 Dim dTemp As Double 3 Dim sTemp As String 4 Clipboard.Clear 5 For dTemp = 0 To List_Results.ListCount 6 If dTemp < List_Results.ListCount Then sTemp = sTemp & List_Results.List(dTemp) & Chr(13) Else sTemp = sTemp & List_Results.List(dTemp) 7 Next dTemp 8 Clipboard.SetText (sTemp) 9 List_Results.SetFocus 1000000 Exit Sub ErrorHandler: 1000001 If Err.Number <> 364 And Err.Number <> 0 Then MsgBox ("Ошибка функции Command_Copy_Click №" & Err.Number & ", '" & Err.Description & "', строка " & Erl()) End Sub |
Сообщ.
#2
,
|
|
|
Нужно переключить раскладку клавиатуры на русскую. ДО КОПИРОВАНИЯ.
Бага известная, очень старая и до сих пор не пофиксенная. |