Søg
Avatar billede -l_jogge_l- Nybegynder
31. oktober 2003 - 08:28 Der er 5 kommentarer og
2 løsninger

Valg af TextBoxe, Buttons, Liste osv

Hvis man jeg en form men en masse TextBoxe, knapper, Liste osv...

kan man så vælge ALLE TextBoxe ved brug af en Kode...

Feks, hvis man vil have at ALLE TextBoxe på Formen skal have en bestemt baggrundsfarve....

Men det bliver nød til at være med kode, da det er noget en bruger SLEV kan sætte op og gemmer i en lille database....
Avatar billede venne Nybegynder
31. oktober 2003 - 08:35 #1
For eksempel:

  Dim ctl As Control
 
  For Each ctl In Me.Controls
    If TypeOf ctl Is TextBox Then
      ctl.BackColor = vbYellow
    End If
  Next ctl
Avatar billede -l_jogge_l- Nybegynder
31. oktober 2003 - 08:38 #2
Ok.... kan man lave den som en Case Select sætning???
Avatar billede larsjordan Nybegynder
31. oktober 2003 - 08:38 #3
Hvis du nu har kaldt alle dine controller noget pænt....dvs tekstbokse starter med txt, combobokse med cbo, checkbokse med chk osv
dim ctl as Control
    For each ctl in me.controls
        if ucase(left(ctl.name,3)) = "TXT" then
            ctl.backcolor = vbGrey 'Indsæt farven her
        end if
    Next ctl
Avatar billede larsjordan Nybegynder
31. oktober 2003 - 08:40 #4
dim ctl as Control
    For each ctl in me.controls
        Select case ucase(left(ctl.name,3))
        Case "TXT"
            ctl.backcolor = vbGrey 'Indsæt farven her
        CASE "CBO
            'blablabla
        end if
    Next ctl
Avatar billede larsjordan Nybegynder
31. oktober 2003 - 08:41 #5
Sorry....en lille fejl


dim ctl as Control
    For each ctl in me.controls
        Select case ucase(left(ctl.name,3))
        Case "TXT"
            ctl.backcolor = vbGrey 'Indsæt farven her
        CASE "CBO
            'blablabla
        end select
    Next ctl
Avatar billede venne Nybegynder
31. oktober 2003 - 08:45 #6
På en lidt anden måde, uafhængig af navnestandard:

  Dim ctl As Control
 
  For Each ctl In Me.Controls
    Select Case TypeName(ctl)
      Case "TextBox"
        ctl.BackColor = vbYellow
      Case "ListBox"
        ctl.BackColor = vbGreen
    End Select
  Next ctl
Avatar billede -l_jogge_l- Nybegynder
31. oktober 2003 - 08:49 #7
Tak tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:26 Hvilken type mus Af mort1 i PC
I går 13:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging
09/0816:05 Samsung Galaxy vil ikke ud af "Sikker tilstand" Af ErikHg i Mobiltelefoner
08/0812:15 morf bilede Af knuldefar1942 i Fri debat
White papers
Flere white papers »