Molim vas da pogledate i da mi date neki savet

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

Uloguj se preko Facebooka da bi skinuo fajl:

Napisano: 24 Sep 2009 7:02

Samo brojevi :

Option Explicit Private Sub Form_Load()     OldWindowProc = SetWindowLong( _         Text1.hWnd, GWL_WNDPROC, _         AddressOf NoPopupWindowProc) End Sub ' Dozvoliti samo brojeve Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String     ch = Chr$(KeyAscii)     If Not ( _ (ch >= "0" And ch <= "9") _     ) Then         ' otkazati         KeyAscii = 0     End If End Sub

Dopuna: 24 Sep 2009 7:04

Evo i projekta
https://www.mycity.rs/must-login.png

A projekat cu da ti sredim kad se vratim iz skole. Aj pozdrav

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

Uloguj se preko Facebooka da bi skinuo fajl:

Napisano: 24 Sep 2009 12:52

Evo programa sa malom preradom, sredio sam neke elemente i promenio uvodnu stranu... Pozz
https://www.mycity.rs/must-login.png

Dopuna: 24 Sep 2009 13:52

e i da, ako neko moze da mi kaze najednostavniji kod za slanje e-mail... znao sam ga ali mi je stao mozak i nikako ne mogu da se setim... Ono samo da otvori outlook express za slanje mail sa vec unesenom e-mail adresom na koju treba da se salje...

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub Form_Load()     'KPD-Team 1998     'URL: http://www.allapi.net/     'E-Mail: KPDTeam@Allapi.net     'Send an E-Mail to the KPD-Team     ShellExecute Me.hwnd, vbNullString, "mailto:KPDTeam@Allapi.net", vbNullString, "C:\", SW_SHOWNORMAL End Sub

http://www.experts-exchange.com/Programming/Langua.....84728.html

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

Uloguj se preko Facebooka da bi skinuo fajl:

Evo popravio sam ti vecinu gresaka oko pretrage na koje sam naisao i stavio sam ti onu pocetnu formu ovako ide timer na 2 sekunde ukoliko kliknes na formu otvori se program Ako ima jos neka greska javi nisam imao puno vremena
https://www.mycity.rs/must-login.png

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

Napisano: 28 Sep 2009 19:32

Ok, a mozes da mi kazes sta si sve izmenio, da ja to pogledam, vidim da si na uvodnoj formi izmenio onaj progressbar, ok...

Dopuna: 28 Sep 2009 21:19

@biser-x, jer ovo sve ide u formu, nema nista u modul???

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

Izmenio sam proveru Recimo ne mozes sada da radis search ako nemas upisa u bazi, u slucaju da nemas i korisnik nesto trazi odmah ide greska, takodje sam popravio da kad ne moze da nadje fajl ispise poruku da zeljeni fajl nije nadjen umesto da izbaci gresku...

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

@pavle
Ahm.. Samo razdvojis ovu deklaraciju od ostatka koda. Stavis je gore.