inputbox / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / inputbox

16 сообщений из 16, страница 1 из 1

inputbox

#34488849

jhonkuk

Гость

Как обработать кн. Отмена у inputbox?

...

Рейтинг:

0 / 0

26.04.2007, 10:55

| Ответить | Цитировать | Написать

inputbox

#34488915

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

А зачем? При отмене inputbox возвращает пустую строку, даже если в него было что-то введено.

...

Рейтинг:

0 / 0

26.04.2007, 11:08

| Ответить | Цитировать | Написать

inputbox

#34488992

jhonkuk

Гость

Так в том то и дело:

Private Sub List1_DblClick()
Dim nameField As String
Dim i As Integer
i = List1.ListIndex
nameField = InputBox("Ââåäèòå íîâîå èìÿ", "Ëîãàñòèê")
End Sub

При отмене в inputbox-е старое значение в листе затирается

...

Рейтинг:

0 / 0

26.04.2007, 11:24

| Ответить | Цитировать | Написать

inputbox

#34489006

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Да неужели??? А что мешает сначала проверить то, что возвращает inputbox?

...

Рейтинг:

0 / 0

26.04.2007, 11:27

| Ответить | Цитировать | Написать

inputbox

#34489030

jhonkuk

Гость

oldName = List1.List(i)
...
If nameField = "" Or IsNull(nameField) Then nameField = oldName

...

Рейтинг:

0 / 0

26.04.2007, 11:32

| Ответить | Цитировать | Написать

inputbox

#34489053

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Ну проще же нужно думать...

Код: plaintext

1.
2.

s = InputBox(...)
If s = "" then Exit Sub 'удобно, если потом много действий
nameField = s

...

Рейтинг:

0 / 0

26.04.2007, 11:37

| Ответить | Цитировать | Написать

inputbox

#34489078

jhonkuk

Гость

Ага, если бы ...
В списке пустые занчения тоже могут и будут присутствовать

...

Рейтинг:

0 / 0

26.04.2007, 11:41

| Ответить | Цитировать | Написать

inputbox

#34489085

jhonkuk

Гость

то бишь вводиться

...

Рейтинг:

0 / 0

26.04.2007, 11:42

| Ответить | Цитировать | Написать

inputbox

#34489145

Granata005

Участник

Сообщения: 396

Рейтинг: 0 / 0

jhonkukАга, если бы ...
В списке пустые занчения тоже могут и будут присутствовать
Ну тогда следует рассмотреть запрет использования пустых значений... или сделать свой ИнпутБокс - так надёжней будет...

...

Рейтинг:

0 / 0

26.04.2007, 11:55

| Ответить | Цитировать | Написать

inputbox

#34489163

jhonkuk

Гость

Да вот то то и оно, блин ...

...

Рейтинг:

0 / 0

26.04.2007, 11:58

| Ответить | Цитировать | Написать

inputbox

#34489193

Ashton

Гость

1. Разработай форму, которая и будет твоим InputBox.

2.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Sub X()
    Dim str As String
    
    str = InputBox("Введите")
    
    If Len(str) =  0  Then
        If StrPtr(str) =  0  Then
            MsgBox "Cancel"
        Else
            MsgBox "OK"
        End If
    End If
End Sub

...

Рейтинг:

0 / 0

26.04.2007, 12:05

| Ответить | Цитировать | Написать

inputbox

#34489228

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

2 - красиво. Одно дополнение. Переменную str нельзя использовать до inputbox, иначе она будет инициализирована и получит адрес.

...

Рейтинг:

0 / 0

26.04.2007, 12:13

| Ответить | Цитировать | Написать

inputbox

#34489357

Ashton

Гость

Все верно.

...

Рейтинг:

0 / 0

26.04.2007, 12:39

| Ответить | Цитировать | Написать

inputbox

#34489522

jhonkuk

Гость

Понял, спасибо всем.

...

Рейтинг:

0 / 0

26.04.2007, 13:17

| Ответить | Цитировать | Написать

inputbox

#34490603

Ламер Ламерович

Участник

Откуда: от верблюда

Сообщения: 1 004

Рейтинг: 0 / 0

не пользуетесь поиском, а то нашли бы много топиков с этим решением, например
InputBox

...

Рейтинг:

0 / 0

26.04.2007, 17:16

| Ответить | Цитировать | Написать

inputbox

#34491525

jhonkuk

Гость

Искал, но много топиков выдает

...

Рейтинг:

0 / 0

27.04.2007, 08:02

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / inputbox

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&tid=2164129]:	0ms
get settings:	9ms
get forum list:	22ms
check forum access:	4ms
check topic access:	4ms
track hit:	162ms
get topic data:	12ms
get forum data:	2ms
get page messages:	69ms
get tp. blocked users:	1ms
others:	240ms

total:	525ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы