zdraste vsem, pomogite 4ajniku

istoriya v kratse:
est' 6 raznyh leybelov, s sovsem raznymi imenami (pereimenovyvat' nel'zya =(...), ja ho4u 4toby kogda proizoshel form_load (zagruzka moego okoshe4ka progi), v samom na4ale to bish', 6 etix leybelov stanovilis' pustimi i nedostumnimi dlya ispolzovaniya.
pisat' 6 raz odno i tozhe no s raznimi imenami ne ho4u, no zahotel napisat funkciyu sled. vida:
Function begin_labels_clear (label_naam As Label)

With label_naam
.Enabled = False
.Caption = ""
End With

End Function

pomestil v samom verhu koda, potom nizhe u menya tam idet form_load:
.........
begin_labels_clear (lblEen)
.........

Leybel s takim imenem sushestvuyet, stopudova
a pri popitke prosmotra progi, on mne na form_load, i etot vizov funkcii materitsa i oret Type missmatch...

kto skazhet, 4to ya delayu ne tak?

pozhaluysta... =(

izvinite za flud

Модератор: Пользуйся транслитом!

Код

Option Explicit Private Function begin_labels_clear(label_naam As Label)     With label_naam         .Enabled = False         .Caption = ""     End With End Function Private Sub Command1_Click() Call begin_labels_clear(Label1) End Sub

cardinal
А почему функцией? Онаже не возвращает ничего......

Тогда уж так:

Код

Option Explicit Private Function begin_labels_clear(label_naam As Label) As Integer On Error GoTo ErrorHandler     With label_naam         .Enabled = False         .Caption = ""     End With Exit Function ErrorHandler:   begin_labels_clear = Err.Number   Resume Next End Function Private Sub Command1_Click() Dim a As Integer   a = begin_labels_clear(Label1) End Sub

Цитата

А почему функцией?

Ну он так хотел.

Я мне кажется ему необходимо обращятся к объекту по его имени:

Код

Private Function Begin_Labels_Clear(LabelName As String)     Dim Ctrl As Object          For Each Ctrl In Me.Controls         If TypeName(Ctrl) = "Label" Then             If Ctrl.Name = LabelName Then                 Ctrl.Enabled = False                 Ctrl.Caption = ""             End If         End If     Next End Function

Гы. И каждый раз идет перебор по всем элементам...
Автор и сам решил проблему, но почему-то есть ошибка (как обычно без кода не поймешь).
А обращАтЬся ему надо не по имени (иначе имя было бы в кавычках).

Просто как всегда надо так

Код

Call begin_labels_clear (lblEen)

или так

Код

begin_labels_clear lblEen

писать...

хм... спасибо. я только не совсем все понял. чайник же. например, что вот это такое

Код

Private Function Begin_Labels_Clear(LabelName As String)'      Dim Ctrl As Object 'это будут ярлыки, так?          For Each Ctrl In Me.Controls 'для каждого значения в Где?! я просто такое не использовал ни разу... :)         If TypeName(Ctrl) = "Label" Then 'вот здесь тоже сомневаюсь, правильно ли понимаю...             If Ctrl.Name = LabelName Then 'и дальше тож                 Ctrl.Enabled = False                  Ctrl.Caption = ""              End If          End If       Next End Function

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

кстати, я от своего старого учителя слыхал, что использование меток и ГоуТу считается плохим стилем программирования... Правда?

Приведенная мной функция ищет на форме объект типа Label по его имени.
Давай попробуем пробежатся по моему коду.

Dim Ctrl As Object - Объявляем переменную Ctrl как Объект любого типа.

For Each Ctrl In Me.Controls - Конструкция For Each ... In ... работает по тому же принципу что и обычный цикл For...Next но с одним МАЛЕНЬКИМ нюансом. Последовательным перебором переменной Ctrl присваивается каждый объект из коллекции. В данном случае Me.Controls это коллекция всех элементов управления на форме.

If TypeName(Ctrl) = "Label" Then - Если тип объекта Ctrl называется "Label" тогда...

If Ctrl.Name = LabelName Then - Если этот лейбл имеет заданное имя тогда ...
Добавлено @ 15:22
З.Ы.

Цитата

использование меток и ГоуТу считается плохим стилем программирования

Истинно говорю, правда.

И Pavel_NL зарегистрируйся
Добавлено @ 15:25
Black_Star абсолютно правильное замечание.
Тело в цикле нужно изменить вот так:

Код

...             If Ctrl.Name = LabelName Then                 Ctrl.Enabled = False                     Ctrl.Caption = ""                 Exit For   'Объект был найден, дальнейший перебор не нужен. Выходим из цикла             End If  ...

Naghual, спасибо большое за пояснение кода. зарегился кстати.
как только смогу все, что планировал реализовать в коде, с ващей помощью, отпишусь.

топик прошу не удалчть

Проблему с ошибкой наконец-то решил. Надо было всего навсего правильно вызвать функцию. Спасибо всем, кто помог. Узнал много нового. Топик все еше прошу не удалять, т.к. помошь наверняка понадобиться снова.

У меня снова вопрос
Я в своем фрэйме сделал строку меню. Хочу "Выход" Кнопочку сделать, чтобы все закрывалось.
Прописал Stop, но сам помню, что это не то, что мне надо, даже если бы и работало. Но даже и это не работает почему-то.
В интернете поискал что-то вроде функции Exit, не нашел. Руки кривые наверное

Еще хочу узнать, как переносить строки кода. Я хочу например вот следующего вида МэссэджБокс использовать:

Код

MsgBox "Hallo! U probeert een Yahtzee-wannabe spel te spelen. Wat is nou de bedoeling van het spel? Simpel. U heeft 5 dobbelstenen. Als u op 'Start' klikt, dan gooit u de dobbelstenen. Als u een dobbelsteen vast wilt houden, dan moet u op de witte oppervlakte rond het beeld van een dobbelsteen om drukken. Heeft u op een verkeerde plek gedrukt? Het kan ook terug vrij laten, door een klik op eenzelfde plek. Door drie drie poggingen met behulp van 'Start' maakt u een Spelbeurt. In het geheel zijn er maar 6 spelbeurten. Als u een niuewe spel wilt beginnen moet u naar menu 'Spel' gaan, daarna op 'Nieuw Spel' klikken. In dezelfde menu kunt u ook van het spel uit gaan (Exit)", , "Help!"

И все это написал в одну строчку, ужасно неудобно. Как пересонить строки кода на новый абзац?

ну и самый наверное ламмерский вопрос. как мне exe-шник мой получить-то? =) я нажимаю Ctrl+F5 но где мой экзэшник я так и не понимаю...

