01. marts 2004 - 18:06Der er
7 kommentarer og 1 løsning
Click udebliver.
Jeg bøvler lidt med de genererede optionsbuttons. ud fra følgende kode : For Each c In UserForm1.Controls Debug.Print TypeName(c) & ": " & c.Name Next c
Alligevel virker denne sub ikke ved markering af button1: Private Sub OptionButton1_Click() MsgBox ("ja endelig") PubNavn.Value = navn1.Value PubNr.Value = Nr1.Value End Sub
Jeg kan ikke lige umiddelbart komme på noget.... ligner mere et "lad mig rode med det" problem....... men efter du har dannet alle dine controls, og fået skrevet din ekstra kode, så kan du prøve at lave denne her....
Men nu skal du høre.... opret et klassemodul og navngiv det clsOpt Indsæt følgende kode:
Public WithEvents OptButton As MSForms.OptionButton
Private Sub OptButton_Click() MsgBox "You clicked: " & OptButton.Caption End Sub
I din kode til din userform tilføjer du en variable erklæring øverst (dog ikke over Option Explicit hvis du bruger det) Tilføj kode til din userform_initialiae
Private formButton As clsOpt
Private Sub UserForm_Initialize() Dim oCtl As MSForms.Control For Each oCtl In Me.Controls If TypeOf oCtl Is MSForms.OptionButton Then Set formButton = New clsOpt Set formButton.OptButton = oCtl End If Next oCtl End Sub
Sorry - fik den navngivet som du sagde, og får ingen fejl, men desværre heller ingen ændring... Men jeg ved ikke om jeg vil spilde mere af jeres tid med dette, for det skal ikke bruges til noget uundværligt... Men jeg er villig til at give dig point for dine (som altid) gode forslag...
Synes godt om
Ny brugerNybegynder
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.
