Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / растянуть форму и сообщение InputBox / 15 сообщений из 15, страница 1 из 1
28.05.2010, 18:14
    #36656134
MagicBlood
MagicBlood
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
Здравствуйте, помогите растянуть по экрану форму проекта - чтобы по краям, наверху и внизу не оставалась нечего, только белая форма без краев... Пробовал через свойство формы менять, но нечего не получается...
и еще один вопрос, как написать код на сообщение InputBox? там две кнокпи "ОК" и "отмена" и крестик, как к ним обращаться?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 18:46
    #36656203
MagicBlood
MagicBlood
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
с растяжкой формы разобрался, остался открытым второй вопрос: как обращаться к кнопкам которые вылезают в InputBox
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 19:03
    #36656232
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBloodс растяжкой формы разобрался, остался открытым второй вопрос: как обращаться к кнопкам которые вылезают в InputBox
а зачем вам к ним обращаться?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 19:04
    #36656235
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBlood,
вам сюда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 19:11
    #36656240
MagicBlood
MagicBlood
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
при нажатии они у меня не функционируют:
код программы таков: Спрашивается через ИнпутБокс числа 1, 2, 3, 4
И через селект кэйс выполняются действия в зависимости от введенных цифр в ИнпутБоксе.
Они все работают, в конце в противном случаи если нечего не совпадает выводится сообщение(....). Так вот после этого при нажатии на все кнопки и даже крестик выходит это сообщение...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 19:18
    #36656248
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBlood,
вы это имеете ввиду?
Код: plaintext
1.
2.
3.
button = InputBox("Message", vbYes)
If button = "" Then
MsgBox ("empty")
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 19:25
    #36656255
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBloodпри нажатии они у меня не функционируют:
код программы таков: Спрашивается через ИнпутБокс числа 1, 2, 3, 4
И через селект кэйс выполняются действия в зависимости от введенных цифр в ИнпутБоксе.
Они все работают, в конце в противном случаи если нечего не совпадает выводится сообщение(....). Так вот после этого при нажатии на все кнопки и даже крестик выходит это сообщение...

Ну и причем тут обращение к кнопкам?
Если нажата отмена или крестик - возвращается пустая строка.
Может хелп для начала прочтете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 19:54
    #36656283
MagicBlood
MagicBlood
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
Shocker.ProMagicBloodпри нажатии они у меня не функционируют:
код программы таков: Спрашивается через ИнпутБокс числа 1, 2, 3, 4
И через селект кэйс выполняются действия в зависимости от введенных цифр в ИнпутБоксе.
Они все работают, в конце в противном случаи если нечего не совпадает выводится сообщение(....). Так вот после этого при нажатии на все кнопки и даже крестик выходит это сообщение...

Ну и причем тут обращение к кнопкам?
Если нажата отмена или крестик - возвращается пустая строка.
Может хелп для начала прочтете?
Все нормально, понял...
Остался один вопрос:
в case else
MsgBox("...")
почему при вводе других значений это сообщение выскакивает и после нажатия отмены и крестика?
ведь оно должно выскакивать только после ввода значений и нажатия кнопки ОК???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 20:01
    #36656293
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBloodв case else
MsgBox("...")
почему при вводе других значений это сообщение выскакивает и после нажатия отмены и крестика?
ведь оно должно выскакивать только после ввода значений и нажатия кнопки ОК???

Вы издеваетесь?
Вы хоть строчку своего кода привели? Или вы считаете, что мы телепатически видим ваш экран?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 20:02
    #36656294
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBlood,
пустая строка или другое значение попадают под else
вы же сами такое условие поставили
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 20:08
    #36656296
MagicBlood
MagicBlood
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
Вот код:

Dim b as string
b=InputBox("Введите число")
Select Case b
case 1
[команда на выполнение]
case 2
[команда на выполнение]
case 3
[команда на выполнение]
case ""
MsgBox("Вы не ввели нечего")
case else
MsgBox("Неверная цифра")
End Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 20:15
    #36656300
MagicBlood
MagicBlood
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBloodВот код:

Dim b as string
b=InputBox("Введите число")
Select Case b
case 1
[команда на выполнение]
case 2
[команда на выполнение]
case 3
[команда на выполнение]
case ""
MsgBox("Вы не ввели нечего")
case else
MsgBox("Неверная цифра")
End Select

хотелось бы изменить вот что: когда ничего не введено и нажимаем любые кнопки пишется ничего не введено-это правильно, а если ввести и нажать отмена или крестик тоже такое же сообщение, хотя там вводились значения...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 20:17
    #36656305
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBlood,
ну раз нажали крестик значит ничего не ввели
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 20:22
    #36656310
MagicBlood
MagicBlood
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
aduka05admMagicBlood,
ну раз нажали крестик значит ничего не ввели
ладно, оставим так... Спасибо тем кто помогал!!!) тему можно закрыть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2010, 20:31
    #36656317
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
растянуть форму и сообщение InputBox
MagicBlood,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
b = InputBox("Введите число")
Select Case b
Case  1 
MsgBox (b)
Case  2 
MsgBox (b)
Case  3 
MsgBox (b)
Case ""
MsgBox ("Введите число и нажмите OK"), vbCritical
Case Else
MsgBox ("Неверная цифра")
End Select
вот решение)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / растянуть форму и сообщение InputBox / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 345ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159719]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 33ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 240ms
total:  345ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]