заранее спасибо

Это сообщение отредактировал(а) PavelNL - 5.6.2005, 04:33

Цитата(PavelNL @ 5.6.2005, 03:11)

Я в своем фрэйме сделал строку меню. Хочу "Выход" Кнопочку сделать, чтобы все закрывалось.

ну если правельно понял тогда тебе надо писать

Код

Privat Sub Command1_Click() End ' закрывает всю програму :) End Sub

Цитата(PavelNL @ 5.6.2005, 03:11)

Еще хочу узнать, как переносить строки кода. Я хочу например вот следующего вида МэссэджБокс использовать:

вот типа такого и будет если я правельно тебя понял

Код

MsgBox "Hallo! U probeert een Yahtzee-wannabe spel" _ & "te spelen. Wat is nou de bedoeling van het spel? Simpel." _ & "U heeft 5 dobbelstenen. Als u op 'Start' klikt, dan gooit u de dobbelstenen." _ & "Als u een dobbelsteen vast wilt houden, dan moet u op de witte" _ & "oppervlakte rond het beeld van een dobbelsteen om drukken." _ & "Heeft u op een verkeerde plek gedrukt? Het kan ook terug vrij laten," _ & "door een klik op eenzelfde plek. Door drie drie poggingen met " _ & "behulp van 'Start' maakt u een Spelbeurt. In het geheel zijn " _ & "er maar 6 spelbeurten. Als u een niuewe spel wilt beginnen " _ & "moet u naar menu 'Spel' gaan, daarna op 'Nieuw Spel' klikken." _ & "In dezelfde menu kunt u ook van het spel uit gaan (Exit)", , "Help!"

Цитата(PavelNL @ 5.6.2005, 03:11)

ну и самый наверное ламмерский вопрос. как мне exe-шник мой получить-то? =) я нажимаю Ctrl+F5 но где мой экзэшник я так и не понимаю...

Экзешник лежит там где и проект ;) лежит...

