Visual Basic for Applications
uređuje Dragan Grbić

Bookmark and Share
Matična strana sajta
  Novo na sajtu
  Mapa sajta
  Beleške
  Kontakt
  Pretraga MSKB

 Blog Praktikuma
  RSS feed
  P@W @Tw

  Izvezi stranicu u PDF
 
Office Praktikum

VBA: ima još...
 


Skoro svakodnevno slušamo
  Radio Paradise:
  eklektični muzički online radio bez reklama!
 

 
       

Sponzori sajta

SBB CS 1.6 game server: 82.117.200.1
 
Connectivity by SBB

 
Suština pasijansa
Suština pasijansa
 


 

Informacije

NOVOSTI

I još dva nova priloga o Excelu
Novi prilozi o Wordu
Novi i prilozi u temi "razno o Officeu"
Novi članci o novostima u Officeu 2010!

SADRŽAJI ZA PREUZIMANJE

Lokalizacija Total Commandera 7.51Obe jezičke školjke za popularni program na srpskom sad funkcionišu u bilo kojoj varijanti Windowsa!
RNDalica.ExcelDodatak za Excel 2007/2010 za generisanje slučajnih podataka!
YuConv.ExcelDodatak za Excel 2007/2010 za konverziju pisama!
YuConvNetDodatak za Word 2007/2010 za konverziju pisama i kodnih rasporeda!

SKREĆEMO PAŽNJU

Kako pretraživati MSKB
a pronaći ćete i još mnogo novih sadržaja...

KONTAKT

Da li znate za pravila koja važe pri kontaktu sa nama? Molimo vas da se obavestite o tome!
 
POZIVAMO VAS

i prenesite svoja iskustva. Najbolji prilozi će biti objavljeni.

  (C) 2000-2010 Praktikum na Webu
 

Igrate li se?

Nivo:  NIVO 2 - klinite za objašnjenje


Na primeru programiranog "Velikog Brata" otkrijte kako se kontrolišu .

Nema ničega lošeg u tome da se ponekad opustite uz neku igru na računaru, ali neki u tome ponekad preteruju, što nije primereno radnom mestu. Evo jednog "neozbiljnog" priloga u kome možete naučiti i ozbiljne tehnike programiranja događaja u VBA. Proučite priloženi listing, a za vežbu - malo se našalite sa svojim kolegama!

Scenario u primeru predviđa da "krivac" igra pasijans, a ima otvoren neki dokument u Wordu kojim preklopi prozor igre ako se neko pojavi. Nakon izvršenja procedure VelikiBrat(), lov počinje...

Public Function IgraSe(igra As String) As Boolean
IgraSe = Tasks.Exists(igra)
End Function


Sub IgraPasijans()

If IgraSe("Solitaire") Then
    MsgBox "Trebalo bi da radite, a ne da se igrate!",_
       vbCritical And vbSystemModal, _
       "VELIKI BRAT TE POSMATRA!"
    Application.OnTime _
       When:=Now + TimeValue("00:00:20"), _
       Name:="IgraPasijans"
End If

End Sub

' ova procedura inicira praćenje prisustva igre;
' mora biti startovana ručno ili automatski (Auto_Open)
Sub VelikiBrat()

Application.OnTime _
   When:=Now + TimeValue("00:00:20"), _
   Name:="IgraPasijans"

End Sub

 

  (C) 2000-2011 Praktikum na Webu

PC 40


 
 

Vrh stranice  Prethodna stranica  Naslovna strana  Mapa sajta  Pretraga

AFORIZAM ZA DANAS OVIH DANA SLUŠAMO...

Copyright © Praktikum na Webu, 2000-2011; Valinor Design; sva prava pridržana.