In sfarsit, cu greu am reusit sa-mi gasesc timp si pentru mult-promisa aplicatie de stocare a bucatilor de cod, aplicatie necesara programmer-ilor. Nu este nici prea complexa insa face ceva ce multe aplicatii nu prea fac.
In primul rand ofera posibilitatea utilizatorului sa isi selecteze metoda de stocare: online (baza de date MySQL) sau local (baza de date Access) . Read the rest of this entry »
Nu am ma postat de ceva vreme pe aici pentru ca am fost destul e ocupat. In ultima vreme nu mai am timp nici de mine….dar cu toate acestea am reust sa fac o aplicatie la cerere, care din punctul meu de vedere este destul de interesanta. Este o aplicatie destul de utila oamenilor din vanzari deoarece isi pot organiza foarte usor timpul si contactele pe care le au, daca au la indemana un PC sau laptop. Read the rest of this entry »
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib “user32″ (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib “user32″ (ByVal hWnd As Long, _
lpPoint As POINTAPI) As Long
‘ Get mouse X coordinates in pixels
‘
‘ If a window handle is passed, the result is relative to the client area
‘ of that window, otherwise the result is relative to the screen
Public Function MouseX(Optional ByVal hWnd As Long) As Long
Dim lpPoint As POINTAPI
GetCursorPos lpPoint
If hWnd Then ScreenToClient hWnd, lpPoint
MouseX = lpPoint.X
End Function
‘ Get mouse Y coordinates in pixels
‘
‘ If a window handle is passed, the result is relative to the client area
‘ of that window, otherwise the result is relative to the screen
Public Function MouseY(Optional ByVal hWnd As Long) As Long
Dim lpPoint As POINTAPI
GetCursorPos lpPoint
If hWnd Then ScreenToClient hWnd, lpPoint
MouseY = lpPoint.Y
End Function
Public Function ShowProps(FileName As String, _
OwnerhWnd As Long) As Boolean
‘USAGE:
‘To show the properties dialog box of “c:\autoexec.bat”, use the following code:
‘Call ShowProps(”c:\autoexec.bat”, Me.hwnd)
‘Function will return false if
‘property windows can’t be shown for
‘any reason (e.g., invalid file or Ownerhwnd)
On Error Resume Next
Dim SEI As SHELLEXECUTEINFO
Dim r As Long
With SEI
.cbSize = Len(SEI)
.fMask = SEE_MASK_NOCLOSEPROCESS Or _
SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
.hwnd = OwnerhWnd
.lpVerb = “properties”
.lpFile = FileName
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
r = ShellExecuteEX(SEI)
ShowProps = r
End Function
Facand curat deunazi prin calculator (lucru, care spre rusinea mea, nu l-am mai facut de vreun an) am dat peste o aplicatie de care uitsem complet. Se pare ca la un moment dat am dezvoltat o alta versiune a aplicatiei Agenda.
Aveti cateva screenshot-uri care vorbesc de la sine:)
Intre timp mi-am adus aminte de ce am construit-o…Vroiam sa o public si sa am o evidenta a userilor ce o vor folosi (cand acestias e inregistrau se crea o noua inregistrare intr-o baza de date mysql aflata pe un server de la munca) dar ulterior pe acest server s-a pus un sistem firewall si nu am mai avut cum sa o public.
De ceva timp sunt abonat pe unele forum-uri iar in unele momente mai stau si eu si raspund altora ca sa ne ajutam reciproc sa crestem. Astfel am dat intr-o seara peste un topic care zicea urmatorul lucru: as dori sa stiu cum pot schimba poza de pe desktop utilizand cod VB. Astfel mi-a trecut ideea prin cap…Din cate stiu exista astfel de soft-uri pe internet insa majoritatea sunt complexe si pe bani. Nu am reusit sa gasesc ceva free. Astfel, plecand de la aceasta idee mi-am construt propria aplicatie care face urmatoarele lucruri:
Am intanit situatii in care am avut nevoie sa ascund bara de title al unui form din diverse motive. Ultima data s-a intamplat cand aveam nevoie sa fac fullscreen o poza (un control Image intr-un form pe care il maximizam). Toate bune si frumoase pana in momentul in care in form-ul respectiv am un meniu. In cazul acesta, bara de titlu nu se ascunde oricat ne-am chinui noi sa modificam setarile formului. Bineinteles, se pot apela si folosi tot felul de functii API si construi algoritmi complexi care sa faca invizibila aceasta bara de titlu.
Lucrand la o aplicatie am dat peste, as putea spune eu, un bug al mediului de dezvoltare VB6. Deregula cand folosim mai multe form-uri avem nevoie ca ultimul form deschis sa fie deasupra celorlalte si celelalte sa nu poate fi actionate. Asta se face foarte usor afisand formul respectiv astfel:
Form1.Show vbModal, Me Read the rest of this entry »
O provocare mare pentru mine a fost de cateva ori sa preiau adresa IP externa (IP-ul cu care este inregistrat fiecare utilizator pentru a folosi internetul). Exista tot felul de functii si controale care reusesc sa citeasca din registri adresa IP a utilizatorului dar totul se complica si mai mult si nu prea exista solutii in cazul in care calculatorul pe care il foloseste userul este intr-o retea locala iar IP-ul extern este rutat. In acest caz nu se poate obtine decat adresa IP a calculatorului, adica adresa locala. Read the rest of this entry »
Google-uid de zor intr-o zi dupa niste bucati de cod VB, am reusit sa dau peste ceva ce mi-a captat atentita. Era ceva de genul: simularea miscarii unui obiect dupa o anumita regula si mi-am propus sa incerc si eu sa fac ceva asemanator si iata ce a iesit dupa numai o ora de munca. Data viitoare imi propun sa simulez miscare dupa o functie.
For download click here
