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

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

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

Вы издеваетесь?
Вы хоть строчку своего кода привели? Или вы считаете, что мы телепатически видим ваш экран?
...
Рейтинг: 0 / 0
28.05.2010, 20:01
| Ответить | Цитировать | Написать  
растянуть форму и сообщение InputBox
    #36656294
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
MagicBlood,
пустая строка или другое значение попадают под else
вы же сами такое условие поставили
...
Рейтинг: 0 / 0
28.05.2010, 20:02
| Ответить | Цитировать | Написать  
растянуть форму и сообщение InputBox
    #36656296
MagicBlood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:08
| Ответить | Цитировать | Написать  
растянуть форму и сообщение InputBox
    #36656300
MagicBlood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MagicBlood
Гость
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:15
| Ответить | Цитировать | Написать  
растянуть форму и сообщение InputBox
    #36656305
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
MagicBlood,
ну раз нажали крестик значит ничего не ввели
...
Рейтинг: 0 / 0
28.05.2010, 20:17
| Ответить | Цитировать | Написать  
растянуть форму и сообщение InputBox
    #36656310
MagicBlood
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MagicBlood
Гость
aduka05admMagicBlood,
ну раз нажали крестик значит ничего не ввели
ладно, оставим так... Спасибо тем кто помогал!!!) тему можно закрыть.
...
Рейтинг: 0 / 0
28.05.2010, 20:22
| Ответить | Цитировать | Написать  
растянуть форму и сообщение InputBox
    #36656317
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
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
28.05.2010, 20:31
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / растянуть форму и сообщение InputBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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