Не срабатывает код в одном текстовом поле

@ASSEI · Регистрация: 18.10.2012

Author24 — интернет-сервис помощи студентам

Ребята подскажите что можно сделать? в этом коде не срабатывает код (подчеркнул) только если закоментароваь код один изних работает.

Visual Basic

Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
    If Spin1.Value > lEndMonthDay Then Spin1.Value = 1
     [U]Text6.Text = Text6.Text + 1
     Text6.Text = Spin1.Value[/U]
End Sub

SoftIce · 12.08.2013, 14:08

Visual Basic

1	Text6.Text = cint(Text6.Text) + 1

Не?

Добавлено через 1 минуту

Сообщение от ASSEI

код один из них работает

Который последний - тот и работает

@ASSEI · 12.08.2013, 14:18 **[ТС]**

не работает

Visual Basic

1	Text6.Text = cint(Text6.Text) + 1

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

SoftIce · 12.08.2013, 14:23

Сообщение от ASSEI

Text6.Text = Text6.Text + 1
Text6.Text = Spin1.Value

Сообщение от ASSEI

а вот вместе они не работают, незнаю что делать

А вместе они и не будут работать, ты уж определись, что хочешь видеть в Text6.Text

По-моему The trick с этим кодом помогал тебе разбираться некоторое время назад
а ты опять накосячил

@ASSEI · 12.08.2013, 14:28 **[ТС]**

почемуто я как то понимал, что есть условия которое выпоняется,

Visual Basic

Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
    If Spin1.Value > lEndMonthDay Then Spin1.Value = 1
       Text6.Text = Spin1.Value
End Sub

но если это условия не выполненно выполняется следующее

Visual Basic

1	[U]Text6.Text = Text6.Text + 1

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

SoftIce · 12.08.2013, 14:33

Сообщение от ASSEI

что есть условия которое выпоняется,

Сообщение от ASSEI

но если это условия не выполненно выполняется следующее

Тогда тебе нужно писать так

Visual Basic

Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
    If Spin1.Value > lEndMonthDay Then '   условие
       Spin1.Value = 1                     '    если условие  выполняется
       Text6.Text = Spin1.Value
    else
       Text6.Text = Text6.Text + 1    '    если условие не выполняется
    end if
End Sub

@ASSEI · 12.08.2013, 14:38 **[ТС]**

получилотак код сработал при таком расположенни

Visual Basic

Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
  [U]  If Spin1.Value > lEndMonthDay Then Spin1.Value = 1: Text6.Text = Spin1.Value[/U]
             Text6.Text = Text6.Text + 1
         
End Sub

Добавлено через 3 минуты
спасибо все работает!!!

@The trick · 12.08.2013, 15:38

Сообщение от ASSEI

Text6.Text = Text6.Text + 1

@ASSEI · 12.08.2013, 15:41 **[ТС]**

я так понял что атк будет не лучшим образом?

morgann55 · 12.08.2013, 19:01

ASSEI, твой последний код дырявый: или добавь выход при выполнении условия

Visual Basic

Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
       If Spin1.Value > lEndMonthDay Then Spin1.Value = 1: Text6.Text = Spin1.Value: Exit Sub
             Text6.Text = Text6.Text + 1
         
End Sub

или сделай через Else, как показал SoftIce

Не срабатывает код в одном текстовом поле

Решение

Решение

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.08.2013, 14:23	4
	Сообщение от ASSEI Text6.Text = Text6.Text + 1 Text6.Text = Spin1.Value Сообщение от ASSEI а вот вместе они не работают, незнаю что делать А вместе они и не будут работать, ты уж определись, что хочешь видеть в Text6.Text По-моему The trick с этим кодом помогал тебе разбираться некоторое время назад а ты опять накосячил 0

@The trick Модератор 9869 / 3776 / 876 Регистрация: 22.02.2013 Сообщений: 5,629 Записей в блоге: 78
	12.08.2013, 15:38	8
	Сообщение от ASSEI Text6.Text = Text6.Text + 1 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	12.08.2013, 15:41 [ТС]	9
	я так понял что атк будет не лучшим образом? 0

	12.08.2013, 19:01