Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

11

Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

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 Smile



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 05 Sep 2008
  • Poruke: 204

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????



offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 448
  • Gde živiš: Novi Beograd

Probaj ovo da promenis

FormBorderStyle = FixedSingled

offline
  • Pridružio: 05 Sep 2008
  • Poruke: 204

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

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 448
  • Gde živiš: Novi Beograd

Jel ti Locked=True?

offline
  • Pridružio: 05 Sep 2008
  • Poruke: 204

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

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

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

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

@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!

offline
  • Pridružio: 22 Sep 2008
  • Poruke: 29
  • Gde živiš: Srbija

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

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

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!!! Smile Smile Smile

Ko je trenutno na forumu
 

Ukupno su 1089 korisnika na forumu :: 32 registrovanih, 5 sakrivenih i 1052 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., BORUTUS, darkangel, doktor1964, FileFinder, Georgius, ILGromovnik, jackreacher011011, Još malo pa deda, kolle.the.kid, ladro, Lošmi, Mi lao shu, milutin134, miodrag, Mixelotti, mocnijogurt, nebkv, Parker, Pikac-47, procesor, raptorsi, skvara, Srle993, taz1cl, tmanda323, Toper, Tvrtko I, vathra, Vlada1389, yrraf, zlaya011