VBA Как изменить BG?

[Fakeme]

Нужно сделать что бы при нажатии на кнопку, бграуд кнопки менялся.. причем сделать это так, что бы он менялся по кругу..скажем 1 картинка при клике сменилась на 2ую, при повторном клике 2ая меняется на первую..и т.д

пробовал так, но не выходит..выдает ошибку : "Ошибка 1 Оператор "=" для типов "System.Drawing.Image" и "System.Drawing.Bitmap" не определен. C:\Users\Пользователь\Desktop\рассп исание2\WindowsApplication1\Windows Applicatio n1\Form1.vb 73 12 WindowsApplication1"

моя версия:

Private SUB Button1_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles 
IF Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.Презентация1 THEN
 
Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.x_0c89e119
 
ELSE
 
IF Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.Презентация1
END IF
END SUB

В чем проблема?

[doober]

Вы не в ту ветку написали.
дебагер все верно говорит котлеты отдельно.мухи отдельно

при инициализации

me.Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.x_0c89e119

me.Button1.BackgroundImage.tag=1

Private SUB Button1_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles 
IF Button1.BackgroundImage.tag=1  THEN
 
Button1.BackgroundImage=WindowsApplication1.My.Resources.Resources.Презентация1
  Button1.BackgroundImage.tag=2
ELSEIF  Button1.BackgroundImage.tag=2   THEN
me.Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.x_0c89e119

me.Button1.BackgroundImage.tag=1
END IF

END SUB

[Fakeme]

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

Вы не в ту ветку написали.
дебагер все верно говорит котлеты отдельно.мухи отдельно

при инициализации

me.Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.x_0c89e119

me.Button1.BackgroundImage.tag=1

Private SUB Button1_Click(BYVAL sender AS SYSTEM.Object, BYVAL e AS SYSTEM.EventArgs) Handles 
IF Button1.BackgroundImage.tag=1  THEN
 
Button1.BackgroundImage=WindowsApplication1.My.Resources.Resources.Презентация1
  Button1.BackgroundImage.tag=2
ELSEIF  Button1.BackgroundImage.tag=2   THEN
me.Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.x_0c89e119

me.Button1.BackgroundImage.tag=1
END IF

END SUB

Спасибо, ошибку теперь не выдает.

Но и собственно не работает код почему-то..при нажатии не меняется БГ.

а это с чем связано может быть?

[Fakeme]

А все извиняюсь, проблему решил сам:

If Button1.BackgroundImage.Tag = 2 Then

            Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.Презентация1
            Button1.BackgroundImage.Tag = 1
        ElseIf Button1.BackgroundImage.Tag = 1 Then
            Me.Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.x_0c89e119

            Me.Button1.BackgroundImage.Tag = 2
        End If
        If Button1.BackgroundImage.Tag = 2 Then

            Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.Презентация1
            Button1.BackgroundImage.Tag = 2
        Else
            Me.Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.x_0c89e119

            Me.Button1.BackgroundImage.Tag = 1
        End If

все работает. Правда пришлось поставить 2 условия.
спасибо.

[doober]

Я же вам писал,при инициализации задать Tag
В этой процедуре

    Public Sub New()
        InitializeComponent()
  Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.Презентация1
            Button1.BackgroundImage.Tag = 1
    End Sub

Или в этой

    Private Sub InitializeComponent()
-------------------
  Button1.BackgroundImage = WindowsApplication1.My.Resources.Resources.Презентация1
            Button1.BackgroundImage.Tag = 1
-----------------------

    End Sub