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 Subkan 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 Submaar, ook als ik niet laad, wordt toch de label groen.
Welke is de juiste positie, of, welke is de juiste sintax?
dank u
houthalen