[es] - Potrebno mi je objašnjenje za kod?

bolepks
Nis

Član broj: 233371
Poruke: 426
*.dynamic.isp.telekom.rs.

+1 Profil

^{11.11.2013. u 18:45 - pre 127 meseci}

Sub Document_TextBoxes()

Dim oCtl As InlineShape --------- šta je ovo oCtl

Dim oTB

For Each oCtl In ActiveDocument.InlineShapes ------?

If oCtl.OLEFormat.ProgID = "Forms.TextBox.1" Then--------? znam da je ogički uslov ?

Set oTB = oCtl.OLEFormat.Object

oTB.Text = "Sample Text"

End If

Next

End Sub

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Potrebno mi je objašnjenje za kod?

^{11.11.2013. u 20:00 - pre 127 meseci}

Za početak koristi code tagove [ code] i [/ code] (bez ovog praznog mesta ispred reci "code").

InlineShape je definisan ovde.

Code:
Dim oCtl As InlineShape

oCtl je kontrola (tačnije OBJEKAT) koja nasleđuje osobine InlineShape kontrole (tačnije OBJEKTA).
Slično kao

Code:
Dim i As Integer

znači, tvoje i je sada definisano kao ceo broj i ima sve njegove osobine. (Namerno sam podvukao ovo slično jer je Integer tip podatka, a InteliShape kontrola)

Code:
For Each oCtl In ActiveDocument.InlineShapes

bukvalno znači "za svaki objekat oCtl koji je iz/u ActiveDocument.InlineShapes"

Code:
If oCtl.OLEFormat.ProgID = "Forms.TextBox.1"

"ako je ProdID tog objekta oCtl.OLEFormat jednak "Forms.TextBox.1"

Code:
Set oTB = oCtl.OLEFormat.Object
oTB.Text = "Sample Text"

"podesi oTB da bude objekat oCtl.OLEFormat i dodeli mu vrednost Simple Text

Ne znam kako prostije da ti objasnim, ako misliš ovim da se baviš, moraš da razumeš OOP (objektno orijentisano programiranje) savršeno, inače mrka kapa...

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu