Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

karlos ::Evo i od mene jedan program sa rotacijom u 3D
https://www.mycity.rs/must-login.png
Svaka cast, ti si to detaljnije uradio od mene, bravo.
Jedna primedba, pri starovanju tvog vbp fajla program prijavljuje gresku:
Path not found:'c:\VBPROG~....

Izbegavaj da ucitavas formu sa neke lokacije u vbp fajl, kao npr. ovako
Form=..\..\VBPROG~1\Kocka\Kocka.frm u tvom vbp fajlu

Prijateljski savet: project, formu, klasu..., sve snimaj u neki folder koji pre toga izaberes i ovo se nece desiti.

Prepravio sam samo tvoj vbp fajl za druge korisnike da ne bi imali problema i sve stavio u zip:
https://www.mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

rgdrajko ::
Jedna primedba, pri starovanju tvog vbp fajla program prijavljuje gresku:
Path not found:'c:\VBPROG~....

Izbegavaj da ucitavas formu sa neke lokacije u vbp fajl, kao npr. ovako
Form=..\..\VBPROG~1\Kocka\Kocka.frm u tvom vbp fajlu

Prijateljski savet: project, formu, klasu..., sve snimaj u neki folder koji pre toga izaberes i ovo se nece desiti.

Prepravio sam samo tvoj vbp fajl za druge korisnike da ne bi imali problema i sve stavio u zip:



Sve sam stavio u isti folder.
Verovatno je greska negde u Visual Basic-u. Ja inace koristim verziju 5.0

Probao sam preptavljeni vbp fajl i prijavljuje mi gresku:
'Retained is an invalid key'

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ok Karlos, ja koristim VB6, predji na VB6 mnogo je bolji.
Pozdrav, Rajko

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako recimo imate neki string data = " test " i zelite da se resite ovih silnih razmaka sa jedne i sa druge strane mozete to uraditi na sledeci nacin:

temp = trim(data) data = temp

Zelite li korisnika da obavestite zvucnim signalom? To mozete uraditi ovako:


Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub cmd1_Click() beep 500, 40 End Sub

Ako zelite da pomerite formu2 iznad forme1 ali ne i iznad ostalih programa upisite ovaj code:

Form2.ZOrder 0

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako se ne varam ova f-ja aktivira pc speaker u kucistu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da, to je za beeper u kucistu. Mada meni beepuje i na zvucnike.. valjda zbog zvucne kartice i maticne.

Pretrazivanje liste:

Nekada sam radio ovkao:

Dim i As Integer i = 0 Do While i < List1.ListCount List1.ListIndex = i If List1.Text = neki_string Then.... i = i + 1 Loop

ali to ume da nervira ako imate puno itema u listi. Onda vidite kako selektuje redom svaki item i mzoe da prekine neku operaciju koju je korisnik zadao... Tako da ovo ne valja...

Ovo je po meni vise ispravno:

Dim i As Integer i = 0 Do While i < List1.ListCount If List2.List(i) = neki_string Then ..... i = i + 1 Loop

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

dubu ::Kako pomocu VB-a sakriti i prikazati TaskBar?


kako sakriti kursor?

u modulu:

Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)

u komandi:

Private Sub sakri_Click() ShowCursor (False) End Sub Private Sub vrati_Click() ShowCursor (True) End Sub


Novak Bulajic
2006
nbulajic@yahoo.com

E da li se to skrivanje moze napraviti kao neki fajl, znaci cim kliknem na ikonicu da mi sakrije kursor?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napravis ga kao exe fajl...?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

A kako se to radi?

Dopuna: 13 Dec 2007 23:03

biser-x ::Napravis ga kao exe fajl...?

Mozda se nismo najbolje sprazumeli, ja ga napravim kao exe fajl, ali on radi samo u oblasti njegovoj ga odem na neki drugi program ili na dekstop nece... kako da napravim samo fajl znaci kad kliknem na njega da nestena kursor svugde?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Tako radi Windows. Ranije verzije su dozvoljavale da sakrijes kursor za celo okruzenje, ali, koliko znam, sada to vise ne moze da se uradi... bar ne funkcijom ShowCursor.

P.S.
ShowCursor pamti koliko puta je kursor sakriven ili pokazan. Ako 5 puta pozoves funkciju da sakrije kursor, moras je pozvati 5 puta da ga pojavi da bi se on stvarno pojavio.