Søg
Avatar billede christian_h Nybegynder
17. september 2002 - 14:23 Der er 7 kommentarer og
1 løsning

Ændre Forecolor på alle labels og kontroller

Hej Eksperter.

Er der en nem måde hvorpå man kan ændre Forecolor på ALLE labels og kontroller under Form_load() UDEN at skulle skrive : Label1.Forecolor = vbBlue til dem alle ??.
Jeg har ca. 75 labels, og jeg var ikke så smart at lave dem som et kontrol array da jeg startede.

Håber i kan hjælpe.

Mvh.

Christian H
Avatar billede sjh Nybegynder
17. september 2002 - 15:13 #1
lav det med index (Label1.Index = 0)

Private Sub Form_Load()
Dim i As Integer
  For i = 0 To Label1.Count - 1
    Label1(i).ForeColor = vbBlue
  Next i
End Sub
Avatar billede christian_h Nybegynder
17. september 2002 - 15:20 #2
Hej Shj.

Jeg får en "Compiles error. Method or data member not found" og så en markering af .Count

Nogen forslag

Christian H
Avatar billede sjh Nybegynder
17. september 2002 - 15:26 #3
ja du skal lave en Label1 og sette Index til 0 (Label1.Index = 0)
Så skal du kopier den (Label1) og brug sæt ind så du for de 75 Labels

hvis du har laver dem så må du lave dem om.
Avatar billede christian_h Nybegynder
17. september 2002 - 15:29 #4
OK, det du alstå siger er at jeg skal slette mine 75 labels og lave en kontrol array ??
Avatar billede sjh Nybegynder
17. september 2002 - 15:37 #5
Ja, men du kan jo lige lave dem på en ny form og se om det virker som du ønsker, kopier så alle labels over på den form som du skal bruge dem på.
Avatar billede christian_h Nybegynder
17. september 2002 - 17:27 #6
Det er lettere sagt end gjort, jeg må finde en anden måde, da jeg ellers lige så godt kan lave mit program om fra bunden (næsten da).
Avatar billede johs_j Novice
17. september 2002 - 18:12 #7
Private Sub Command1_Click()
    Dim Kontrol As Control
    For Each Kontrol In Me.Controls
        If TypeOf Kontrol Is Label Then
            Kontrol.ForeColor = &H000000FF& ' rød farve
        End If
    Next
End Sub
Avatar billede christian_h Nybegynder
17. september 2002 - 18:23 #8
Hej Johs.

Du er bare en GUTTER MAND, det var lige det jeg skulle bruge TAK TAK.

Mvh.

Christian H
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 går 15:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
I går 14:16 installere windows på separat diskpartition Af Malm i Windows
I går 13:43 Problem med mcafee Af Malm i Andet software
I går 13:39 Er tilstrækkelig antivirus incl på ny Samsung smartphone ? Af annam i Backup- & Antivirus
19/0819:46 Skift fra Microsoft365 til Microsoft 2024 Af 1Dorte i Office & Kontorpakker
White papers
Flere white papers »