Springen naar inhoud


- - - - -
VB6 SOLVED

Een Label Moet Groen Worden Als Een File Geladen Is, Anders Niet



  • Log in a.u.b. om te beantwoorden
Er zijn 3 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 17 november 2014 - 21:17

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

#2 Jenny

Jenny

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 558 berichten
    Laatst bezocht 02 apr 2017 22:13

Geplaatst op 18 november 2014 - 11:58

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 ????


#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 18 november 2014 - 13:24

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

#4 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 18 november 2014 - 13:59

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





Ook met taq VB6 SOLVED voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6 SOLVED] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)