MyCity » Visual Studio -> Visual Basic » Izdvojeno: Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

Napisano na dan: 24.10.2005
2

Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi
Pagination Prethodna strana
Sledeća strana Pagination

Idi na vrh

Poslao: 05 Nov 2005 11:00
Idi na vrh
offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

onda dodaj xxtreman-ov input box koji ce da ti postavi to pitanje
( zaboravio sam da napomenem da je moj primer za one koji imaju samo jedan cd/dvd uredjaj )



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 05 Nov 2005 12:29
Idi na vrh
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4204
  • Gde živiš: U zlatnom kavezu

A to izgleda ovako

[Link mogu videti samo ulogovani korisnici]



Poslao: 05 Nov 2005 12:35
Idi na vrh
offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

@Brksi
To je isto xxtreman uradio( samo sto on nema splash )

Poslao: 05 Nov 2005 14:40
Idi na vrh
offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

@Dejan123
Hehe... znam i sam da izbacim vratanca, ali sam to pitao bas zato sto znam da tvoj kod ne moze da izbaci bilo koji uredjaj i da izbacivanje treba da se radi kao sto je xxtreman napisao... nema kraceg nacina Smile

Poslao: 05 Nov 2005 14:47
Idi na vrh
offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

Mora da postoji... probacu veceras da uradim nesto, pa ako uspem postova cu kod

Poslao: 05 Nov 2005 22:11
Idi na vrh
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4204
  • Gde živiš: U zlatnom kavezu

Dejan123 ::@Brksi
To je isto xxtreman uradio( samo sto on nema splash )

Od viska glava ne boli Laughing

Dopuna: 05 Nov 2005 22:11

Evo jednog kratog ali korisnog koda za izradu digitalnog casovnika. (U skucaju da zelite da iz daljine vidite koliko je sati, pa vam je sat u desnom donjem uglu ekrana suvise stan)

Znaci osim podrazumevane forme, potrebna su: dva tajmera (ako zelite automatsko iskljucivanje, ako ne dovoljan je jedan), jedna labela. U labeli podesite velicunu fonta prema potrebi.

U code editoru

  1. Private sub Form_Load()
  2. Timer1.interval=5
  3. Timer2.interval=20000
  4. End sub
  5.  
  6. Private sub Timer1()
  7. Label1.caption=Time$
  8. End sub
  9.  
  10. Private sub Timer2()
  11. unload me
  12. End sub
Poslao: 06 Nov 2005 09:25
Idi na vrh
offline
  • Pridružio: 24 Mar 2005
  • Poruke: 799
  • Gde živiš: Beograd

Kod za proveru da li ste na net-u (konektovani)

Deklaracija:

  1. Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
  2. Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
  3. '
  4. Public Const RAS95_MaxEntryName = 256
  5. Public Const RAS95_MaxDeviceType = 16
  6. Public Const RAS95_MaxDeviceName = 32
  7. '
  8. Public Type RASCONN95
  9.     dwSize As Long
  10.     hRasCon As Long
  11.     szEntryName(RAS95_MaxEntryName) As Byte
  12.     szDeviceType(RAS95_MaxDeviceType) As Byte
  13.     szDeviceName(RAS95_MaxDeviceName) As Byte
  14. End Type
  15. '
  16. Public Type RASCONNSTATUS95
  17.     dwSize As Long
  18.     RasConnState As Long
  19.     dwError As Long
  20.     szDeviceType(RAS95_MaxDeviceType) As Byte
  21.     szDeviceName(RAS95_MaxDeviceName) As Byte
  22. End Type


Kod:
  1. Public Function IsConnected() As Boolean
  2. Dim TRasCon(255) As RASCONN95
  3. Dim lg As Long
  4. Dim lpcon As Long
  5. Dim RetVal As Long
  6. Dim Tstatus As RASCONNSTATUS95
  7. '
  8. TRasCon(0).dwSize = 412
  9. lg = 256 * TRasCon(0).dwSize
  10. '
  11. RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
  12. If RetVal <> 0 Then
  13.                     MsgBox "ERROR"
  14.                     Exit Function
  15.                     End If
  16. '
  17. Tstatus.dwSize = 160
  18. RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
  19. If Tstatus.RasConnState = &H2000 Then
  20.                          IsConnected = True
  21.                          Else
  22.                          IsConnected = False
  23.                          End If
  24.  
  25. End Function


Pa ako jeste onda iskoristite kod od dejana123 za diskonektovanje Mr. Green

Dopuna: 06 Nov 2005 9:19

Zatvara sve prozore - logoff

Deklarisanje:
  1. Private Const EWX_LogOff As Long = 0
  2. Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

Kod:
  1. lngResult = ExitWindowsEx(EWX_LogOff, 0&)


Dopuna: 06 Nov 2005 9:25

Ispisuje username korisnika

Deklarisanje:

  1. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Kod:

  1. Sub Get_User_Name()
  2.             Dim lpBuff As String * 25
  3.             Dim ret As Long, UserName As String
  4.             ret = GetUserName(lpBuff, 25)
  5.             UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
  6.             MsgBox UserName   
  7. End Sub

Poslao: 06 Nov 2005 09:54
Idi na vrh
offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

Context menu

Sigurno mnogi zele da naprave context menu, to nije tesko Wink .
Pomocu menu editora napravite svoj zeljeni menu, ali opciju "Visible" ponistite. U kod forme unesite sledece:

  1. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. If Button = 2 Then PopupMenu mnucontext
  3. menu as a context menu on right-click
  4. End Sub


Button 2 je desni klik misa, a button 1 levi, logicno

Dopuna: 06 Nov 2005 9:54

Zasto na kraju naredbe nisam stavio "End IF"? zato sto se ono ne stavlja kada se If-then pise u jednom redu ( If naredba Then naredba ), nego samo u slucaju: "If naredba then novi red, naredba, end if"
Za sve ne koji zele da postanu programeri, preporucio bih 2. opciju sa End if

Poslao: 06 Nov 2005 14:29
Idi na vrh
offline
  • Pridružio: 24 Mar 2005
  • Poruke: 799
  • Gde živiš: Beograd

Iz komande na mc

  1. Private Sub Command1_Click()
  2. Dim IE As New InternetExplorer
  3.  
  4.     IE.Visible = True
  5.     IE.Navigate ("www.mycity.rs")
  6. End Sub
Poslao: 06 Nov 2005 15:07
Idi na vrh
offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

Odakle ti to?
p.s. moras da deklarises "New internet explorer" type.

MyCity » Visual Studio -> Visual Basic » Izdvojeno: Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

Ko je trenutno na forumu
 

Ukupno su 1126 korisnika na forumu :: 51 registrovanih, 5 sakrivenih i 1070 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: Avalon015, Balimar, BLACKBIRD201284, Bokiboks, branko87, brause, darkangel, Demi87, DrNeoCortex, Drugsparrow, ElGenius, Frunze, galerija, GandorCC, kaskadija, kolle.the.kid, KUZMAR, Leteća Krofna, ljubsz, lord sir giga, mercedesamg, mikrimaus, milenko crazy north, Mitraljeta, mrkanidja, N95, nevjerna beba, Nikolajevic, nikolapetkovic, niksa517, oldtimer, Orfanelin, Paklenica, pceklic, Povratak1912, radoznao, rodoljub, sekretar, Shajlok, Sirius, Trpe Grozni, Tumansky, ujke, Vanderx, Vlada1389, Vzor50, YugoSlav, Zeljo980, Zoca, Zvonkozvonko, Čivi