18/06/21 11:31
Carlo
Ultima modifica effettuata da Carlo 18/06/21 11:42
in programmazione tutto è permesso
21/06/21 11:59
Carlo
Ultima modifica effettuata da Carlo 22/06/21 14:29
in programmazione tutto è permesso
04/08/21 9:56
Pino1946
Ciao Carlo,
scusa come sempre per il lungo silenzio, ma ho veramente grossi problemi da risolvere e, se ti chiedi, "allora, come mai perdi tempo col VB ?"
Beh, la risposta è semplice "ogni tanto, ci vuole uno svago e/o qualcosa che ti distragga" !
Tornando al dunque, scaricai il tuo esempio e sicuramente lo trovo ottimo;
il problema è che, essendo exe, è un po' difficile usarlo nel mio progetto ... se mai lo porterò a termine, il progetto !
Però, con calma, ho messo su un progettino che
- crea l'agognato rettangolo/quadrato,
- il rettangolo è posizionabile e ridimensionabile,
- ho inserito anche una piccola funzione per la cattura di parte dello schermo, per chi necessitasse usare l'OCR,
- e, naturalmente, provo ad allegare il progettino per chi ne avesse bisogno.
Se ci sono/saranno domande ... cercherò di rispondere (... cercherò
!
Buona giornata a tutti
Pino
scusa come sempre per il lungo silenzio, ma ho veramente grossi problemi da risolvere e, se ti chiedi, "allora, come mai perdi tempo col VB ?"
Beh, la risposta è semplice "ogni tanto, ci vuole uno svago e/o qualcosa che ti distragga" !
Tornando al dunque, scaricai il tuo esempio e sicuramente lo trovo ottimo;
il problema è che, essendo exe, è un po' difficile usarlo nel mio progetto ... se mai lo porterò a termine, il progetto !
Però, con calma, ho messo su un progettino che
- crea l'agognato rettangolo/quadrato,
- il rettangolo è posizionabile e ridimensionabile,
- ho inserito anche una piccola funzione per la cattura di parte dello schermo, per chi necessitasse usare l'OCR,
- e, naturalmente, provo ad allegare il progettino per chi ne avesse bisogno.
Se ci sono/saranno domande ... cercherò di rispondere (... cercherò
!
Buona giornata a tutti
Pino
aaa
07/08/21 9:17
Carlo
Ottimo!!!
Non mi chiedo nulla, puoi usare tutto il tempo e il linguaggio che vuoi, mi dispiace solamente che non avendo più VB6 installato non ti posso aiutare, e a memoria non ci riesco.
Scusa non ti avevo postato il codice, l'ho riscritto si usa quasi come il tuo, tasto sinistro sposti il rettangolo, tasto destro ridimensioni, C cattura lo schermo, ESC per uscire.
allegato l'eseguibile per vedere cosa fa, salva nello stesso percorso dell'eseguibile.
Non mi chiedo nulla, puoi usare tutto il tempo e il linguaggio che vuoi, mi dispiace solamente che non avendo più VB6 installato non ti posso aiutare, e a memoria non ci riesco.
Scusa non ti avevo postato il codice, l'ho riscritto si usa quasi come il tuo, tasto sinistro sposti il rettangolo, tasto destro ridimensioni, C cattura lo schermo, ESC per uscire.
Public Class Form1
Dim Xq As Short ' coordinate mouse
Dim Yq As Short
Dim bmp As System.Drawing.Bitmap
Private Sub Area_MouseDown(sender As Object, e As MouseEventArgs) Handles Area.MouseDown
If e.Button = MouseButtons.Left Then
Xq = e.X ' coordinata X mouse nell'area, al momento del clic tasto sinistro
Yq = e.Y ' coordinata Y mouse nell'area, al momento del clic tasto sinistro
End If
If e.Button = MouseButtons.Right Then
Me.Cursor = Cursors.Cross
Me.Height = e.Y ' ridimensionamento
Me.Width = e.X ' ridimensionamento
End If
End Sub
Private Sub Area_MouseMove(sender As Object, e As MouseEventArgs) Handles Area.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Top = Me.Top + e.Y - Yq ' trascinamento Y sul desktop
Me.Left = Me.Left + e.X - Xq ' trascinamento X sul desktop
End If
If e.Button = MouseButtons.Right Then
Me.Height = e.Y ' ridimensionamento
Me.Width = e.X ' ridimensionamento
End If
End Sub
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then End
If e.KeyCode = Keys.C Then CatturaSchermo()
End Sub
Sub CatturaSchermo()
bmp = New Bitmap(Area.Width, Area.Height) ' dimensioni bmp, come area trasparente
Dim g As Graphics = Graphics.FromImage(bmp) ' layer grafico
' copia lo schermo in accordo con le dimensioni dell'area
g.CopyFromScreen(Me.Left + 2, Me.Top + 2, 0, 0, New Size(Area.Width, Area.Height), CopyPixelOperation.SourceCopy)
g.Dispose()
bmp.Save("schermo.png")
bmp.Dispose()
End Sub
End Class
allegato l'eseguibile per vedere cosa fa, salva nello stesso percorso dell'eseguibile.
Ultima modifica effettuata da Carlo 07/08/21 19:32
in programmazione tutto è permesso
25/08/21 22:45
Carlo
Ultima modifica effettuata da Carlo 28/08/21 18:15
in programmazione tutto è permesso
')