TextBox и MouseDown, Up

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
blinow
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 27.06.2005 (Пн) 3:13

TextBox и MouseDown, Up

Сообщение blinow » 10.10.2006 (Вт) 12:27

Возможно ли не выводить PopUp меню TextBoxa (копировать, вставить и ...), а вывести свое PopUp меню по MouseDown или MouseUp, именно на TextBox

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 10.10.2006 (Вт) 12:32

В поиск по CallWindowProc и WM_RBUTTONUP
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

blinow
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 27.06.2005 (Пн) 3:13

Сообщение blinow » 10.10.2006 (Вт) 12:46

В первой строке ..._MouseUp или ..._MouseDown Button=0
И в принципе все.
Код: Выделить всё
Private Sub TextB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Button = 0
...

NashRus
Постоялец
Постоялец
 
Сообщения: 388
Зарегистрирован: 18.03.2006 (Сб) 1:16

Сообщение NashRus » 10.10.2006 (Вт) 14:29

В первой строке ..._MouseUp или ..._MouseDown Button=0


не поможет

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 10.10.2006 (Вт) 21:14

Самый простой способ (не без недостатков) -- .Enabled = False, .Enabled = True, PopupMenu.
Lasciate ogni speranza, voi ch'entrate.

blinow
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 27.06.2005 (Пн) 3:13

Сообщение blinow » 11.10.2006 (Ср) 2:55

alibek пардон не понял, что имел ввиду, а Button=0 срабатывает, но вот если написать типа
Код: Выделить всё

_MouseUp(...
Dim intBB as Integer
intBB = Button
Button = 0
...

уже не срабатывает.
Это наверное как
Код: Выделить всё
..._KeyDown(...
If KeyCode = 27 Then
   KeyCode = 0
   Unload Me
...

А Esc все равно летит дальше в предыдущую форму :( [/code]

NashRus
Постоялец
Постоялец
 
Сообщения: 388
Зарегистрирован: 18.03.2006 (Сб) 1:16

Сообщение NashRus » 11.10.2006 (Ср) 4:36

Button=0 срабатывает


конечно, почему бы присваиванию не сработать. а вот меню все равно лезет.

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 11.10.2006 (Ср) 10:38

Э... Интересно, только я вижу свой пост #2 в этой теме?
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 11.10.2006 (Ср) 11:16

такое ощущение, что никто не видит уже и вопроса
Весь мир матрица, а мы в нем потоки байтов!

blinow
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 27.06.2005 (Пн) 3:13

Сообщение blinow » 12.10.2006 (Чт) 2:10

Не, пост #2, видели, а этот чертов Button=0, как то странно ведет, в одних приложениях срабатывает, в других нет, в третьих меню выскакивает почему-то, в левом верхнем углу экрана, кроче разрабатываю пост #2 :) , ну хотелось то попроще :(


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 57

    TopList  
cron