Если не ошибаюсь, то в какой-то книге было написано, что вместо

Цитата(M @ 5.6.2005, 02:47)

Privat Sub Command1_Click() End ' закрывает всю програму End Sub

лучше писать

Код

Privat Sub Command1_Click() Unload Me End Sub

Так как типа End это полный абзац, а Unload Me нормальная выгрузка проги...

Цитата(cardinal @ 5.6.2005, 16:31)

Unload Me нормальная выгрузка проги

сразу из памяти выгружает если неошибаюсь

cardinal

Цитата

лучше писать unload me

это почему же? лучше всего сначала все выгрузить (unlaod), а потом не забыть написать end, ибо программа может "случайно" не закрыться и висеть в памяти (мало ли, мож забыл че-нть выгрузить).
А End - это типа процедуры ExitProcess, так что для того, чтобы быть уверенным, что программа завершиться, надо ее использовать

Неа. Unload Me выгружает из памяти текущую Форму! Если програма стартовала формой то она возможно таки будет завершена, но при условии что не были созданы иные глобальные объекты. А если программа запускалась из Sub Main() тогда ничего не получится.

Правильнее всего уничтожить все что было созданной программой (Set SomeObject = Nothing) и затем заверщить программу ерез End.

Понял. Посмотрю, может найду ту книгу, может там что-нибудь другое имелось в виду...

Спасибо, за полные ответы. но вот своего экзешника я так и не получил.
Играет ли версия моего бейсика роль - 5.0 ССЕ? 6-ой стоит в школе, а дома вот это Г.
Хотя может зря я на версию думаю?
В папке у меня лежат три файла одного имние, с разными расширениями: file.frm, file.vbp, file.vbw
Можно так же сохранить группу. Не знаю точно, что это, но кажется, это как раз эти три файла в одном.
Больше в этой папке ничего нету.

Это сообщение отредактировал(а) PavelNL - 6.6.2005, 17:16

Цитата

Спасибо, за полные ответы. но вот своего экзешника я так и не получил.

Ну так ведь File->Make Project1.exe ?

Командная строка VB в крайнем случае...

Я конечно дико извеняюсь, но VB 5.0 ССЕ это есть Control Creation Edition.
Он может компилить только в OCX. Да и внутренности у него урезанные.

ИМХО: Однако вещь незаменимая для написания чисто контролов!

Это сообщение отредактировал(а) Naghual - 6.6.2005, 18:24

Naghual, кто такое ОСХ?

PavelNL, не майся дурью! Поставь себе VB6.
Кстати этот подраздел форума называется VB6, а не VB5...
PavelNL, если ты в школе диск на день попросишь тебе не дадут?

OCX - Это скомпилированный код элемента(ов) управления (ActiveX Control).
В любом случае это не то что тебе нужно.

Цитата

ССЕ это есть Control Creation Edition

У меня была такая фишка: удалил случайно какие-то жизненно важные системные файлы для VB 6 и - не поверите - он стал именно Control Creation Edition, если память мне не изменяет. А вот назад попробовать - прописать эти удаленные системные файлы на свое место - не получилось. Пришлось переставлять VB 6 Pro. Вот так.

cardinal, в Голландии все жмоты, не дадут. Но диск я уже пробил. За нарушение рубрикации - пардон, виноват, исправлюсь
а вообще не честно, конечно, вот так вот и не скачаешь ничего, башлять только надо везде... =(


Voldemar2004, вот мне бы ухитриться файлы присобачить к моей версии, чтоб 6-ая получилась

(топик пока не закрывайте, пожалуйста)

Voldemar2004

Цитата

- не поверите -

И не верю

Цитата

И не верю

Так я ведь бейсик ставил (так же как и удалял впрочем и все другие проги) с помощью Total Uninstaller'а. А он пишет при финализации удаления: файл с расширением таким-то ОС сообщает что он не занят в данный момент - ну так я файлы эти и посносил - сюрпизов потом - ну как я выше рассказал.

Цитата(Voldemar2004 @ 6.6.2005, 22:44)

не поверите - он стал именно Control Creation Edition

[offtop]
а у тебя он никогда не становился Working Model Edition?
У меня становился и не работал
[/offtop]

Цитата

Working Model Edition?

Да точно, я имел в виду именно Working Model Edition. А не Control Creation Edition.

Вот, надо ж было так перепутать. Извиняйте.