Visual Basic

Jayme65 wrote:

ext.SelectMany(Function(f) Directory.GetFiles(romPath, f))

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Dim CharMap_Key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\CharMap", writable:=True)
Dim currentfont As String = CStr(CharMap_Key.GetValue("Font", defaultValue:=""))
CharMap_Key.SetValue("Font", "Arial")
Dim proc As Process = Process.Start(Environment.SystemDirectory & "\charmap.exe")

Public MyForm

    ' This is declared at the class level.
    Private RNG As New Random()

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.CheckState = 1 Then
            Male()
        End If
    End Sub

    ' This code really should be in Form2, not in any other form.
    ' Form code should be responsible only for interacting with the controls
    ' on its own form, not with controls on another form.
    Private Sub Male()
        Dim lines() As String = GetLinesFromFile("male.txt")

        Form2.TextBox1.Text = lines(RNG.Next(lines.Length))
    End Sub

    Private Function GetLinesFromFile(ByVal filename As String) As string()
        return File.ReadAllLines(filename)
    End Function 

End Class

Form2.TextBox1.Text = (lines(RandomNumber))

Zyndell wrote:

I learn by doing