Declareren van een Combobox

[Ger11]

Hallo iedereen,

ik heb een vraagje en wel ik heb een opties form waar een combobox op staat.
deze combobox inhoud wil ik zichtbaar maken op mijn hoofd form in een label.
als ik zef label1.text = combobox1.text dan geeft hij aan dat de combobox die op een ander form staat niet gedeclareerd is. Hoe kan ik dit oplossen

groetjes

 

[Pizara]

de namen van je form ervoor te zetten.

form1.label1.text = form2.combobox1.text

 

[Ger11]

Hallo Pizara,

in welk event moet ik deze plaatsen. In de load van het form werkt hij niet.

Ger

 

[Pizara]

Je kan beter wat code posten , omdat ik waarschijnlijk niet begrijp wat je precies wilt doen.

 

[Ger11]

Ik weet niet of het gelukt is met de bijlage. Als het wel gelukt is moet je eens in het word.doc kijken.

Ger

 

[Ger11]

#Region " Windows Form Designer generated code "



Private Sub frmStartform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim xFonts As New System.Drawing.Text.InstalledFontCollection

cmbLettertype.Items.Clear()

For Each xFamily As FontFamily In xFonts.Families

cmbLettertype.Items.Add(xFamily.Name)

Next



'Laatste font ophalen, indien niet ingesteld eerste font in de lijst selecteren:

Dim xKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(sKey)

cmbLettertype.SelectedIndex = Convert.ToInt32(xKey.GetValue(sValue, 0))

xKey.Close()



txtText.Select()

'lblLettertype1.Text = Opties.ComboBox1.Text



End Sub



Private Sub cmbLettertype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLettertype.SelectedIndexChanged

txtText.Font = New Font(cmbLettertype.SelectedItem.ToString(), 10, FontStyle.Regular)



'Font opslaan voor later gebruik:

Dim xKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(sKey)

xKey.SetValue(sValue, cmbLettertype.SelectedIndex)

xKey.Flush()

xKey.Close()







End Sub



Private Sub mnuOpties_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpties.Click

Dim nf As New frmOpties

nf.Show()

End Sub

 

[C Windows]

Wanneer iemand op OK kilkt, moet het font zichtbaar worden in het hoofdform. Dus zet de code van Pizara in de sub van btnOK_Click (of hoe de button ook mag heten).

Mocht je de font willen opslaan, kan je dat beter in een setting van je prog zetten.

 

[Ger11]

Hallo,

op mijn opties form werk ik ook met setting, dit werkt prima. Maar als ik de code van Pizara daar neer zet werkt hij ook niet.

groetjes

Kijk dit is de code waar ik hem geplaatst heb

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
SaveSetting("Fonts", "LastSelectedFont", "Combobox1", ComboBox1.SelectedIndex)
lblLettertype1.Text = Opties.ComboBox1.Text
End Sub