Функция CallByName

Важно : Тази статия е преведена машинно – вижте отказа от отговорност. Английската версия на тази статия за справка можете да намерите тук .

Изпълнява метод на обект или задава или връща свойство на обект.

Синтаксис

CallByName () обект , procname, calltype [, опцията()])

Синтаксисът на функцията CallByName има следните аргументи:

Аргумент

Описание

обект

Изисква се. Вариант (Обект). Името на обекта, върху който ще бъде изпълнена функцията.

procname

Изисква се. Вариант (Низ). Израз на низ, съдържащ името на свойство или метод на обекта.

calltype

Изисква се. Постоянни. Константа на тип vbCallType представляващо типа на процедура се нарича.

опцията ()

По желание. Вариант (Масиви).


Забележки

Функция CallByName се използва да получите или да зададете свойство или да извикате метод по време на изпълнение, като използвате името на низ.

В следващия пример първият ред използва CallByName , за да зададете свойството MousePointer на текстово поле, втори ред получава стойността на свойството MousePointer и третия ред извиква Преместване метод за преместване на текстово поле:

CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100

Пример

Забележка : Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.

Този пример използва функцията CallByName да извикате метода за Преместване на команден бутон.

Пример също използва формуляр (Form1) с един бутон (Command1) и етикет (Label1). При зареждане на формуляра, свойството надпис на етикета е зададено с името на метода, за да извикате, в този случай "Премести". Когато щракнете върху бутона, функция CallByName извиква метод за промяна на местоположението на бутона.

Option Explicit
Private Sub Form_Load()
Label1.Caption = "Move"' Name of Move method.
End Sub
Private Sub Command1_Click()
If Command1.Left <> 0 Then
CallByName Command1, Label1.Caption, vbMethod, 0, 0
Else
CallByName Command1, Label1.Caption, vbMethod, 500, 500
End If

Забележка : Отказ от отговорност за машинен превод: Тази статия е преведена от компютърна система без човешка намеса. Microsoft предлага тези машинни преводи, за да помогне на потребителите, които не говорят английски, да се възползват от съдържанието за продукти, услуги и технологии на Microsoft. Тъй като статията е преведена машинно, е възможно да съдържа грешки в речника, синтаксиса и граматиката.

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×