spikie
Legacy Member
dus ik ben in een vb .net programma een functie aan het inbouwe da gebruikers zelf nen achtergrond kunne instelle, de geselecteerde achtergrond wordt weggeschreve in een tekstbestand. de achtergrond kan geselecteerd worde door het pad in te type in een tekstvak, waarna de gebruiker op OK klikt en het pad word weggeschreve in het tekstbestand, dit werkt perfect.
Ik heb echter ook een knopke me Bladeren waar de gebruiker dus naar een afbeelding kan browse, mijn code zet dan dat pad in het tekstvak, maar schrijft het ni weg naar het tekstbestand wanneer er op OK geklikt word, het is nochtans dezelfde OK knop
hier is mijn code van de knop bladeren:
en van de OK knop:
Iemand die weet hoeda da komt?
Ik heb echter ook een knopke me Bladeren waar de gebruiker dus naar een afbeelding kan browse, mijn code zet dan dat pad in het tekstvak, maar schrijft het ni weg naar het tekstbestand wanneer er op OK geklikt word, het is nochtans dezelfde OK knop
hier is mijn code van de knop bladeren:
Code:
Private Sub cmdBladeren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBladeren.Click
Dim AskFile As New OpenFileDialog
Dim strafbeelding
With AskFile
.Filter = "jpg(*.jpg) |*.jpg|gif(*.gif)|*.gif"
.Title = "Selecteer de afbeelding die u als achtergrond wil instellen"
.CheckFileExists() = True
.CheckPathExists = True
.ValidateNames = True
.DereferenceLinks = True
.AddExtension = True
.CheckFileExists = True
.CheckPathExists = True
.Multiselect = False
.ShowReadOnly = False
End With
If AskFile.ShowDialog(Me) = DialogResult.OK Then
txtachtergrond.Text = AskFile.FileName
MsgBox(AskFile.FileName)
End If
End Suben van de OK knop:
Code:
Public Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click
Dim oFile As System.IO.File
Dim oWrite As System.IO.StreamWriter = New System.IO.StreamWriter("config.cfg")
Dim strtext As String
oWrite.WriteLine("[Achtergrond]")
oWrite.WriteLine(txtachtergrond.Text)
oWrite.Close()
Me.Close()
End SubIemand die weet hoeda da komt?