Тип MSForms.ReturnInteger не определен

@IgorOK14 · Регистрация: 23.03.2015

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

Visual Basic

1
2
3

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If KeyAscii = Asc("R") Then MsgBox("2")
    End Sub

при вводе кода выбивает ошибку Тип MSForms.ReturnInteger не определен
Помогите пожалуйста

@Yury Komar · 22.11.2016, 00:11

IgorOK14, где вы взяли этот код? и на VB.NET ли он? Не на VBA случайно?

Добавлено через 1 минуту
в NET это делает чуть по-другому...

@IgorOK14 · 22.11.2016, 00:17 **[ТС]**

да он на VBA а мне нужно на VB.net
можете сказать как?

Добавлено через 5 минут
да он на VBA а мне нужно на VB.net
можете сказать как?

@Yury Komar · 22.11.2016, 01:39

IgorOK14, на VB.NET это делается вот так:

VB.NET

1
2
3

    Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
        If e.KeyChar = "R" Then MsgBox("2")
    End Sub

@Yury Komar Модератор 4203 / 3287 / 497 Регистрация: 27.01.2014 Сообщений: 6,033
	22.11.2016, 00:11	2
	IgorOK14, где вы взяли этот код? и на VB.NET ли он? Не на VBA случайно? Добавлено через 1 минуту в NET это делает чуть по-другому... 0

@IgorOK14 0 / 0 / 0 Регистрация: 23.03.2015 Сообщений: 8
	22.11.2016, 00:17 [ТС]	3
	да он на VBA а мне нужно на VB.net можете сказать как? Добавлено через 5 минут да он на VBA а мне нужно на VB.net можете сказать как? 0

	22.11.2016, 01:39

Тип MSForms.ReturnInteger не определен

Решение