*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Update next problem: probs met savefiledialog  (gelezen 2149 keer)

0 leden en 1 gast bekijken dit topic.

Offline killahbee

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
  • Oplossing.be
Update next problem: probs met savefiledialog
« Gepost op: 30 mei 2008, 10:26:19 »
Hoi,

We moeten dus een programmatje schrijven voor school.
Daarin zit een soort van telmachine verwikkeld.
Nu is mijn vraag of hier iemand de code weet, dat als je een getal intikt, om enkel het laatste cijfertje te wissen?

Indien nodig, is dit de code van het telmachinetje:
Private Sub buttondigit_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEen.Click, btnTwee.Click, btnDrie.Click, btnVier.Click, btnVijf.Click, btnZes.Click, btnZeven.Click, btnAcht.Click, btnNegen.Click, btnNul.Click
        txtAantal.AppendText(CType(sender, Button).Text)
    End Sub

alvast bedankt!
Gelogd
0UY141 Dell Inc., Intel(R) Core(TM)2 Duo CPU     T7100  @ 1.80GHz, 1795 MHz, Quadro NVS 140M, SigmaTel High Definition Audio CODEC,
Windows XP, Prof, SP2, NLD, HDD:78 GB, C:\, NTFS, 2046 MB RAM,
Internet Explorer 7.0, Microsoft Outlook

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.346
  • I've Upped my standards,now,up yours!
Re: Laatste getal verwijderen in Visual Studio
« Reactie #1 Gepost op: 30 mei 2008, 13:33:30 »
daar gebruik je de Left voor en de Len

Google eens
https://www.google.be/search?hl=nl&q=vb+left&meta=

en
https://www.google.be/search?hl=nl&q=vb+len&meta=

hopelijk is dit voldoende om je verder te helpen
veel succes
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline killahbee

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
  • Oplossing.be
Re: Laatste getal verwijderen in Visual Studio
« Reactie #2 Gepost op: 02 juni 2008, 20:10:43 »
Citaat van: dizzl op 30 mei 2008, 13:33:30
daar gebruik je de Left voor en de Len

Google eens
https://www.google.be/search?hl=nl&q=vb+left&meta=

en
https://www.google.be/search?hl=nl&q=vb+len&meta=

hopelijk is dit voldoende om je verder te helpen
veel succes
Dit heeft inderdaad geholpen!
Bedankt!
Gelogd
0UY141 Dell Inc., Intel(R) Core(TM)2 Duo CPU     T7100  @ 1.80GHz, 1795 MHz, Quadro NVS 140M, SigmaTel High Definition Audio CODEC,
Windows XP, Prof, SP2, NLD, HDD:78 GB, C:\, NTFS, 2046 MB RAM,
Internet Explorer 7.0, Microsoft Outlook

Offline killahbee

  • Lid
  • *
  • Berichten: 53
  • Geslacht: Man
  • Oplossing.be
Re: Update: probs met savefiledialog
« Reactie #3 Gepost op: 02 juni 2008, 21:03:59 »
De gebruiker kan dus een tekst ingeven in een tekstvak (txtmenu)

Als de gebruiker VOOR DE EERSTE KEER op de knop "save" klikt, opent de savefiledialog waarin hij de locatie kan kiezen.

Als de gebruiker dan VOOR DE TWEEDE KEER op de knop "save" klikt, zou de savefiledialog niet meer mogen openen, maar gewoon rechtstreeks opslaan. Aangezien het bestand al ergens een naam en plaats gekregen heeft.

IK heb dit proberen te implementeren, maar krijg een foutmelding: Als ik VOOR DE EERSTE KEER op de button klik, opent de savefiledialog wel, maar als ik op "ok" klik, slaat hij het niet op. Dan krijg ik de foutmelding "empty pah name is nog legal" (=argumentexception)

Iemand enig idee hoe dit komt?

Hier het stukje code van de button:
Private Sub BtnSaveReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSaveReplace.Click
        Dim outputstream As StreamWriter
        If currentfile = "" Then
            SaveFileDialog1.InitialDirectory = "c:\"
            If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                outputstream = File.CreateText(currentfile)
                outputstream.Write(txtMenu.Text)
                outputstream.Close()
            End If
        Else
            outputstream = File.CreateText(currentfile)
            outputstream.Write(txtMenu.Text)
            outputstream.Close()
        End If

End Sub



Alvast bedankt!




En dan nog een laatste vraag:
Hoe kan je de cursorpositie opvragen op een panel, ipv op het hele scherm?
Gelogd
0UY141 Dell Inc., Intel(R) Core(TM)2 Duo CPU     T7100  @ 1.80GHz, 1795 MHz, Quadro NVS 140M, SigmaTel High Definition Audio CODEC,
Windows XP, Prof, SP2, NLD, HDD:78 GB, C:\, NTFS, 2046 MB RAM,
Internet Explorer 7.0, Microsoft Outlook

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.346
  • I've Upped my standards,now,up yours!
Re: Update next problem: probs met savefiledialog
« Reactie #4 Gepost op: 03 juni 2008, 07:36:28 »
Je bestand is  --> OpenFileDialog1.FileName

Code: [Selecteer]
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
               'Je hebt nu een file geselecteerd en op OK gedrukt
                'dus zou ik het gekozenbestand gebruiken
                currentfile = OpenFileDialog1.FileName
                outputstream = File.CreateText(currentfile)
                outputstream.Write(txtMenu.Text)
                outputstream.Close()
End If

Ik zie trouwens niet hou currentfile ooit een andere waarde krijgt dan "" ?
Code: [Selecteer]
If currentfile = "" Then
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional
Pagina's: [1]   Omhoog
 


www.combell.com