Public Class Class1 Public Enum MineValg ValgMulighed1 = 0 ValgMulighed2 = 1 ValgMulighed3 = 2 End Enum
Public Function MinFunktion(ByVal Valg As MineValg) MessageBox.Show(Valg) End Function End Class
'I din form-kode: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim c As New Class1 c.MinFunktion(Class1.MineValg.ValgMulighed1) End Sub
MsgBox eksisterer kun pga. bagud-kompabilitet. Benyt MessageBox.Show istedet. Den har også udvidet og mere overskuelig funktionalitet.
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.