работа с буфером обмена

[fizik_leha]

Private Sub Combobox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then ComboBox1.Paste
End Sub

После выполнения в комбобоксе появляеться удвоенное значение буфера.

То есть если в буфер заносили 123, то в комбобоксе появляется 123123.

Как сделать чтоб было нормально.

[Чудик]

Интересная фишка! Можно, просто предварительно определив длину данных в буфере, обрезать вставляемые данные в двое функцией Left (string,number) или Right (string,number), где string - данные или переменая с данными, а number - количество символов для обрезки. Тоже выход!

[san*]

Первый раз такое встречаю! При нажатии правой кнопки мыши на комбобоксе два раза отрабатывается событие, при левой кнопке все нормально вроде! Надо что-то искуственно делать.Будем думать...

[san*]

MouseUp работает нормально, если устраивает пользуйся им. Но все равно - что это за глюк такой..? Может Гиганты форума ответят

[fizik_leha]

Только что MouseUp попробовал. Спасибо. Работает.

А mousedown непонятки. Может один из глюков VBA 2003

[alibek]

MouseDown -> Click

[fizik_leha]

не понял вопроса

[alibek]

Я имел ввиду, может у тебя на Click что-то подвешено? А после MouseDown срабатывает Click.

[fizik_leha]

нет, специально создавал форму с одним комбобоксом.

Те же грабли. вид сбоку

[Vitaly1]

Физик Леха, если тебя это успокоит, держи:

Код: Выделить всё

Dim Вuffer As Boolean


Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
If Вuffer = True Then
ComboBox1.Paste
Вuffer = False
Else
Вuffer = True
End If
End If
End Sub

[fizik_leha]

Private Sub Combobox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
ComboBox1.Paste
End If
End Sub

И никаких проблем

[Vitaly1]

Но это при отпускании клавиши а не при ее нажатие, если это не имеет значение, то конечно можно иначе.

[fizik_leha]

в рамках данной задачи не имеет значения.

результат один и тот же.

[MisterX]

в рамках данной задачи не имеет значения.

результат один и тот же.

Да, но только в рамках данной задачи...
Я тоже пробовал писать эту фишку ...
Office 2003 - тот же эффект двойное значение буфера
Решение было такое при MouseDown
Button1.visible = true
появлялась кнопка с надписью вставитть
а при Button1_Click
Textbox1.Paste
Но тоже двойное значение
Может быть кто-нибудь поможет с этим справится Я идиот! Убейте меня, кто-нибудь!???
Это уже просто интерес (если хотите принцип)
ЕСТЬ ЭТОМУ РЕШЕНИЕ ИЛИ НЕТ ????