Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

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

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 )

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

A to izgleda ovako

http://brksi.on.neobee.net/CDEject.zip

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

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

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

@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

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

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

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

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

Od viska glava ne boli

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

Private sub Form_Load() Timer1.interval=5 Timer2.interval=20000 End sub Private sub Timer1() Label1.caption=Time$ End sub Private sub Timer2() unload me End sub

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

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

Deklaracija:
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long ' Public Const RAS95_MaxEntryName = 256 Public Const RAS95_MaxDeviceType = 16 Public Const RAS95_MaxDeviceName = 32 ' Public Type RASCONN95     dwSize As Long     hRasCon As Long     szEntryName(RAS95_MaxEntryName) As Byte     szDeviceType(RAS95_MaxDeviceType) As Byte     szDeviceName(RAS95_MaxDeviceName) As Byte End Type ' Public Type RASCONNSTATUS95     dwSize As Long     RasConnState As Long     dwError As Long     szDeviceType(RAS95_MaxDeviceType) As Byte     szDeviceName(RAS95_MaxDeviceName) As Byte End Type

Kod:
Public Function IsConnected() As Boolean Dim TRasCon(255) As RASCONN95 Dim lg As Long Dim lpcon As Long Dim RetVal As Long Dim Tstatus As RASCONNSTATUS95 ' TRasCon(0).dwSize = 412 lg = 256 * TRasCon(0).dwSize ' RetVal = RasEnumConnections(TRasCon(0), lg, lpcon) If RetVal <> 0 Then                     MsgBox "ERROR"                     Exit Function                     End If ' Tstatus.dwSize = 160 RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus) If Tstatus.RasConnState = &H2000 Then                          IsConnected = True                          Else                          IsConnected = False                          End If End Function


Pa ako jeste onda iskoristite kod od dejana123 za diskonektovanje

Dopuna: 06 Nov 2005 9:19

Zatvara sve prozore - logoff

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

Kod:
lngResult = ExitWindowsEx(EWX_LogOff, 0&)

Dopuna: 06 Nov 2005 9:25

Ispisuje username korisnika

Deklarisanje:

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

Kod:

Sub Get_User_Name()             Dim lpBuff As String * 25             Dim ret As Long, UserName As String             ret = GetUserName(lpBuff, 25)             UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)             MsgBox UserName    End Sub

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

Context menu

Sigurno mnogi zele da naprave context menu, to nije tesko .
Pomocu menu editora napravite svoj zeljeni menu, ali opciju "Visible" ponistite. U kod forme unesite sledece:
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnucontext menu as a context menu on right-click 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

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

Iz komande na mc

Private Sub Command1_Click() Dim IE As New InternetExplorer     IE.Visible = True     IE.Navigate ("www.mycity.rs") End Sub

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

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