Резултати от 1 до 10 от общо 10

Проблем с MsgBox

Сподели във Facebook Сподели в Twitter Изпрати на Email Сподели в LinkedIn
  1. Junior Member
    Тук е от
    Jul 2006
    Мнения
    84
    #1

    Проблем с MsgBox


    Програмата е Visual Basic 6.0 . Имаме цикъл For To Next ,имаме MsgBox който е вътре в цикъла и се изпълнява след определено условие на условната структура SelectCase. Проблема е
    когато се изпълни функцията MsgBox и сле натискане на бутона "OK"
    се поличава зацикляне от което не може да се излезе лесно и въобще ми бърка цялата логика. Как може да се направи така ,че
    кода да спира изпълнението си но без да се получава зацикляне и да не се предизвиква грешка ?

  2.  
     
  3. Member
    Тук е от
    Dec 2004
    Мнения
    542
    #2

    Re: Проблем с MsgBox

    Браво, бре! Дай някъв код да видим, няма да гадаем кво си оцапал.

  4. Junior Member
    Тук е от
    Jul 2006
    Мнения
    84
    #3

    Re: Проблем с MsgBox

    Ето ви код :
    a = Text1.Text
    b = Text5.Text
    For I = 1 To 6
    Select Case b
    Case Is = a
    MsgBox ("Òîçè êîä âå÷å ñúùóñòâóâà Âúâåäåòå äðóã êîä"), , ""
    Case Is <> a
    Text6.Text = 50

    End Select
    Next I

  5. Member
    Тук е от
    Nov 2004
    Мнения
    496
    #4

    Re: Проблем с MsgBox

    Цитат Първоначално публикувано от midjis
    Ето ви код :
    a = Text1.Text
    b = Text5.Text
    For I = 1 To 6
    Select Case b
    Case Is = a
    MsgBox ("Този код вече същуествува. Въведете друг код"), , ""
    Case Is <> a
    Text6.Text = 50

    End Select
    Next I
    А цикълът за какво изобщо служи? В този случай ще даде шест пъти едно и също съобщение, без да предлага алтернатива или възможност за повторно въвеждане.

  6. Junior Member
    Тук е от
    Jul 2006
    Мнения
    84
    #5

    Re: Проблем с MsgBox

    Този цикъл е необходим, той претъсва таблица, този който съм изпратил е примерен цикъл а истинския е подобен . Този съм изпратил защото е по- лесен за ориентация, но принципа и смисъла е един и същ.

  7. Member
    Тук е от
    Nov 2004
    Мнения
    496
    #6

    Re: Проблем с MsgBox

    Тоест всеки път, когато намери съвпадение в таблицата, да го съобщава? Не е ли по-добре да се обади само първия път и след това да излиза от цикъла?

  8.  
     
  9. Junior Member
    Тук е от
    Jul 2006
    Мнения
    84
    #7

    Re: Проблем с MsgBox

    Може и така , но след този цикъл има друк код , кйто не трябва да се изпълнява ако условието не е изпълнено.Ако знаете как може да се препрати изпълнението на програмата до преди натискането на бутона защото този код в който е и цикъла се изпълнява след натискането на бутон. Мисля че това може би ще бъде решението на проблема.А решение има в това съм сигурен.

  10. Member
    Тук е от
    Oct 2004
    Мнения
    367
    #8

    Re: Проблем с MsgBox

    Цитат Първоначално публикувано от Avis
    Тоест всеки път, когато намери съвпадение в таблицата, да го съобщава? Не е ли по-добре да се обади само първия път и след това да излиза от цикъла?
    И аз така смятам. След MsgBox сложи Exit For. Така след първото показване MsgBox-а ще излиза от цикъла. Ако пък е малко по-сложен алгоритъма. Примерно има значение колко пъти е изпълнено уsловието за показване на msgbox-a или нещо подобно, си въведи променливи които броят или пък някакви флагове. Аз лично бих извадил msgbox-a от цикъла, а на негово място бих променял стойността на една булева променлива и след цикъла с Иф вадя msgbox-a

    //edit
    не знам дали стана ясно какво имам предвид, а и междувременно си писал, та поствам код.

    a = Text1.Text
    b = Text5.Text
    For I = 1 To 6
    Select Case b
    Case Is = a
    MsgBox ("ала бала"), , ""
    Exit For
    Case Is <> a
    Text6.Text = 50

    End Select
    Next I


    или пък така


    a = Text1.Text
    b = Text5.Text
    c = false
    For I = 1 To 6
    Select Case b
    Case Is = a
    MsgBox ("ала бала"), , ""
    c= true
    Case Is <> a
    Text6.Text = 50

    End Select
    if c then exit for
    Next I

  11. Junior Member
    Тук е от
    Jul 2006
    Мнения
    84
    #9

    Re: Проблем с MsgBox

    Значи излизането от, и оставането в кода не ми върши работа. Трябва след излизане от
    цикъла изпълнението да се премества в формата където се намира бутона.
    Цикълите които е написъл Cvetahov не стават.Благодаря все пак.

  12. Member
    Тук е от
    Oct 2004
    Мнения
    367
    #10

    Re: Проблем с MsgBox

    Явно не схващам проблема. Ако можеш дай малко повече инфо.

Сподели във Facebook Сподели в Google Plus Сподели в Twitter Изпрати на Email Сподели в LinkedIn

SetCombG.com
SetCombG.com е портален сайт и Форум за битова техника, телевизори, климатици, лаптопи и смартфони, създаден през 1999 година.
Заедно сме над 20 години!
Следвай ни
Горе