Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

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

Citat:E Ljudi ajde meni recite nesto ini fajlovima. Dobio sam informaciju da ti fajlovi sluze da se cekiranja cuvaju. ako cekiram radiobutton7 i zatvorim program i kada ga startujem da mi to cekiranje bude cekirano. VB 2008

Ne sluze oni za cuvanje cekiranja... Sluze da bi sacuvali neke podakte iz programa, tj. setovanja, podesavanja.

Imas Google, on je tvoj dobar drug... Pitaj ga da ti odgovori

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

Evo jednog pocetnickog pitanja,koje nikako nemogu da provalim?
Da bi mom programu dodao _ (minimized) X(close) koje sam ja dizajnirao a ne windows-ov controlbox uradim sledece:
MaximizeBox = False
FormBorderStyle = FixedSingled
ControlBox = False
Ali sta se desava....kad startujem program i prozor koji mi se pojavi nemogu da ga pomerim.......pls...pomoc????

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

Probaj ovo da promenis

FormBorderStyle = FixedSingled

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

Probao sam,ali nista se ne menja!!??!

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

Jel ti Locked=True?

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

Ma jok nista se ne desava i kad je locked=true i kad je locked=false

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

Lutam as mojim drugarom googlom ali ne mogu da nadjem!! Jako su mi potrebni a ako neko zna neka mi napise!

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

@Jovanovic Slavko
http://www.google.com/search?hl=en&client=fire.....tnG=Search


Citat:-Autor teme je na pocetku napisao "Ovde se mogu stavljati svi trikovi i source kodovi ( kako uraditi/dobiti nesto...) ... ". Stoga se potrudite da iskoristite to sto ima ovde, ostalo trazite na Google, pscode, ili na nekom od ostalih sajtova. Kada pronadjete to sto vam je trebalo, slobodno postavite ovde, koristice nam svima.
-Ukoliko se odlucite da zatrazite pomoc za resavanje vaseg problema, a predhodno niste bili lenji da potrazite na google, postavite zahtev i cekajte da vam neko odgovori. Zahtev opisite sto je detaljnije moguce da bi i odgovor bio sto precizniji.
-Kada odgovarate na zahtev, potrudite se da odgovorite kompletno, da topic ne bi prelazio u raspravu.

Hvala!

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

Uloguj se preko Facebooka da bi skinuo fajl:

@Jovanovic Slavko
evo ja sam iz ovog primera naucio raditi sa ini fajlovima.
mycity.rs/must-login.png

• 1Ovo se svidja korisniku: E.L.I.T.E.
  
  Registruj se da bi pohvalio/la poruku!

Evo i od mene nesto malo za pocetak!!

Ovo radi na Visual basicu 2008, a mozda i sire... Nisam proverio.......

Kod za pisanje texta u bazu:
 Dim imeAs New System.IO.StreamWriter("C:\Ime.txt")         ime.Write(TextBox1.Text)         ime.Close()

Evo kako da citate kreiranu bazu:

 Dim ime As New System.IO.StreamReader("C:\Ime.txt")         Textbox1.Text = "ime.ReadToEnd"

Evo kako da pustite .wav pesmu

 My.Computer.Audio.Play(" >>adresa pesme<<.wav")

Evo nesto i za loging u program...


Prvo bi da deklarisem MsgBox

 Dim message As New Microsoft.VisualBasic.MsgBoxResult

i kod za dugme sa kojim ce te uci u program:
 If Korisnickoime.Text = "Vase korisnicko ime" And Sifra.Text = "Vasa sifra" Then             Me.Hide() '  Linija koda koja ce sakriti loging formu             Form1.Show() ' Linija koda koja ce se izvrsiti ako su ime i sifra ispravni         Else             If Korisnickoime.Text = "Vase korisnicko ime" Then                 message = MsgBox("Uneli ste pogresnu sifru!", 16, "Greska pri ulazu.") ' Linija koda koja pokazije da je uneta pogresna sifra, tip msgboxa >>16<< i title msgboxa!!             Else                 message = MsgBox("Uneli ste pogresno ime!", 16, "Greska pri ulazu.") ' Linija koda koja pokazije da je uneto pogresno ime, tip msgboxa >>16<< i title msgboxa!!             End If               End If

Kod za Openfiledialog

 Dim OpenFileDialog As New OpenFileDialog         OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments         OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"         If OpenFileDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then             Dim open As New System.IO.StreamReader(OpenFileDialog.FileName)             TextBox1.Text = open.ReadToEnd             open.Close()         End If


Kod za savefiledialog

  Dim SaveFileDialog As New SaveFileDialog         SaveFileDialog.Filter = "Text Files (*.txt)|*.txt"         SaveFileDialog.ShowDialog()         If SaveFileDialog.FileName <> "" Then             FileOpen(1, SaveFileDialog.FileName, OpenMode.Output)             PrintLine(1, TextBox1.Text)             FileClose(1)             TextBox1.Text = ""         End If


Kod za promenu boje fonta u textboxu1

 Dim ColorDialog As New ColorDialog         ColorDialog.ShowDialog()         TextBox1.ForeColor = ColorDialog.Color

Kod za promenu pozadine textboxa1
 Dim ColorDialog As New ColorDialog         ColorDialog.ShowDialog()         TextBox1.backcolor= ColorDialog.Color


Kod za promenu fonta u textbox1
 Dim Fontdialog As New FontDialog         Fontdialog.ShowDialog()         TextBox1.Font = Fontdialog.Font

Kod za Cut

 TextBox1.Cut()

Kod za paste

TextBox1.Paste()

Kod za copy

TextBox1.Copy()

Kod za selektovanje celog text u textboxu1

TextBox1.SelectAll()

Kod za undo

 TextBox1.Undo()

Kod za brisanje svog texta u textboxu1

TextBox1.Clear()

Kod za pomeranje fonta u levu stranu

   TextBox1.TextAlign = HorizontalAlignment.Left

Kod za pomeranje fonta u desnu stranu

  TextBox1.TextAlign = HorizontalAlignment.Right

Kod za pomeranje fonta na sredinu

 TextBox1.TextAlign = HorizontalAlignment.Center



Kodovi su mali, sitni... ali dinamitni!!!