Gigi Cornea

CodeArchiver 2.0

admin — Thu, 24 Sep 2009 21:23:11 +0000

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) . (more…)

Organizator

admin — Sun, 06 Sep 2009 20:18:47 +0000

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. (more…)

VB6: Get mouse coordinates in pixels

admin — Sat, 30 May 2009 11:35:05 +0000

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

Show File Properties Dialog Box

admin — Sat, 30 May 2009 11:33:15 +0000

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

Agenda v2.0

admin — Sat, 30 May 2009 11:22:27 +0000

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.

Desktop Wallpaper Changer

admin — Sat, 30 May 2009 10:53:40 +0000

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:

(more…)

VB6: Hide title bar for Forms containing menus

admin — Mon, 25 May 2009 09:50:08 +0000

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.

(more…)

Popup menu on two linked forms

admin — Mon, 25 May 2009 07:25:55 +0000

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 (more…)

VB6: Get external IP address

admin — Sun, 24 May 2009 21:02:59 +0000

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. (more…)

Moving Ball

admin — Sun, 24 May 2009 20:48:24 +0000

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