VB: Farbtool

Dieses Thema VB: Farbtool im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von toxin, 20. Feb. 2003.

Thema: VB: Farbtool Moin, ich hab ein Farbtool gemacht, wo man die RGB-Intensität einstellen kann. Doch leider bringt der immer wenn...

  1. Moin,

    ich hab ein Farbtool gemacht, wo man die RGB-Intensität einstellen kann. Doch leider bringt der immer wenn eine der farben den wert 10 erreicht hat den Fehler : Typen unverträglich, was eigendlich nur bei falschen deklarationen kommt.

    Ich hab euch man prog in den anhang gelegt.

    Hoffentlich könnt ihr mir helfen.
    http://mitglied.lycos.de/dilleextreme/Farbtool.exe
     
  2. Hi

    Also mit Quelltext ist die Fehlersuche wesentlich einfacher 8)

    Gruß, Michael
     
  3. schau dir das mal an. könnte so gehen, glaub ich *fg*

    versuchs einfach mal und sag nochmal bescheid, ok?

    Option Explicit

    Dim blau As String
    Dim gruen As String
    Dim rot As String

    Dim aktfarbe As String

    Private Sub Form_Load()

    blau = 00
    gruen = 00
    rot = 00

    End Sub

    Private Sub Hs1_Change()

    txt_blue.Text = Hs1.Value


    blau = txt_blue.Text


    Farbwechsel
    End Sub

    Private Sub Hs2_Change()

    txt_green.Text = Hs2.Value

    gruen = txt_green.Text


    Farbwechsel
    End Sub

    Private Sub Hs3_Change()

    txt_red.Text = Hs3.Value

    rot = txt_red.Text

    Farbwechsel
    End Sub

    Private Sub Farbwechsel()

    aktfarbe = rot & gruen & blau

    aktfarbe = CLng(aktfarbe)
    shp_Fabe.FillColor = aktfarbe

    End Sub
     
  4. danke