Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
I need somebody ... help, cantava qualcuno tempo fa.
Di nuovo non riesco a vedere l'allegato: nè con Firefox, nè con Chrome, nè con Tor e dovrei di nuovo ... !
Ho tentato anche con le impostazioni dei browser ... niente !
Un qualche consiglio/trucco ?
In ritardo ma credo di aver capito, hai aperto il forum in modalità "mobile" guarda se nel percorso c'è https://m.:
https://m.pierotofy.it (questo non va bene su pc, devi cliccare versione classica)
oppure clicca questo link:
http://www.pierotofy.it/pages/extras/forum/6/1044622-salva ... e la tua discussione si apre completa.
Quando vuoi risalire clicca l'aquila in alto a sinistra.
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ò) !
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.
Codice sorgente - presumibilmente VB.NET
PublicClass Form1
Dim Xq As Short ' coordinate mouse
Dim Yq As Short
Dim bmp As System.Drawing.Bitmap
PrivateSub Area_MouseDown(sender AsObject, e As MouseEventArgs)Handles Area.MouseDown
If e.Button= MouseButtons.LeftThen
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
EndIf
If e.Button= MouseButtons.RightThen
Me.Cursor= Cursors.Cross
Me.Height= e.Y' ridimensionamento
Me.Width= e.X' ridimensionamento
EndIf
EndSub
PrivateSub Area_MouseMove(sender AsObject, e As MouseEventArgs)Handles Area.MouseMove
If e.Button= Windows.Forms.MouseButtons.LeftThen
Me.Top=Me.Top+ e.Y- Yq ' trascinamento Y sul desktop
Me.Left=Me.Left+ e.X- Xq ' trascinamento X sul desktop
EndIf
If e.Button= MouseButtons.RightThen
Me.Height= e.Y' ridimensionamento
Me.Width= e.X' ridimensionamento
EndIf
EndSub
PrivateSub Form1_KeyDown(sender AsObject, e As KeyEventArgs)HandlesMyBase.KeyDown
If e.KeyCode= Keys.EscapeThenEnd
If e.KeyCode= Keys.CThen CatturaSchermo()
EndSub
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()
EndSub
EndClass
allegato l'eseguibile per vedere cosa fa, salva nello stesso percorso dell'eseguibile.
per i motivi ai quali accennavo, per il momento ho dovuto abbandonare il progetto ... fa niente, gli amici non piangeranno !
Al riguardo del tuo esempio, non riesco a farlo funzionare per bene:
- lo spostamento (tasto sx) non funge,
- il ridimensionamento (tasto dx) nemmeno,
- la cattura dello schermo, anche se con coordinate "diverse", funge ed ESC pure (vedi allegato).
Grazie, dopo la tua comunicazione, ho provato il programma su Win7 64bit, non ho riscontrato problemi.
Sia il tasto sinistro del mouse = muove il rettangolo, che il tasto destro del mouse = ridimensiona il rettangolo, funzionano correttamente.
Il programma l'ho anche testato su Win7 32bit e Win10 64bit.
Ho modificato il programma per renderlo in linea con la modalità operativa di win.
Ora il rettangolo si ridimensiona agendo sui bordi e si sposta quando è visualizzata la mano, in più con le frecce si può posizionare e ridimensionare con precisione al pixel, ecco la leggenda:
M = menù ON/OFF
C = cattura schermo (percorso eseguibile + schermo.png)
ESC = termina programma
Frecce = posizione rettangolo
Frecce+shift = dimensione rettangolo
MouseSx = posizione rettangolo o dimensione se si è sui bordi
rotellina = posizione verticale rettangolo
rotellina+middle = posizione orizzontale rettangolo
B = bordino ON/OFF
allegato eseguibile 32bit, Framework 4, gradita conferma di funzionamento.
Vista la quasi completa stesura, pubblicherò a breve un progetto in C#: "OCR From Screen"
Pino1946 ha allegato un file: VB6 - Rettangolo su Desktop.zip (12993 bytes)
Pino1946 ha allegato un file: schermo.png (6567 bytes)
')