Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Модули Добавлено: 18.04.10 21:14  

Автор вопроса:  VbStarter | Web-сайт: moscowdevils.ru | ICQ: 357911808 
как вызвать модуль из Sub'a

Ответить

  Ответы Всего ответов: 22  

Номер ответа: 1
Автор ответа:
 



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

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | Цитата | #1 		Добавлено: 18.04.10 21:36
Ты сам понял, что сказал?

Ответить

Номер ответа: 2
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #2 		Добавлено: 18.04.10 21:44
да. (как можно вызвать процедуру Timer1_Timer() в модуле AntiPrtScr из процедуры в форме) Executioner, будь проще:)

Ответить

Номер ответа: 3
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | Цитата | #3 		Добавлено: 18.04.10 21:51
"процедуру Timer1_Timer() в модуле AntiPrtScr"
Это как?

Допустим, процедура Timer1_Timer в форме, а не в модуле.
И тогда я могу предположить, что все наоборот, и тебе нужно из Модуля вызвать Timer1_Timer? rjnjhfz yf[jlbncz d ajhvt/

Ответить

Номер ответа: 4
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | Цитата | #4 		Добавлено: 18.04.10 21:53
Пунто свитчер в руки.

Ответить

Номер ответа: 5
Автор ответа:
 



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

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | Цитата | #5 		Добавлено: 18.04.10 21:54
VbStarter, ты просто не умеешь выражаться по-русски.

Ответить

Номер ответа: 6
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #6 		Добавлено: 18.04.10 21:54
мне нужно выполнить код модуля.

Ответить

Номер ответа: 7
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #7 		Добавлено: 18.04.10 21:56
Executioner ты угадал я реально думаю по английски (и иногда проще на английском сказать) - не даром я на олимпиаде1 по району 2 по округу и 3 по городу

Ответить

Номер ответа: 8
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #8 		Добавлено: 18.04.10 22:18
1. Не обижай одминов! :D
2.
е даром я на олимпиаде1 по району 2 по округу и 3 по городу

Хорошо. Вот это хорошо.
3. Модуль - это когда раста щелкает два раза по форме, или по модулю VB, и открывается такой текст, в нем процедурки и функции, вот они все вместе и называются модулем. А то, что ты имеешь ввиду - функция, процедура, подпрограмма, кусочек, ботва, вася, но никак не модуль.
4. Вот значет, что касается твоей проблемы - я так понял, ты из левой формы, левого модуля и вообще нигер знает откуда хочешь вызывать
  1.  
  2. Private Sub Timer1_Timer()
  3. ...


правильно? Тогда чоткие патцаны делают так:
  1.  
  2. Public Sub Timer1_Timer()
  3. ...

.
Вот. Можно подобрать свои семки и вызвать функцию:
  1.  
  2. Form1.Timer1_Timer


Смекаешь, раста?

Ответить

Номер ответа: 9
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #9 		Добавлено: 18.04.10 22:45
  1. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2. 'Ôóíêöèÿ GetAsyncKeyState îòëàâëèâàåò íàæàòèÿ íà êëàâèàòóðó âíå âàøåé ïðîãè
  3.  
  4. Private Sub Timer1_Timer()
  5. If GetAsyncKeyState(44) Then 'Åñëè íàæàëè ïðèíò ñêðèí, òî
  6.    Clipboard.Clear           'Î÷èùàåì áóôåð îáìåíà!
  7.    MsgBox "È íå ïûòàéñÿ äàâèòü íà ïðèíò ñêðèí ÎÊ?"     'Ðàñêîììåíòèðóéòå, åñëè õîòèòå!
  8. End If
  9. End Sub


вот такой код в модуле vb6. (модуль - обычный не класс модуль. модуль в кнопке Add

Ответить

Номер ответа: 10
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #10 		Добавлено: 18.04.10 22:47
нужно вызвать (запустить)
  1. Private Sub Timer1_Timer()

Ответить

Номер ответа: 11
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #11 		Добавлено: 18.04.10 22:48
из Form_Load'a в форме

Ответить

Номер ответа: 12
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #12 		Добавлено: 18.04.10 22:52
модуль в кнопке Add
ааааа ты щас моцк всем порвеш. Модуль не бывает в кнопке. В кнопке бывает подпрограмма. Модуль - это сплошной код, состоящий из нескольких процедур, его нельзя запустить. Можно запустить одну из его процедур. Разделяй эти понятия.

VbStarter пишет:
из Form_Load'a в форме

1. Убери Private - это означает, что твоя процедура видна только внутри модуля. Если уберешь - будет видна во всей программе.
Вместо
  1.  
  2. Private Sub Timer1_Timer()


пиши просто
  1.  
  2. Sub Timer1_Timer()


а в Form_Load
  1.  
  2. Timer1_Timer


VB сам найдет, в каком модуле Timer1_Timer

Ответить

Номер ответа: 13
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #13 		Добавлено: 18.04.10 23:16
мозгорвацы

Ответить

Номер ответа: 14
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | Цитата | #14 		Добавлено: 19.04.10 02:05
Респект железному VBD)

Ответить

Номер ответа: 15
Автор ответа:
 



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

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | Цитата | #15 		Добавлено: 19.04.10 08:15
Да, я после первого поста не выдержал. А в старые добрые.... Эх, портит людей возраст =)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам