Springen naar inhoud


- - - - -
VS 2010

Even Een Zetje Nodig

VS2015 VB2010

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

#1 ronron

ronron

    Senior Developer

  • Leden
  • PipPipPip
  • 152 berichten
    Laatst bezocht 15 sep 2019 16:05
  • LocatieHaarlem

Geplaatst op 08 september 2019 - 21:31

Wil een programma aanpassen wat ik 8 jaar geleden heb gemaakt.reden mijn Domotica controller heeft he begeven. Was een Vera 3 .Nu overgestapt naar een Homey
Daarvoor een windowsprogje die op een blad alles laat zien.Lampje aan betekend schakelaar ingeschakeld
Heb voor de volgende regels een correctie nodig

For i = 1 To 42
Me.Controls("PictureBox" & i & ".Image") = New System.Drawing.Bitmap(lamp)
Next
Wat zie ik over het hoofd. Groet, Ron

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 662 berichten
    Laatst bezocht 15 sep 2019 20:39
  • LocatieMechelen (BE)

Geplaatst op 09 september 2019 - 21:09

Krijg je een fout melding?

De me. mag je er normaal aflaten ;)

#3 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1163 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 09 september 2019 - 21:37

Bericht bekijkenronron, op 08 september 2019 - 21:31, zei:

Wil een programma aanpassen wat ik 8 jaar geleden heb gemaakt.reden mijn Domotica controller heeft he begeven. Was een Vera 3 .Nu overgestapt naar een Homey
Daarvoor een windowsprogje die op een blad alles laat zien.Lampje aan betekend schakelaar ingeschakeld
Heb voor de volgende regels een correctie nodig

For i = 1 To 42
Me.Controls("PictureBox" & i & ".Image") = New System.Drawing.Bitmap(lamp)
Next
Wat zie ik over het hoofd. Groet, Ron


Enkel "PictureBox" moet tussen quotes.

Visual Basic Code:
For i As Integer = 1 To 42
	DirectCast(Controls("PictureBox" & i), PictureBox).Image = lampAan
Next



#4 ronron

ronron

    Senior Developer

  • Leden
  • PipPipPip
  • 152 berichten
    Laatst bezocht 15 sep 2019 16:05
  • LocatieHaarlem

Geplaatst op 11 september 2019 - 00:18

Bedankt voor reactie    
  Dim lamp As String: Lamp = "C:\A\Data\lamp.jpg"
Me.PictureBox1.Image = New System.Drawing.Bitmap(lamp) : (deze werkt wel)

om deze regel niet 42 keer in te voeren een vervangend deel. suggestie Dirk geeft foutmelding       value of type 'string' cannot be converted to 'system.drawing.image'
Moet ik iets anders declareren.

#5 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 662 berichten
    Laatst bezocht 15 sep 2019 20:39
  • LocatieMechelen (BE)

Geplaatst op 11 september 2019 - 06:45

die lampAan  moet New System.Drawing.Bitmap(lamp) worden

#6 ronron

ronron

    Senior Developer

  • Leden
  • PipPipPip
  • 152 berichten
    Laatst bezocht 15 sep 2019 16:05
  • LocatieHaarlem

Geplaatst op 11 september 2019 - 11:23

Deze werkt, Super bedankt en Groet, Ron

#7 ronron

ronron

    Senior Developer

  • Leden
  • PipPipPip
  • 152 berichten
    Laatst bezocht 15 sep 2019 16:05
  • LocatieHaarlem

Geplaatst op 11 september 2019 - 19:43

Krijg de smaak weer te pakken, oude werkende code vraagt om een opfrisser,dan moet ook hetvolgend mogelijk zijn

Dim toolTip1 As New ToolTip() : toolTip1.IsBalloon = True : toolTip1.ShowAlways = True:        toolTip1.SetToolTip(Me.Button1, " ") : toolTip1.ToolTipTitle = TT(1)
in plaats van 42 gelijke regels


For i = 1 To 42
            Dim KeusTT As New string  = "tooltip" & i
            Me.Controls(KeusTT) As New ToolTip()
            DirectCast(Controls(.KeusTT.IsBalloon = True
            KeusTT.ShowAlways = True
            KeusTT.SetToolTip(Me."Button" & i, " ")
            KeusTT.ToolTipTitle = TT(i)
          Next

of vraag ik nu teveel, ben nieuwsgierig wat het moet zijn. met mijn beperkte kennis zie ik zelf de oplossing niet
Ron

#8 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1163 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 11 september 2019 - 20:27

Bericht bekijkenronron, op 11 september 2019 - 00:18, zei:

Bedankt voor reactie
  Dim lamp As String: Lamp = "C:\A\Data\lamp.jpg"
Me.PictureBox1.Image = New System.Drawing.Bitmap(lamp) : (deze werkt wel)

om deze regel niet 42 keer in te voeren een vervangend deel. suggestie Dirk geeft foutmelding    value of type 'string' cannot be converted to 'system.drawing.image'
Moet ik iets anders declareren.

lampAan is bij mij al een image, dat ik slechts 1 maal maak.
Het lijkt me VEEL slimmer 42 keer dezelfde image te gebruiken, dan 42 nieuwe images te maken die hetzelfde tonen.

#9 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1163 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 12 september 2019 - 14:43

Bericht bekijkenronron, op 11 september 2019 - 19:43, zei:

Krijg de smaak weer te pakken, oude werkende code vraagt om een opfrisser,dan moet ook hetvolgend mogelijk zijn

Dim toolTip1 As New ToolTip() : toolTip1.IsBalloon = True : toolTip1.ShowAlways = True: toolTip1.SetToolTip(Me.Button1, " ") : toolTip1.ToolTipTitle = TT(1)
in plaats van 42 gelijke regels


For i = 1 To 42
Dim KeusTT As New string  = "tooltip" & i
Me.Controls(KeusTT) As New ToolTip()
DirectCast(Controls(.KeusTT.IsBalloon = True
KeusTT.ShowAlways = True
KeusTT.SetToolTip(Me."Button" & i, " ")
KeusTT.ToolTipTitle = TT(i)
  Next

of vraag ik nu teveel, ben nieuwsgierig wat het moet zijn. met mijn beperkte kennis zie ik zelf de oplossing niet
Ron

Ik weet niet wat je precies probeert te doen?

#10 ronron

ronron

    Senior Developer

  • Leden
  • PipPipPip
  • 152 berichten
    Laatst bezocht 15 sep 2019 16:05
  • LocatieHaarlem

Geplaatst op 12 september 2019 - 21:46

Het dashboard van mijn Robotica prog heeft 43 knoppen die een schakelaar bedienen.Wil voor elke knop een Tooltip instellen kan natuurlijk 43 regels maken of een loop maken . deze krijg ik niet aan de praat
kan je een voorbeeld sturen, Ron

#11 ronron

ronron

    Senior Developer

  • Leden
  • PipPipPip
  • 152 berichten
    Laatst bezocht 15 sep 2019 16:05
  • LocatieHaarlem

Geplaatst op 15 september 2019 - 16:06

"kan je een voorbeeld sturen, " Ron  moet zijn               "ik kan je een voorbeeld sturen"   dit om verwarring te voorkomen
dus bedoel ik hiermee een lange lijst van 43 regels vervangen door 4 of 5 regels
Ron





Ook met taq VS 2010, VS2015, VB2010 voorzien

0 gebruiker(s) lezen dit onderwerp

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

Inloggen


[VS 2010] 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)