Почему type mismatch?

@MayaNash · Регистрация: 24.08.2011

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

Есть у меня форма gameForm, и есть на ней 9 кнопок, при клике на которые выполняются одинаковые действия, соответственно вынесенные в отдельную функцию.

Вот эта функция:

Visual Basic

Private Sub fieldClick(but As CommandButton)
    If but.Caption = "" Then
        butCaption = userPlaysFor
        checkForGameEnd
    End If
End Sub

И вот как вызывается эта функция при нажатии на кнопки:

Visual Basic

1
2
3

Private Sub but00_Click()
    fieldClick (but00)
End Sub

Но почему-то происходит ошибка "type mismatch" при попытке вызова fieldClick. Почему?
P.S. Файл с макросами прикреплен, макрос называется Task_9_button

@pashulka · 26.10.2016, 14:10

Посмотрите, что Вы пытаетесь передать и вопрос исчезнет.

Visual Basic

Private Sub fieldClick(but)
    MsgBox TypeName(but)
End Sub
 
Private Sub but00_Click()
    fieldClick but00
    fieldClick (but00)
End Sub

@Казанский · 26.10.2016, 14:10

Керра, F1 - Call Statement

Visual Basic

1
2
3

    fieldClick but00
'или
    Call fieldClick(but00)

@MayaNash · 26.10.2016, 14:25 **[ТС]**

Казанский, благодарю

Нужно было по-быстрому "что-нибудь" сделать на VBA, времени на изучение ноль))
Не подскажете еще почему в комбобоксе ничего не видно? Я добавила туда строки "Х" и "О", видно что есть две строки, а текста нету, хотя цвет текста черный + значения по умолчанию, которое я выставила в Text тоже нету

@Казанский · 26.10.2016, 14:54

Сообщение от Керра

почему в комбобоксе ничего не видно?

Фонт хитрый, если поставить Arial, то все видно

@MayaNash · 26.10.2016, 14:59 **[ТС]**

Казанский,

Почему type mismatch?

Решение

Решение

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	26.10.2016, 14:25 [ТС]	4
	Казанский, благодарю Нужно было по-быстрому "что-нибудь" сделать на VBA, времени на изучение ноль)) Не подскажете еще почему в комбобоксе ничего не видно? Я добавила туда строки "Х" и "О", видно что есть две строки, а текста нету, хотя цвет текста черный + значения по умолчанию, которое я выставила в Text тоже нету 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	26.10.2016, 14:54	5
	Сообщение было отмечено MayaNash как решение Решение Сообщение от Керра почему в комбобоксе ничего не видно? Фонт хитрый, если поставить Arial, то все видно 1

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	26.10.2016, 14:59 [ТС]	6
	Казанский, 0