Er zijn 3 reacties in dit onderwerp

[houthalen]

Met deze
Code:

Private Sub Command2_Click()
Dim Slash As String
CommonDialog1.Filter = "*.*"
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "SoundFiles"
CommonDialog1.FileName = App.Path & Slash & "SoundFiles" & "\*.*"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName' hier wordt de de locatie van de file genoteerd voor latere bewerkingen.
if text1.text=<>"" then
label1.backcolor=vbGreen' label wordt groen als file geladen is
else
Label1.BackColor = &HC0E0FF ' label blijft in de default kleur als geannuleerd wordt
End Sub

kan ik een file open en als de file opgeladen is, wordt de backcolor van de label groen.
Als ik op ANNULEREN druk, dus geen file geladen, moet de label in de default kleur blijven.
IK heb onderstaand deel op verschillende posities geprobeerd
Code:

if text1.text=<>"" then
label1.backcolor=vbGreen' label wordt groen als file geladen is
else
Label1.BackColor = &HC0E0FF ' label blijft in de default kleur als geannuleerd wordt
End Sub

maar, ook als ik niet laad, wordt toch de label groen.
Welke is de juiste positie, of, welke is de juiste sintax?
dank u
houthalen

[Jenny]

als je zelf zegt:
CommonDialog1.FileName = App.Path & Slash & "SoundFiles" & "\*.*"  
en als je zelf zegt:
Text1.Text = CommonDialog1.FileName
wat denk je dan wat Text1.Text zal zijn ???

even terzijde:
het zou misschien wel een goed idee zijn, als je hier code neerzet, die code ook eerst eens te runnen ???
???? if text1.text=<>"" then ????

[houthalen]

Dag Jenny.

Als ik op de laad button druk en een file selecteer dan
wordt hier de parcours van de commondialog1.filename genoteerde

Code:

Text1.Text = CommonDialog1.FileName' hier wordt de  locatie van de file genoteerd voor latere bewerkingen.

dus text1 is vol.
Als text1 vol is dan
Code:

if text1.text=<>"" then
label1.backcolor=vbGreen' label wordt groen als file geladen is

maar, als ik  , in plaats van laden, op 'Annuleren' druk dan blijft text1 leeg.
en wordt de label niet groen
Code:

else
Label1.BackColor = &HC0E0FF ' label blijft in de default kleur als geannuleerd  wordt
End Sub

dat is mijn bedoeling
Als de file gelaten word , dan wordt de label groen
Als nieks gelaten wordt , dan  wordt de label niet groen maar blijft met de default kleur achtergrond

[houthalen]

Jenny, ik heb anders aangepakt en nu werkt eindelijk wel

Code:

 
On Error Resume Next
CommonDialog1.ShowOpen
If Err = 32755 Then
	Label1.BackColor = &HC0E0FF ' lascia colore del form originale se annullat
	Err.Clear
Else
	Text1.Text = CommonDialog1.FileName ' registra qui il  percorso del file
	Label2.BackColor = vbGreen ' accende verde se caricato
End If
On Error GoTo 0

Het is opgelost

Dank u