CallByName функциясы

Нысан әдісін жүргізу, немесе нысан сипатын орнату не қайтару үшін.

Синтаксис

CallByName(Нысан, процессор атауы, шақыру түрі [, дәлелдер()])

CallByName функциясы синтаксисінің төмендегідей дәлелдері бараргумент:

Дәлел

Сипаттама

нысан

Міндетті. Нұсқасы (Нысан). Функция жүргізілетін нысанның аты.

процессор атауы

Міндетті. Нұсқасы (Жол). Сипат атауы немесе нысан әдісі құрамында бар жол өрнегі.

шақыру түрі

Міндетті. Тұрақты мән. Шақырылып тұрған іс рәсіміннің түрін көрсететін vbШақыру түрі түріндегі тұрақты мән.

дәлелдер ()

Қосымша. Нұсқасы (Жиым).


Түсіндірмелер

CallByName функциясы сипатты алу не орнату, немесе жол атын пайдалану арқылы орындау кезінде әдісті белсендіру үшін.

Төмендегі мысалда, бірінші жол CallByName функциясын мәтін ұясының Тінтуір меңзері сипатын орнатуға пайдаланады, екінші жол MousePointerі сипатының мәнін алады, және үшінші жол мәтін ұясын жылжытуға Жылжыту әдісін белсендіреді:

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

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Төмендегі мысал CallByName функциясын түймешіктің Жылжыту әдісін белсендіруге пайдаланады.

Сонымен қатар, бұл мысал (Command1) түймешігі және (Label1) белгісі бар (Form1) пішінін пайдаланады. Пішін қотырылғаннан кейн, белгінің Тақырып сипаты белсендірілетін әдістің, осы жағдайда «Жылжыту», атына орнатылады. Түймешікті басқаныңыздан кейін, 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
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×