PDA

Visualizza la versione completa : [VB]Fotografia


BlackDemon
26-11-2002, 21:55
Si può in qualke modo fare una specie di fotografia...Ese: si può fare la fotografia del desktop e salvarla in un .bmp o.jpg????????????????????????????????????????????? ?????????

Johnny_Depp
27-11-2002, 09:34
Forse utilizzando le API è possibile catturare l'immagine
sul desktop

Prova a cercare in questi link:

Tutte ( o quasi) le API

www.allapi.net

Programmi in VB che catturano IMMAGINI

http://planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&txtCriteria=capture+image&optSort=Alphabetical

Johnny_Depp
27-11-2002, 10:08
Forse ho trovato qualcosa

http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=33946&lngWId=1

scarica il file .ZIP

e prova a catturare l'immagine del desktop

P.S. tieni in mente che questo programma cattura
le finestre attive.... quindi per catturare il Desktop
devi (una volta lanciato il programma) cliccare sul desktop
per dargli il FOCUS

BlackDemon
27-11-2002, 15:38
ok grazie funonzia!!! senti x caso sapresti come far aprire il browser sempre in VB e farlo andare direttamente ad una pagina..x esempio www.html.it???????????

Johnny_Depp
27-11-2002, 16:17
Se ho capito bene tu vorresti cliccare (per esempio su una label)
e lanciare una pagina (internet) predefinita tramite il tuo browser:

Se così:

codice del modulo:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const W_SHOWNORMAL = 1

Public Function LanciaBrowser(Handle As Long, Indirizzo As String)
Dim retValue As Long
retValue = ShellExecute(Handle, vbNullString, Indirizzo, vbNullString, "c:\", SW_SHOWNORMAL)
End Function
codice del form:

Private Sub Label1_Click()
'EDITOR DI POSTA PREDEFINITO
'LanciaBrowser Me.hwnd, "mailto:ivan@database.it"
'BROWSER PREDEFINITO
LanciaBrowser Me.hwnd, "http://www.html.it"
End Sub

Loading