Я работаю над проектом VB6, и я курсирую по чему-то, что я не могу решить. В моем проекте я использую 2.0 comboboxes. Все работает отлично, с точки зрения загрузки combobox с данными, выбора его и всей группы. То, что я пытаюсь сделать, - как только данные были выбраны, я уверен, что одни и те же данные не были выбраны в обоих списках. Я пытаюсь написать инструкцию быстрого сравнения IF в LOST FOCUS для одного из cbo, но, похоже, это не работает.VB6 - комбобокс потерял фокус
Private Sub cbo1_LostFocus()
if cbo1.text<>"" and cbo2.text<>"" then
if cbo1.text = cbo2.text then
MSGBOX "Duplicate Values"
else
exit sub
End if
end if
End Sub
это не совсем понимает, что утрачивается FOCUS - Я не думаю, что я когда-либо делал, что к СВ, как правило, текстовым полям и тому подобным. Любая помощь приветствуется.
Я поддерживаю устаревшее приложение vb6. GotFocus У меня уже есть по другой причине. LostFocus не запускается вообще, также не проверяет. – FatBoySlim7
Вы всегда можете поместить этот код в отдельную функцию и вызвать его внутри своего GotFocus. Если вы не говорите, что ваш существующий код GotFocus мешает этой функции. –
Я думаю, что это можно было бы сделать также. Я действительно пытаюсь сделать это, когда он теряет фокус, потому что таким образом я могу выбрать одно значение в cbo1, после выбора значений в cbo2 - i проверить, совпадают ли оба. Я просто попытался ИЗМЕНИТЬ, и это работает, но LOST FOCUS поможет мне больше, потому что он будет постоянно напоминать им, что значения разные, поэтому они не случайно его сохраняют. С Change я использую msgbox, чтобы сообщить пользователю, что у них есть 2 значения - но это все. – FatBoySlim7