Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите сделать программу для создания файлов 
:(
    Опции темы
Akina
Дата 8.11.2007, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(iff @  8.11.2007,  19:20 Найти цитируемый пост)
зачем писать Me.WindowState = vbMaximized, когда можно WindowState = 2, без Me. и вместо vbMaximized просто 2. 

Есть правильный стиль программирования, и есть "сопли". Если программист просто напишет WindowState = 2 - скорее всего его очень скоро вышвырнут за дверь.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
iff
Дата 8.11.2007, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16



Akina, а различия в действии (быстродействии) между WindowState = 2 и Me.WindowState = vbMaximized есть?
P.S. а меня никто не вышвернет за дверь. Программирование это ш моё так сказать моё хобби.

Это сообщение отредактировал(а) iff - 8.11.2007, 19:17


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
cardinal
Дата 8.11.2007, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



А ты в цикле запусти одно и другой 100000 раз и засеки время... smile  smile 


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
iff
Дата 9.11.2007, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16



Не получается засечь время таймером. В общем сделал 2 формы - одна спанелью управления, другая дудет, то сварачиваться, то обратн во весь экран разворачиваться. На первой форме установил кнопку, лейбу и невидимый значёк таймера. В свойствах таймера поставил интервал равный 1 (чтоб точнее было), а в Enabled поставил False чтоб сразу не начал засекать время), а в свойствах лейбы Caption написал 0. Набрал такой код:
Код

Private Sub Command1_Click()
Form2.Show
Timer1.Enabled = True
For i = 1 To 10
Form2.WindowState = 1
Form2.WindowState = 2
Next i
Timer1.Enabled = False
Form2.WindowState = 0
End Sub


Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub

А вот Caption лейбы, отаётся 0.


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
Akina
Дата 9.11.2007, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



iff, сорри, но приведенный код свидетельствует о ПОЛНОМ непонимании того что тут написано. И вообще о непонимании принципов работы объектов, в частности работы объекта Таймер.

В личке я тебе уже говорил как понять что 
Цитата(iff @  8.11.2007,  20:15 Найти цитируемый пост)
WindowState = 2 и Me.WindowState = vbMaximized
есть АБСОЛЮТНО одно и то же.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
GLATSIOUS
Дата 11.11.2007, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 7.11.2007

Репутация: нет
Всего: нет



Цитата(iff @  8.11.2007,  17:01 Найти цитируемый пост)
GLATSIOUS, навирно с режимом Append, я просчитался, вероятно ты имел введу под словом Цитатавот текст который я написал заранее не то что было в файле (как я подумал), а то что в твоей проге будет вбит этот текст и она будет его записывать в файл перед текстом из текстбокса. Тогда нужно пользоваться режимом Output.

ты меня славу богу понял.Но то что ты написал тоже хорошо работает.А прогу я писал для того чтобы можно было легко форматировать статьи для движка сайта на ява скрипт.На днях этот сайт с движком прикрыли,но смысл в том чтоб все менюшки лого и проч. выстраивались только из-за того что в хедере указать пару строк: 
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><title></title>
<link rel="stylesheet" type="text/css" href="/files/style.css"><script type="text/javascript" src="/files/DriveScript.js"></script>

Вот я и написал прогу для форматирования.
PM MAIL   Вверх
Страницы: (3) Все 1 2 [3] 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1198 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.