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 нормальная выгрузка проги...