Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

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

Neznam zasto ali nikako ne uspevam da izmenim OstojaN-ovu poruku i da dodam jos jedan link gde je on okacio source. Za sada ga ja postavljam, a kad resim problem pa cu izmeniti...

http://www.speedyshare.com/944173146.html

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

izvinite, nikako nisam u toku. ja sam napisao novi post i tu postavio link za ovaj moj fajl okacen na speedyshare, a sada je taj post izbrisan. Srki savjetuje da otvorim novu temu...

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

Ja sam pobrisao offtopic oko vaseg dogovora gde ces postaviti tvoj projekat.

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

@ OStojan
Pa otvori jer ovo nije trik ili bilo sta vezano za ovu temu.
@ Biser X
Zasto nemozes izmenis?

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

link adrese: http://www.mycity.rs/Visual-Basic/Ucitavanje-teksta.html#774804


nisam Stojan, nego Ostoja...

Dopuna: 15 Jun 2008 1:44

link nove teme: http://www.mycity.rs/Visual-Basic/Ucitavanje-teksta.html#774804


nisam Stojan, nego Ostoja...

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

Po meni najlaksi nacin da se izvede da program krece zajedno sa windowsom.
Modul:Public Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _ ByVal samDesired As Long, phkResult As Long) As Long Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" _ (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As _ Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal _ hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal _ dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _ (ByVal hKey As Long, ByVal lpValueName As String) As Long Public Enum T_KeyClasses HKEY_CLASSES_ROOT = &H80000000 HKEY_CURRENT_CONFIG = &H80000005 HKEY_CURRENT_USER = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HKEY_USERS = &H80000003 End Enum Private Const SYNCHRONIZE = &H100000 Private Const STANDARD_RIGHTS_ALL = &H1F0000 Private Const KEY_QUERY_VALUE = &H1 Private Const KEY_SET_VALUE = &H2 Private Const KEY_CREATE_LINK = &H20 Private Const KEY_CREATE_SUB_KEY = &H4 Private Const KEY_ENUMERATE_SUB_KEYS = &H8 Private Const KEY_EVENT = &H1 Private Const KEY_NOTIFY = &H10 Private Const READ_CONTROL = &H20000 Private Const STANDARD_RIGHTS_READ = (READ_CONTROL) Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _ KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY _ Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) _ And (Not SYNCHRONIZE)) Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _ KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _ And (Not SYNCHRONIZE)) Private Const KEY_EXECUTE = (KEY_READ) Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _ KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) Private Const REG_BINARY = 3 Private Const REG_CREATED_NEW_KEY = &H1 Private Const REG_DWORD = 4 Private Const REG_DWORD_BIG_ENDIAN = 5 Private Const REG_DWORD_LITTLE_ENDIAN = 4 Private Const REG_EXPAND_SZ = 2 Private Const REG_FULL_RESOURCE_DESCRIPTOR = 9 Private Const REG_LINK = 6 Private Const REG_MULTI_SZ = 7 Private Const REG_NONE = 0 Private Const REG_SZ = 1 Private Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2 Private Const REG_NOTIFY_CHANGE_LAST_SET = &H4 Private Const REG_NOTIFY_CHANGE_NAME = &H1 Private Const REG_NOTIFY_CHANGE_SECURITY = &H8 Private Const REG_OPTION_BACKUP_RESTORE = 4 Private Const REG_OPTION_CREATE_LINK = 2 Private Const REG_OPTION_NON_VOLATILE = 0 Private Const REG_OPTION_RESERVED = 0 Private Const REG_OPTION_VOLATILE = 1 Private Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME _ Or REG_NOTIFY_CHANGE_ATTRIBUTES Or _ REG_NOTIFY_CHANGE_LAST_SET Or _ REG_NOTIFY_CHANGE_SECURITY) Private Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or _ REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or _ REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE) Public Sub DeleteValue(rClass As T_KeyClasses, Path As String, sKey As String) Dim hKey As Long Dim res As Long res = RegOpenKeyEx(rClass, Path, 0, KEY_ALL_ACCESS, hKey) res = RegDeleteValue(hKey, sKey) RegCloseKey hKey End Sub Public Function SetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As _ String, NewValue As String) As Boolean Dim hKey As Long Dim KeyValType As Long Dim KeyValSize As Long Dim KeyVal As String Dim tmpVal As String Dim res As Long Dim i As Integer Dim x As Long res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey) If res <> 0 Then GoTo Errore tmpVal = String(1024, 0) KeyValSize = 1024 res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize) Select Case res Case 2 KeyValType = REG_SZ Case Is <> 0 GoTo Errore End Select Select Case KeyValType Case REG_SZ tmpVal = NewValue Case REG_DWORD x = Val(NewValue) tmpVal = "" For i = 0 To 3 tmpVal = tmpVal & Chr(x Mod 256) x = x \ 256 Next End Select KeyValSize = Len(tmpVal) res = RegSetValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize) If res <> 0 Then GoTo Errore SetRegValue = True RegCloseKey hKey Exit Function Errore: SetRegValue = False RegCloseKey hKey End Function

na formu stavite 2 dugmeta...Jedno dugme ce da zapise u registar a drugo ce da izbrise iz registra.

za pisanje se koristi:
etRegValue HKEY_LOCAL_MACHINE, _ "Software\Microsoft\Windows\CurrentVersion\Run", "proba", App.Path + "\ime.exe"

a za brisanje:DeleteValue HKEY_LOCAL_MACHINE, _ "Software\Microsoft\Windows\CurrentVersion\Run", "proba"

Srecno!!

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

Kako pomocu koda da napravim novi direktorijum u Vb.2005? Prvo da proveri da li postoji, a ako ne postoji da napravi.
Unapred zahvalan

Dopuna: 23 Okt 2008 14:22

Nasao sam:
If System.IO.Directory.Exists(System.AppDomain.CurrentDomain.BaseDirectory & "\Ime direktorijuma") = False Then
System.IO.Directory.CreateDirectory(System.AppDomain.CurrentDomain.BaseDirectory & "\Ime direktorijuma)

Dopuna: 23 Okt 2008 19:40

Kako u comboboxu da ispisem imena svih direktorijuma na odredjenoj lokaciji?

Dopuna: 27 Okt 2008 0:51

Rešio sam i ovaj problem:

Dim files As String() = IO.Directory.GetDirectories(System.AppDomain.CurrentDomain.BaseDirectory)
For index As Integer = 0 To files.GetUpperBound(0) Step 1
files(index) = IO.Path.GetFileNameWithoutExtension(files(index))
Next index
Combobox.DataSource = files

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

Kad kaze :Modul" gde to da stavim? U koji modul sta je to Modul?

Dopuna: 26 Dec 2008 20:16

I da ! napisi lepo sta se sta radi sta se otvori... a ne ovako da se svi zbuneee !!!

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

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

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

Za otvaranje CD-a i zatvaranje
[Link mogu videti samo ulogovani korisnici]