Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


litet problem

Postades av 2004-01-05 13:03:31 - Jon Wesström, i forum visual basic - allmänt, Tråden har 11 Kommentarer och lästs av 522 personer

Har gjort en liten och enkel paint klon i Vb 6.0 så nu vill jag göra så att när man trycker på knappen spara så kommer det upp en ny form där man sparar. Denna form vill jag ska se ut som den som kommer upp när man sparar saker i tex paint.
Hur kan jag göra det?


Svara

Sv: litet problem

Postades av 2004-01-05 13:43:37 - Jörgen Lindroos

Det enklaste är att använda en sk. Common Dialog.

Gå till Project->Components.
Checka för Microsoft Common Dialog i listan, tryck OK.
I kontrollpaletten ser du nu en ny ikon. Rita ut kontrollen på formen.

Skriv denna kod där du vill att spara-koden ska vara:
<code>
Dim Filnamn As String
With CommonDialog1
.Filter="Bildfiler (*.bmp)|*.bmp" 'Byt ut bmp till ditt filformat.
.DialogTitle="Spara bildfil." ' Inte riktigt säker på om det ska vara DialogTitle eller bara Title
.ShowSave
Filnamn=.Filename
End With

'Variabeln Filnamn innehåller nu namnet på den filen användaren vill spara som.
Debug.Print Filnamn ' Kolla så det fungerar
</code>

Hoppas det hjälpte dig!
/Jörgen


Svara

Sv: litet problem

Postades av 2004-01-05 20:58:17 - Jon Wesström

Tackar den funkade förutom en liten sak. När jag trycker save så sparar den inte.

En sak till skulle du kunna förklara lite närmare med koden vad allt gör så att jag faktiskt lär mig nåt?


Svara

Sv: litet problem

Postades av 2004-01-05 21:36:45 - Jörgen Lindroos

Denna kod får bara fram filnamnet som användaren vill spara filen som. Sparandet måste du sköta själv. Måste veta lite mer för att hjälpa dig med den saken.

Common Dialog är en kontroll som innehåller en massa vanliga fönster - som namnet antyder.

<code>Dim Filnamn As String</code>
Deklarerar Filnamn som en sträng.

<code>With CommonDialog1</code>
Använder CommonDialog1 som default. Skriver man .nånting används härmed CommonDialog1 som objekt före punkten

<code> .Filter="Bildfiler (*.bmp)|*.bmp" 'Byt ut bmp till ditt filformat.</code>
Spara-fönstrets filter. I den här koden filtrerar jag så att bara BMP-filer syns. För att göra så att användaren också kan välja att se "Alla filer(*.*)" ändrar jag raden till .Filter="Bildfiler (*.bmp)|*.bmp|Alla filer (*.*)|*.*"

<code> .DialogTitle="Spara bildfil." ' Inte riktigt säker på om det ska vara DialogTitle eller bara Title</code>
Fönstrets titel

<code> .ShowSave </code>
Visar spara-fönstret. Andra alternativ är ShowOpen,ShowPrinter,ShowFont osv. Testa lite olika. Programmet kommer inte att gå vidare till nästa rad förrän användaren stängt fönstret genom att trycka spara eller annan knapp. Trycker användaren Cancel uppstår ett fel. Det måste man fånga. Men det är en annan sak, kan vi ta lite senare.

<code> Filnamn=.Filename </code>
Sparar det valda filnamnet in i variabeln Filnamn.

<code>End With </code>
Avslutar With-blocket. Default-objektet är inte längre CommonDialog1

<code>'Variabeln Filnamn innehåller nu namnet på den filen användaren vill spara som.
Debug.Print Filnamn ' Kolla så det fungerar</code>
Helt onödig kod. Det enda den gör är att skriva det valda filnamnet till immidiate-fönstret. Det fungerar fint utan raden

/Jörgen


Svara

Sv: litet problem

Postades av 2004-01-05 21:57:22 - Jon Wesström

Okej då vet jag tack för hjälpen. Jag har använt mig av en picturebox där allt målande sker. alltså måste jag få så att man sparar själva pictureboxen som en bmp/jpeg fil.


Svara

Sv: litet problem

Postades av 2004-01-05 22:43:20 - Tom Granqvist

Hejsan!

Använd den inbyggda funktionen SavePicture(DinPictureBox.picture,"namn.bmp") för att spara till bmp-format.

mvh Burre


Svara

Sv: litet problem

Postades av 2004-01-05 23:22:54 - Jon Wesström

ok men vart ska jag skriva in den koden då? borde la vara nåt i stil med:

Showsave.Click = savePicture(PictureBox1.picture), "rutan där man skrev in namnet.text")


Svara

Sv: litet problem

Postades av 2004-01-06 02:10:11 - Niklas Palmnert

Hej =)

Detta kanske hjälper dig lite...

<code>
Private sub Showsave_click()

Dim Filnamn As String
With CommonDialog1
.Filter="Bildfiler (*.bmp)|*.bmp"
.DialogTitle="Spara bildfil."
.ShowSave
Filnamn=.Filename
End With

SavePicture(PictureBox1.Picture,FilNamn)
End sub
</code>

Men denna kod är inte komplett....du måste även lägga till en hanterar så att användaren kan trycka på "Avbryt/Cancel"
för denna kod gör att bilden sparas oavsätt om du trycker Spara eller på Avbryt


Svara

Sv: litet problem

Postades av 2004-01-06 02:11:42 - Daniel Hermansson

inte snabb nog :(


Svara

Sv: litet problem

Postades av 2004-01-06 14:15:13 - Jon Wesström

Tackar men då jag inte kan nåt alls nästans så... hur skriver man så att den avbryter på avbryt då?

Typ:

Private sub Showsave_click()

Dim Filnamn As String
With CommonDialog1
.Filter="Bildfiler (*.bmp)|*.bmp"
.DialogTitle="Spara bildfil."
.ShowSave
Filnamn=.Filename
End With
If Save.Clicked Then
SavePicture(PictureBox1.Picture,FilNamn)
Else
End
End If
End sub
?


Svara

Sv: litet problem

Postades av 2004-01-07 13:06:19 - Jörgen Lindroos

Om användaren inte trycker på Save utan en annan knapp för att stänga fildialogen uppstår ett sk. CancelError
<code>
Private sub Showsave_click()

Dim Filnamn As String
On Error Goto SaveCancelErr ' Felhanteraren. Ifall något blir fel gå till SaveCancelErr-etiketten
With CommonDialog1
.Filter="Bildfiler (*.bmp)|*.bmp"
.DialogTitle="Spara bildfil."
.ShowSave
.CancelError=True ' Är inte säker på om namnet är rätt. På detta sätt säger jag att jag vill att ett fel ska uppstå ifall användaren avbryter
Filnamn=.Filename
End With

SavePicture(PictureBox1.Picture,FilNamn)
Exit Sub ' Avsluta utan att gå in i felhanteraren
SaveCancelErr:
Exit Sub ' Felhanterarkod
End sub
</code>

Denna kod är egentligen också inkomplett eftersom man måste kolla felnummer, så man vet att det är det felet och inget annat i koden som har hänt.

Det kanske nån annan kan hjälpa till med. Kan inte kolla på den här datorn.

/Jörgen


Svara

Sv: litet problem

Postades av 2004-01-08 14:58:23 - Jon Wesström

Tack.. hinner inte testa koden nu men får försöka senare


Svara

Nyligen

  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 889
27 965
271 778
578
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies