kostenloser Webspace werbefrei: lima-city

screenshut als bild abspeichern

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   speckuntu

   

   speckuntu hat kostenlosen Webspace.

   17:11, 19.1.2008

   wie kann ich in vb6 einen screenshoot als bild abspeichern
   ich entschuldige mich für meinen rechtschreibfehler in titel
   
   Beitrag geändert: 19.1.2008 17:13:34 von speckuntu

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. valuser

   

   valuser hat kostenlosen Webspace.

   17:29, 19.1.2008

   http://www.gidf.de/vb6+screenshot+speichern
   Erster Link:
   http://www.vbarchiv.net/archiv/tipp_997.html
   
   Das habe ich schon ausprobiert, es funkioniert!
   
   Frage:
   Kann ich gespeicherte Bilder (oder besser - nicht gespeicherte Bilder (siehe link)) per winsock verschicken und am Client in einem Picture-Element anzeigen lassen. Dafür wäre eine kompression/verkleinerung sinnvoll. gibt es einen code (vb6), um Screenshots auf ca. 500kB zu reduzieren
   
   lg
   Vali

4. g*c

   19:00, 25.3.2008

   Hier fertiger Code:
   

   Public Partial Class MainForm
   	Public Sub New()
   		Me.InitializeComponent()
   	End Sub
   	
       Function ScreenToPicture(ByVal Location As String, ByVal Format As System.Drawing.Imaging.ImageFormat) As String
           Try
           	Dim i As Integer = 1
           	While i < System.Int32.MaxValue
           		If IO.File.Exists(\"Screenshot\" & i & \".jpg\") Then
           			i += 1
           		Else
           			Exit While
           		End If
           	End While
               Dim currentScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
               Dim ScreenToBitmap As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
               Dim gGraphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ScreenToBitmap)
   
               gGraphics.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreenSize)
   
               \' Screenshot speichern
               Location = Location & i & \".jpg\"
               ScreenToBitmap.Save(Location, Format)
   
               \' Screenshot in Zwischenablage kopieren
               Clipboard.SetImage(ScreenToBitmap)
   
               Return Location
   
   		Catch ex As Exception
               Return ex.Message
           End Try
   
       End Function
   	
   	Sub BtnScreenClick(ByVal sender As Object, ByVal e As EventArgs)
   		 ScreenToPicture(\"Screenshot\", System.Drawing.Imaging.ImageFormat.Jpeg)
   	End Sub
   End Class

   
   
   Des nummeriert die Screens auch gleich durch

5. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   0:09, 26.3.2008

   Dazu ist anzumerken, dass die Antwort von gcc sich wieder auf VB .Net und nicht auf VB 6 bezieht. Für VB 6 haben wir auch schon eine Lösung (siehe weiter oben).

6. hamachi-mp

   hamachi-mp hat kostenlosen Webspace.

   15:49, 15.11.2008

   danke für den tip, hab ich auch schon gesucht

7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?