VB Primjeri

[Davaa]

Visual Basic 2008/NET - Tutorials - By Coop aka Dava
------
Ove tutove sam pravio oko pola sata, moguce je da ce bit pogresaka i u programiranju i u tekstu, ako naletite na neku pogresku obavjestite me.
Mozda ove primjere noobare nece shvatit al potrudite se...

U slucaju da vam se pojavi ovaj smajl to znaci da je u kodu ovaj tekst ; ) samo sto je spojen pa napravi smajl...
VB 1- Task Tray
Pokrenimo VB, odaberimo Windows Form Application te mu dajmo neko ime.
Iz ToolBoxa odaberimo NotifyIcon te ga prebacimo na lice aplikacije nakon cega ce se on spustit na dno.
http://img223.imageshack.us/img223/222/v...fyicon.png
Nakon toga iz ToolBoxa uzmimo ContextMenuStrip te ga stavimo u aplikaciju nakon cega ce se on sam prebacit na vrh aplikacije kao neki gornji menu.
http://img177.imageshack.us/img177/8765/...ustrip.png
Kliknimo na njega te u njegovim opcijama ( obicno budu sa desne strane ), dodajmo mu ime: menu
Nakon toga kliknimo na NotifyIcon te ga u postavkama postavimo kao na slici
http://img269.imageshack.us/img269/7474/...onprop.png

Kliknite na ContextMenuStrip i dodajte komandu Izlaz
http://img140.imageshack.us/img140/9550/vb08cmumain.png
Kada ste dodali komandu, dva puta kliknite na nju i u editoru upisite End
Sada se vratite na dizajn aplikacije, dva puta kliknite na aplikaciju nakon cega ce vam izbacit editor, postavite ovaj kod:

Code:

trayIcon.Icon = Me.Icon
trayIcon.Visible = True
trayIcon.ShowBalloonTip(100, "Task Tray", "Pozdrav!", ToolTipIcon.Info)

VB 2- Comp komande
Pokrenimo Windows Form Aplikaciju sa bilo kojim imenom.
Dodajte 3 button-a ( gumba )te ih po redu imenujte:
Log off
Restart
ShutDown
Zatim dupli klik na aplikaciju nakon cega ce vam se otvorit editor, iznad Public Class frmMain dodajte:

Code:

Imports Microsoft.Win32

Nakon toga ispod Public Class frmMain dodajte:

Code:

Dim Startup As Microsoft.Win32.RegistryKey = _
Registry.CurrentUser.CreateSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")

Evo slika:
http://img140.imageshack.us/img140/3728/...aydecs.png
Zadnje sto nam je preostalo je dodati komande gumbima.
Dupli klik na Log off i dodajte ovaj kod:

Code:

System.Diagnostics.Process.Start("Shutdown", "/L")

Dupli klik na Restart i dodajte ovaj kod:

Code:

System.Diagnostics.Process.Start("Shutdown", "/R")

Dupli klik na ShutDown i dodajte ovaj kod:

Code:

System.Diagnostics.Process.Start("Shutdown", "/S")

VB 3- Console aplikacija
Pokrenimo VB.
Umjesto Windows Form Application odaberite Console Application i dajte joj ime
Consola.
Pojavit ce vam se editor bez ikakvog dizajna sto je normalno.
U Properties box-u gdje je File Name stavite: main.vb
Ubacite ovaj kod:

Code:

Dim Output As String
Output = "Informacije o compu" & vbCrLf & vbCrLf
For Each Item As System.IO.DriveInfo In My.Computer.FileSystem.Drives
  If Item.IsReady Then
      Output = Output & "Disk:" & Item.VolumeLabel & "(" & Item.Name & ") Prostor " _
      & Item.TotalFreeSpace & ") Velicina (" & Item.TotalSize & ")" & vbCrLf
  End If
Next
For Each Item As Environment.SpecialFolder In [Enum].GetValues(GetType(Environment.SpecialFolder))
  Output = Output & "Specijalna datoteka:" & _
  [Enum].GetName(GetType(Environment.SpecialFolder), Item) _
  & " (" & Environment.GetFolderPath(Item) & ")" & vbCrLf
Next
Output = Output & "Memorija (Psihicka):" & My.Computer.Info.AvailablePhysicalMemory & _
" of " & My.Computer.Info.TotalPhysicalMemory & vbCrLf
Output = Output & "Memorija(Virtualna):" & My.Computer.Info.AvailableVirtualMemory & _
" of " & My.Computer.Info.TotalVirtualMemory & vbCrLf
Output = Output & "Operaciski sistem:" & My.Computer.Info.OSFullName & _
" Version " & My.Computer.Info.OSVersion & vbCrLf
Output = Output & "Comp:" & My.Computer.Name & vbCrLf
Output = Output & vbCrLf & vbCrLf & "Varijable" & vbCrLf & vbCrLf
For Each Item As DictionaryEntry In Environment.GetEnvironmentVariables
  Output = Output & Item.Key & ":" & Item.Value & vbCrLf
Next
Console.Write(Output)
Console.Read()

VB 4- Copy/Move/Delete Komande
Pokazat cu vam par primjera ali necu o tome mnogo pisat jer mi se cisto neda mozda neki drugi put ili editujem...
Kod za kopiranje filea:

Code:

Dim FileToCopy As String
Dim NewCopy As String

FileToCopy = "C:\vamo-tamo.txt"
NewCopy = "C:\tamo-vamo.txt"

If System.IO.File.Exists("vamo-tamo.txt") = True Then
System.IO.File.Copy("vamo-tamo.txt", "tamo-vamo.txt")
MsgBox("Datoteka kopirana!")
End If

Znaci to je bio kod koji ce ako uspije taj file kopirat, on ce nas obavjestit sa porukom: "Datoteka kopirana!". U slucaju da je nebude nece se nista desit, ali vi to mozete stavit sa ELSE komandom... Ako zelite da vam nepokaziva poruku samo izbrisite

Code:

komandu msgboxa ( MsgBox("Datoteka kopirana!") )

Kod za brisanje:

Code:

Dim FileToDelete As String

FileToDelete = "C:\izbrisi-me-sreco.txt"

If System.IO.File.Exists(izbrisi-me-sreco.txt) = True Then

System.IO.File.Delete(izbrisi-me-sreco.txt)
MsgBox("Datoteka izbrisana!")

End If

Kod za pomicanje datoteka ( move ) :

Code:

FileToMove = "C:\mici-me.txt"
MoveLocation = "C:\folder-koji-sluzi-za-premjestaj\mici-me.txt"

If System.IO.File.Exists(mici-me.txt) = True Then
System.IO.File.Move(mici-me.txt, C:\folder-koji-sluzi-za-premjestaj\mici-me.txt)
MsgBox("Datoteka Prebacena!")
End If