Oprettet tir. d. 07. august 2012 kl. 12:44:40
60 point uddelt | 6 kommentarer
Fre en CommandButton og vider til en ComboBox
HejJeg vil lave et userform hvor man f.eks har 4 CommandButton hvor der står X,XX,XXX og IV på dem. Under dem skal der være 2 ComboBox. Missionen er at man skal kunne trykke på f.eks. X og den vil komme frem i ComboBoxen1, når jeg så trykker på XX skal den kunne se om combobox1 er fri, hvis ikke rykker den over på ComboBox2. Hver CommandButten skal skrive det der står på den over i ComboBoxen men samtidig se om den er fri og hvis ikke rykke til næste ComboBox.
Håber det er til at forstå. God fornøjelse.
Skrevet tir. d. 07. august 2012 kl. 13:00:13| #1
IT-GuFFe (10.695 point)
Noget i den her stil du mener? :)
Private Sub CommandButton1_Click()
If Len(ComboBox1.Text) = 0 Then
ComboBox1.Text = CommandButton1.Caption
ElseIf Len(ComboBox2.Text) = 0 Then
ComboBox2.Text = CommandButton1.Caption
End If
End Sub
Private Sub CommandButton1_Click()
If Len(ComboBox1.Text) = 0 Then
ComboBox1.Text = CommandButton1.Caption
ElseIf Len(ComboBox2.Text) = 0 Then
ComboBox2.Text = CommandButton1.Caption
End If
End Sub
Skrevet tir. d. 07. august 2012 kl. 13:03:04| #2
IT-GuFFe (10.695 point)
Evt. sådan her, det gør det lidt nemmere at styre med 4 knapper
Private Sub CommandButton1_Click()
FindLedigCombobox CommandButton1
End Sub
Sub FindLedigCombobox(CommandButton As CommandButton)
If Len(ComboBox1.Text) = 0 Then
ComboBox1.Text = CommandButton.Caption
ElseIf Len(ComboBox2.Text) = 0 Then
ComboBox2.Text = CommandButton.Caption
End If
End Sub
Private Sub CommandButton1_Click()
FindLedigCombobox CommandButton1
End Sub
Sub FindLedigCombobox(CommandButton As CommandButton)
If Len(ComboBox1.Text) = 0 Then
ComboBox1.Text = CommandButton.Caption
ElseIf Len(ComboBox2.Text) = 0 Then
ComboBox2.Text = CommandButton.Caption
End If
End Sub
Skrevet tir. d. 07. august 2012 kl. 13:31:58| #3
micwar (2.645 point)
Det funker lige som det skal.
Tak for hjælpen.
Tak for hjælpen.
Skrevet tir. d. 07. august 2012 kl. 13:34:50| #4
micwar (2.645 point)
Har du styr på ToggleButton? når den er trykket ind så er den rød og når den er ude er den Grøn f.eks.
Skrevet tir. d. 07. august 2012 kl. 13:55:33| #5
Accepteret svar!60 point tildelt
IT-GuFFe (10.695 point)
Her er et svar.
Dog synes jeg det ser lidt mærkeligt ud når der er trykket ind..
Men det kan gøres sådan her.
If ToggleButton1.Value = False Then
ToggleButton1.BackColor = RGB(255, 0, 0)
Else
ToggleButton1.BackColor = RGB(0, 255, 0)
End If
Dog synes jeg det ser lidt mærkeligt ud når der er trykket ind..
Men det kan gøres sådan her.
If ToggleButton1.Value = False Then
ToggleButton1.BackColor = RGB(255, 0, 0)
Else
ToggleButton1.BackColor = RGB(0, 255, 0)
End If
Skrevet tir. d. 07. august 2012 kl. 14:08:14| #6
micwar (2.645 point)
Jeg bliver nok nød til at uddybe mit behov får den gør ikke som jeg vil have. Men tak for hjælpen med det første.
Log ind
Seneste spørgsmål
hvordan kan jeg tilføje en progress bar til mit program
Oprettet den 13. juni 2013 kl. 09.18
kris914g1 giver 60 point for svar | Giv et svar »
hvordan kan jeg tilføje en progress bar til mit program
Oprettet den 12. juni 2013 kl. 19.47
kris914g1 giver 60 point for svar | Giv et svar »
nogen som ved hvordan man laver et download med...
Oprettet den 12. juni 2013 kl. 17.08
kris914g1 giver 140 point for svar | Giv et svar »
Seneste guides
Seneste nyheder
IT Kurser
Samarbejdspartnere
Udgiver · © 2013 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger