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

   
   
     

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

Страница: 1 |

 

  Вопрос: Формы Добавлено: 16.02.10 12:34  

Автор вопроса:  ηikolaŠ~rus | ICQ: 604058327 
Здравствуйте форумчане!
У меня в проекте несколько форм , мне надо чтоб при загрузки 2 формы у нее енаблед=фальш , а у 4 енаблед = труе, НО вторая формы остается выделенной хотя енаблед= фальш, Как это исправить ,т.е мне надо чтоб она не была выделена ,а выделялась 4 форма.
Привожу фрагмент кода:
Private Sub Form_Load()
Form4.Show
Form2.Enabled = False
Form2.Caption = "Òåñòèðîâàíèå"
SumAns = 0
NomVopros = "1"
Loading
End Sub

Помогите пожалуйста!
Заранее спасибо!

Ответить

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

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



Вопросов: 4
Ответов: 330
  Профиль | | #1 Добавлено: 16.02.10 14:51
1.
"Òåñòèðîâàíèå"
что это за такэ?

2.
попробуй поменяй местами
  1. Form4.Show
  2. Form2.Enabled = False


3.
попробуй спрятать Form2 а потом показать Form4 (после #3)

4.
еще один вариант:
  1. Form4.Show vbModal, Me


если не помогло - пиши, у меня еще полно вариантов )

Ответить

Номер ответа: 2
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #2 Добавлено: 16.02.10 16:21
Сейчас попробую
"Òåñòèðîâàíèå-здесь типа название формы!

Ответить

Номер ответа: 3
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #3 Добавлено: 16.02.10 16:23
у меня что-то проект не открывается!Помогите!
  1. Dim SNPath As String
  2. Dim GetReestr As String
  3. Dim Serial As String
  4.  
  5.  
  6. Private Sub Command1_Click()
  7. On Error Resume Next
  8. Text1.Text = Serial
  9. If Text2.Text = Fix(Val(Serial) * 3 + 333 / 2) Then
  10. SaveSetting "proga", "serial", "serial", 1
  11. MsgBox "Программа зарегестрирована"
  12. Start
  13. Else
  14. MsgBox "Для регистрации отправь автору программы серийный номер мыло:coljan-rus@mail.ru,контакт:nikolas-rus Полищук", 16, "Введен неправильный ключ"
  15. End If
  16.  
  17. End Sub
  18.  
  19. Private Sub Form_Load()
  20. Randomize
  21.  
  22. On Error Resume Next
  23. GetReestr = GetSetting("proga", "serial", "serial")
  24.  
  25. SNPath = Environ("windir") & "\key.sn"
  26. F = FreeFile
  27.  
  28. If Val(GetReestr) <> 1 Then
  29. If Dir(SNPath) = "" Then
  30. Text1.Text = Fix(Rnd * 8000000000#)
  31. Serial = Text1.Text
  32. Open SNPath For Output As F
  33. Print #F, Text1.Text
  34. Close #F
  35. SaveSetting "proga", "serial", "serial", 0
  36. Else
  37. Open (SNPath) For Input As F
  38. Serial = Val(Input(LOF(F), F))
  39. Text1.Text = Serial
  40. Close #F
  41. End If
  42. Else
  43. Start
  44. End If
  45.  
  46. End Sub
  47.  
  48. Function Start()
  49. Form2.Enabled = True
  50. End
  51. End Function

код 4 формы
которая должна стоять первой

Ответить

Номер ответа: 4
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #4 Добавлено: 16.02.10 16:25
блин теперь все знают как мою прогу взломать!

Ответить

Номер ответа: 5
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #5 Добавлено: 16.02.10 16:28
Form4.Show vbModal, Me

Спасибо вроде бы пошло!(просто пришлось код из 4 формы удалить чтоб проект стартовал!)
Можешь объяснить что такое вбмонал и ми?

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #6 Добавлено: 16.02.10 16:39
vbModal - это константа для показывания формы
me - ссылка на форму, т.е. Form4.Show vbModal, Form2

перед тем как показать Form4 измени все с Form2 (Form2.Enabled = False,
Form2.Caption и тд)

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #7 Добавлено: 16.02.10 16:56
я не стал смотреть весь код т.к. долго пытаться понять как и что ты плантровал делать, но один странный участок кода сам в глаза кидается...
  1.  
  2. Form2.Show
  3. End


я не знаю чего ты делаешь в своей проге... но мне кажется что ты хотел закрыть форму а не всю прогу (причем, end - это экстренное завершение проги)

Ответить

Номер ответа: 8
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | | #8 Добавлено: 16.02.10 17:02
кстати в начало каждой форме,модуля,класса всавляй Option Explicit
тогда много проблем исчезнет и код станет намного правельней!

и по поводу end, сначала пиши unload form1,unload form2 и тд а потом если нада end
для завершения текущей формы можешь писать unload me

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #9 Добавлено: 16.02.10 17:05
в 5 ответе не тот код процетировал...
я имел ввиду функию Start

Ответить

Номер ответа: 10
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #10 Добавлено: 16.02.10 18:07
что мало участников которые так рьяно отвечали!
Спасибо попробую исправить!
Код который я дал это типа регистрации проги,серийник всегда будет разный и ключ тоже!

Ответить

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



Вопросов: 7
Ответов: 73
  Профиль | | #11 Добавлено: 16.02.10 18:24

nikolas-rus пишет:
блин теперь все знают как мою прогу взломать!

Можешь не парится, проги с такой защитой очень просто ламаются :-)

Ответить

Номер ответа: 12
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #12 Добавлено: 16.02.10 19:59
да я знаю , и не пытался ее по нормальному защитить просто , как говорится чтоб было!

Ответить

Страница: 1 |

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



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