[VB] Δημιουργεία Control και Handler για αυτά σε runtime?

	Καλώς ορίσατε στο dotNETZone.gr - Σύνδεση \| Εγγραφή \| Βοήθεια σε

Îåêßíçóå áðü ôï ìÝëïò AlKiS. Τελευταία δημοσίευση από το μέλος AlKiS στις 13-03-2013, 20:15. Υπάρχουν 12 απαντήσεις.


	Ταξινόμηση Δημοσιεύσεων: Προηγούμενο Επόμενο

07-03-2013, 22:46 72260

AlKiS
Μέλος από τις 12-01-2007
Volos
Δημοσιεύσεις 312

[VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Καλησπέρα all !!

Έχω μια φόρμα η οποία έχει ένα textbox για να βάλει input ο χρήστης, ένα label που περιγράφει το τι θέλει το textbox, και ένα function που καλείται όταν πατηθεί το textbox και το textbox.text μπαίνει ως argument στο function αυτό.

Αυτό που θέλω να πετύχω είναι το εξής:

Όταν πατηθεί το textbox που υπάρχει, και καλεστεί το function και μπει κάτι στο text του textbox, να εμφανιστεί ένα ακόμα textbox κάθε από αυτό, το οποίο αν πατηθεί θα συμπεριφέρεται ακριβώς όπως αυτό που έχω ήδη δημιουργήσει σε design time.

Καλά θα ήταν να μπαίνει επίσης σε ένα "List (of Textbox)" ώστε εάν θέλω να μπορώ να το διαγράψω αργότερα, ή να κάνω ότι θέλω σε αυτό γενικά...

Δεν ξέρω όμως πως μπορώ να δημιουργήσω control σε runtime, πόσο μάλλον να μπαίνει και "handles" σε αυτό..

Αναφορά Κακοποίησης

08-03-2013, 20:46 72270 σε απάντηση της 72260

nikos123
Μέλος από τις 26-04-2006
Δημοσιεύσεις 104

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Δες τον αρχικό κώδικα του designer πως δημιουργεί controls , ορίζει properties , προσθέτει events ... όλα αυτά γίνονται και σε runtime αν γράψεις παρόμοιο κωδικα

Αναφορά Κακοποίησης

08-03-2013, 23:44 72271 σε απάντηση της 72270

AlKiS
Μέλος από τις 12-01-2007
Volos
Δημοσιεύσεις 312

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Δεν καταλαβαίνω... μπορείς να μου δώσεις ένα παράδειγμα??

Αναφορά Κακοποίησης

09-03-2013, 00:04 72272 σε απάντηση της 72271

nikos123
Μέλος από τις 26-04-2006
Δημοσιεύσεις 104

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Στο solution explorer πάτα "show all files" και θα δεις το αρχείο Form1.designer.vb

Δες τον κωδικα του, αλλα μην αλλάζεις τιποτα

Με λίγα λόγια κάτι τέτοιο

Dim txtBox as New TextBox()
txtBox.Location=new Point(10,10)
me.Controls.Add(txtBox)

Αναφορά Κακοποίησης

09-03-2013, 05:49 72279 σε απάντηση της 72260

whisper
Μέλος από τις 09-03-2013
Δημοσιεύσεις 4

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Μαλλον κατι σε control array ψαχνεις.
Ριξε μια ματια εδω(MSDN)

Ισως να σε βοηθουσε και το DataGridView καλυτερα, εξαρταται τι θελεις να κανεις.

Αναφορά Κακοποίησης

09-03-2013, 09:31 72281 σε απάντηση της 72272

AlKiS
Μέλος από τις 12-01-2007
Volos
Δημοσιεύσεις 312

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

αυτό το καταλαβαίνω, αλλά τα πράγματα δεν είναι τόσο απλά

το designer μου δείχνει:

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMain
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.mnuMain = New System.Windows.Forms.MenuStrip()
        Me.mniFileMenu = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniSettings = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuSeparator2 = New System.Windows.Forms.ToolStripSeparator()
        Me.mniExit = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniActionsMenu = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniDatabaseMaintenance = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniSuggestOrComplain = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniOpenSettingsFile = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniDirectoriesMenu = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniProgramDocuments = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
        Me.mniProgramsDir = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniDatabaseDir = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniExtrasDir = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniLanguageDir = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniSettingsDir = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniSkinDir = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniLinksMenu = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniProgramWebsite = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniProgrammerWebsite = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniCompanySite = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
        Me.mniStatRECWebsite = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniHelpMenu = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniShowPresentation = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniShowWelcomeScreen = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
        Me.mniEULA = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniChangeLog = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuSeparator1 = New System.Windows.Forms.ToolStripSeparator()
        Me.mniHelp = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniCheckForUpdates = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
        Me.mniCredits = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniAbout = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniRegistrationMenu = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniRegister = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniRevokeRegistration = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniShowExpirationDate = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniMDIWindows = New System.Windows.Forms.ToolStripMenuItem()
        Me.mniToggleVisibility = New System.Windows.Forms.ToolStripMenuItem()
        Me.lblHelp = New System.Windows.Forms.Label()
        Me.lblState = New System.Windows.Forms.Label()
        Me.lblCompany = New System.Windows.Forms.Label()
        Me.btnExit = New System.Windows.Forms.Button()
        Me.lblProgUpdated = New System.Windows.Forms.Label()
        Me.lblProgUpgraded = New System.Windows.Forms.Label()
        Me.gbCommands = New System.Windows.Forms.GroupBox()
        Me.pnlCommands = New System.Windows.Forms.Panel()
        Me.lblMathMode = New System.Windows.Forms.Label()
        Me.lblUnknownCmd = New System.Windows.Forms.Label()
        Me.cmdGo = New System.Windows.Forms.Button()
        Me.cmdExpirationDate = New System.Windows.Forms.Button()
        Me.txtCommands = New System.Windows.Forms.TextBox()
        Me.cmdSettings = New System.Windows.Forms.Button()
        Me.cmdHelp = New System.Windows.Forms.Button()
        Me.tmrUnknownCmd = New System.Windows.Forms.Timer(Me.components)
        Me.pnlMain = New System.Windows.Forms.Panel()
        Me.gbFunctions = New System.Windows.Forms.GroupBox()
        Me.pnlFunctions = New System.Windows.Forms.Panel()
        Me.pbGeneralProgress = New System.Windows.Forms.ProgressBar()
        Me.btnGlobalErrors = New System.Windows.Forms.Button()
        Me.btnLocalErrors = New System.Windows.Forms.Button()
        Me.btnMeanModel = New System.Windows.Forms.Button()
        Me.btnPermutation = New System.Windows.Forms.Button()
        Me.tmrMinimizationDelay = New System.Windows.Forms.Timer(Me.components)
        Me.TrayIcon = New System.Windows.Forms.NotifyIcon(Me.components)
        Me.TraySetting = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.trayShow = New System.Windows.Forms.ToolStripMenuItem()
        Me.trayHide = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator()
        Me.traySettings = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripSeparator()
        Me.trayWebsite = New System.Windows.Forms.ToolStripMenuItem()
        Me.trayCredits = New System.Windows.Forms.ToolStripMenuItem()
        Me.trayAbout = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripSeparator()
        Me.trayClose = New System.Windows.Forms.ToolStripMenuItem()
        Me.tltMain = New System.Windows.Forms.ToolTip(Me.components)
        Me.lblAlpha = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.mnuMain.SuspendLayout()
        Me.gbCommands.SuspendLayout()
        Me.pnlCommands.SuspendLayout()
        Me.pnlMain.SuspendLayout()
        Me.gbFunctions.SuspendLayout()
        Me.pnlFunctions.SuspendLayout()
        Me.TraySetting.SuspendLayout()
        Me.SuspendLayout()
        '
        'mnuMain
        '
        Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mniFileMenu, Me.mniActionsMenu, Me.mniDirectoriesMenu, Me.mniLinksMenu, Me.mniHelpMenu, Me.mniRegistrationMenu, Me.mniMDIWindows, Me.mniToggleVisibility})
        Me.mnuMain.Location = New System.Drawing.Point(0, 0)
        Me.mnuMain.Name = "mnuMain"
        Me.mnuMain.Size = New System.Drawing.Size(784, 24)
        Me.mnuMain.TabIndex = 4
        Me.mnuMain.Text = "Main Menu"
        '
        'mniFileMenu
        '
        Me.mniFileMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mniSettings, Me.mnuSeparator2, Me.mniExit})
        Me.mniFileMenu.Name = "mniFileMenu"
        Me.mniFileMenu.Size = New System.Drawing.Size(37, 20)
        Me.mniFileMenu.Text = "&File"
        '
        'mniSettings
        '
        Me.mniSettings.Name = "mniSettings"
        Me.mniSettings.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
        Me.mniSettings.Size = New System.Drawing.Size(156, 22)
        Me.mniSettings.Text = "&Settings"
        '
        'mnuSeparator2
        '
        Me.mnuSeparator2.Name = "mnuSeparator2"
        Me.mnuSeparator2.Size = New System.Drawing.Size(153, 6)
        '
        'mniExit
        '
        Me.mniExit.Name = "mniExit"
        Me.mniExit.Size = New System.Drawing.Size(156, 22)
        Me.mniExit.Text = "E&xit"
        '
        'mniActionsMenu
        '
        Me.mniActionsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mniDatabaseMaintenance, Me.mniSuggestOrComplain, Me.mniOpenSettingsFile})
        Me.mniActionsMenu.Name = "mniActionsMenu"
        Me.mniActionsMenu.Size = New System.Drawing.Size(59, 20)
        Me.mniActionsMenu.Text = "&Actions"
        '
        'mniDatabaseMaintenance
        '
        Me.mniDatabaseMaintenance.Name = "mniDatabaseMaintenance"
        Me.mniDatabaseMaintenance.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D), System.Windows.Forms.Keys)
        Me.mniDatabaseMaintenance.Size = New System.Drawing.Size(241, 22)
        Me.mniDatabaseMaintenance.Text = "&Database Maintenance"
        '
        'mniSuggestOrComplain
        '
        Me.mniSuggestOrComplain.Name = "mniSuggestOrComplain"
        Me.mniSuggestOrComplain.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.G), System.Windows.Forms.Keys)
        Me.mniSuggestOrComplain.Size = New System.Drawing.Size(241, 22)
        Me.mniSuggestOrComplain.Text = "&Suggest or Complain"
        '
        'mniOpenSettingsFile
        '
        Me.mniOpenSettingsFile.Name = "mniOpenSettingsFile"
        Me.mniOpenSettingsFile.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _
            Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
        Me.mniOpenSettingsFile.Size = New System.Drawing.Size(241, 22)
        Me.mniOpenSettingsFile.Text = "&Open Settings File"
        '
        'mniDirectoriesMenu
        '
        Me.mniDirectoriesMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mniProgramDocuments, Me.ToolStripMenuItem3, Me.mniProgramsDir, Me.mniDatabaseDir, Me.mniExtrasDir, Me.mniLanguageDir, Me.mniSettingsDir, Me.mniSkinDir})
        Me.mniDirectoriesMenu.Name = "mniDirectoriesMenu"
        Me.mniDirectoriesMenu.Size = New System.Drawing.Size(75, 20)
        Me.mniDirectoriesMenu.Text = "&Directories"
        '
        'mniProgramDocuments
        '
        Me.mniProgramDocuments.Name = "mniProgramDocuments"
        Me.mniProgramDocuments.Size = New System.Drawing.Size(192, 22)
        Me.mniProgramDocuments.Text = "Program's D&ocuments"
        '
        'ToolStripMenuItem3
        '
        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(189, 6)
        '
        'mniProgramsDir
        '
        Me.mniProgramsDir.Name = "mniProgramsDir"
        Me.mniProgramsDir.Size = New System.Drawing.Size(192, 22)
        Me.mniProgramsDir.Text = "Program's Directory"
        '
        'mniDatabaseDir
        '
        Me.mniDatabaseDir.Name = "mniDatabaseDir"
        Me.mniDatabaseDir.Size = New System.Drawing.Size(192, 22)
        Me.mniDatabaseDir.Text = "&Database"
        '
        'mniExtrasDir
        '
        Me.mniExtrasDir.Name = "mniExtrasDir"
        Me.mniExtrasDir.Size = New System.Drawing.Size(192, 22)
        Me.mniExtrasDir.Text = "&Extras"
        '
        'mniLanguageDir
        '
        Me.mniLanguageDir.Name = "mniLanguageDir"
        Me.mniLanguageDir.Size = New System.Drawing.Size(192, 22)
        Me.mniLanguageDir.Text = "&Language"
        '
        'mniSettingsDir
        '
        Me.mniSettingsDir.Name = "mniSettingsDir"
        Me.mniSettingsDir.Size = New System.Drawing.Size(192, 22)
        Me.mniSettingsDir.Text = "&Settings"
        '
        'mniSkinDir
        '
        Me.mniSkinDir.Name = "mniSkinDir"
        Me.mniSkinDir.Size = New System.Drawing.Size(192, 22)
        Me.mniSkinDir.Text = "S&kin"
        '
        'mniLinksMenu
        '
        Me.mniLinksMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mniProgramWebsite, Me.mniProgrammerWebsite, Me.mniCompanySite, Me.ToolStripMenuItem5, Me.mniStatRECWebsite})
        Me.mniLinksMenu.Name = "mniLinksMenu"
        Me.mniLinksMenu.Size = New System.Drawing.Size(46, 20)
        Me.mniLinksMenu.Text = "&Links"
        Me.mniLinksMenu.Visible = False
        '
        'mniProgramWebsite
        '
        Me.mniProgramWebsite.Name = "mniProgramWebsite"
        Me.mniProgramWebsite.Size = New System.Drawing.Size(194, 22)
        Me.mniProgramWebsite.Text = "&Programme's Website"
        Me.mniProgramWebsite.Visible = False
        '
        'mniProgrammerWebsite
        '
        Me.mniProgrammerWebsite.Name = "mniProgrammerWebsite"
        Me.mniProgrammerWebsite.Size = New System.Drawing.Size(194, 22)
        Me.mniProgrammerWebsite.Text = "Programmer's Website"
        Me.mniProgrammerWebsite.Visible = False
        '
        'mniCompanySite
        '
        Me.mniCompanySite.Name = "mniCompanySite"
        Me.mniCompanySite.Size = New System.Drawing.Size(194, 22)
        Me.mniCompanySite.Text = "Company's Site"
        Me.mniCompanySite.Visible = False
        '
        'ToolStripMenuItem5
        '
        Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(191, 6)
        '
        'mniStatRECWebsite
        '
        Me.mniStatRECWebsite.Name = "mniStatRECWebsite"
        Me.mniStatRECWebsite.Size = New System.Drawing.Size(194, 22)
        Me.mniStatRECWebsite.Text = "StatREC's Website"
        '
        'mniHelpMenu
        '
        Me.mniHelpMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mniShowPresentation, Me.mniShowWelcomeScreen, Me.ToolStripMenuItem2, Me.mniEULA, Me.mniChangeLog, Me.mnuSeparator1, Me.mniHelp, Me.mniCheckForUpdates, Me.ToolStripMenuItem1, Me.mniCredits, Me.mniAbout})
        Me.mniHelpMenu.Name = "mniHelpMenu"
        Me.mniHelpMenu.Size = New System.Drawing.Size(44, 20)
        Me.mniHelpMenu.Text = "&Help"
        '
        'mniShowPresentation
        '
        Me.mniShowPresentation.Name = "mniShowPresentation"
        Me.mniShowPresentation.Size = New System.Drawing.Size(228, 22)
        Me.mniShowPresentation.Text = "&Show Presentation Again"
        '
        'mniShowWelcomeScreen
        '
        Me.mniShowWelcomeScreen.Name = "mniShowWelcomeScreen"
        Me.mniShowWelcomeScreen.Size = New System.Drawing.Size(228, 22)
        Me.mniShowWelcomeScreen.Text = "Show &Welcome Screen Again"
        '
        'ToolStripMenuItem2
        '
        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(225, 6)
        '
        'mniEULA
        '
        Me.mniEULA.Name = "mniEULA"
        Me.mniEULA.Size = New System.Drawing.Size(228, 22)
        Me.mniEULA.Text = "&EULA"
        '
        'mniChangeLog
        '
        Me.mniChangeLog.Name = "mniChangeLog"
        Me.mniChangeLog.Size = New System.Drawing.Size(228, 22)
        Me.mniChangeLog.Text = "&Changelog"
        '
        'mnuSeparator1
        '
        Me.mnuSeparator1.Name = "mnuSeparator1"
        Me.mnuSeparator1.Size = New System.Drawing.Size(225, 6)
        '
        'mniHelp
        '
        Me.mniHelp.Name = "mniHelp"
        Me.mniHelp.Size = New System.Drawing.Size(228, 22)
        Me.mniHelp.Text = "&Help"
        '
        'mniCheckForUpdates
        '
        Me.mniCheckForUpdates.Name = "mniCheckForUpdates"
        Me.mniCheckForUpdates.Size = New System.Drawing.Size(228, 22)
        Me.mniCheckForUpdates.Text = "Check for &Updates"
        '
        'ToolStripMenuItem1
        '
        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(225, 6)
        '
        'mniCredits
        '
        Me.mniCredits.Name = "mniCredits"
        Me.mniCredits.Size = New System.Drawing.Size(228, 22)
        Me.mniCredits.Text = "&Credits"
        '
        'mniAbout
        '
        Me.mniAbout.Name = "mniAbout"
        Me.mniAbout.Size = New System.Drawing.Size(228, 22)
        Me.mniAbout.Text = "&About"
        '
        'mniRegistrationMenu
        '
        Me.mniRegistrationMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mniRegister, Me.mniRevokeRegistration, Me.mniShowExpirationDate})
        Me.mniRegistrationMenu.Name = "mniRegistrationMenu"
        Me.mniRegistrationMenu.Size = New System.Drawing.Size(82, 20)
        Me.mniRegistrationMenu.Text = "&Registration"
        Me.mniRegistrationMenu.Visible = False
        '
        'mniRegister
        '
        Me.mniRegister.Name = "mniRegister"
        Me.mniRegister.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.R), System.Windows.Forms.Keys)
        Me.mniRegister.Size = New System.Drawing.Size(304, 22)
        Me.mniRegister.Text = "Regis&ter"
        '
        'mniRevokeRegistration
        '
        Me.mniRevokeRegistration.Name = "mniRevokeRegistration"
        Me.mniRevokeRegistration.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _
            Or System.Windows.Forms.Keys.R), System.Windows.Forms.Keys)
        Me.mniRevokeRegistration.Size = New System.Drawing.Size(304, 22)
        Me.mniRevokeRegistration.Text = "Revoke Registration &Privileges"
        '
        'mniShowExpirationDate
        '
        Me.mniShowExpirationDate.Name = "mniShowExpirationDate"
        Me.mniShowExpirationDate.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.E), System.Windows.Forms.Keys)
        Me.mniShowExpirationDate.Size = New System.Drawing.Size(304, 22)
        Me.mniShowExpirationDate.Text = "&Show Expiration Date"
        '
        'mniMDIWindows
        '
        Me.mniMDIWindows.Name = "mniMDIWindows"
        Me.mniMDIWindows.Size = New System.Drawing.Size(93, 20)
        Me.mniMDIWindows.Text = "MDI Windows"
        Me.mniMDIWindows.Visible = False
        '
        'mniToggleVisibility
        '
        Me.mniToggleVisibility.Name = "mniToggleVisibility"
        Me.mniToggleVisibility.Size = New System.Drawing.Size(103, 20)
        Me.mniToggleVisibility.Text = "Toggle Visibility"
        Me.mniToggleVisibility.Visible = False
        '
        'lblHelp
        '
        Me.lblHelp.AutoSize = True
        Me.lblHelp.BackColor = System.Drawing.Color.Black
        Me.lblHelp.ForeColor = System.Drawing.Color.Cyan
        Me.lblHelp.Location = New System.Drawing.Point(12, 21)
        Me.lblHelp.Name = "lblHelp"
        Me.lblHelp.Size = New System.Drawing.Size(23, 13)
        Me.lblHelp.TabIndex = 5
        Me.lblHelp.Text = "null"
        Me.lblHelp.Visible = False
        '
        'lblState
        '
        Me.lblState.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.lblState.AutoSize = True
        Me.lblState.Location = New System.Drawing.Point(20, 505)
        Me.lblState.Name = "lblState"
        Me.lblState.Size = New System.Drawing.Size(23, 13)
        Me.lblState.TabIndex = 2
        Me.lblState.Text = "null"
        Me.lblState.Visible = False
        '
        'lblCompany
        '
        Me.lblCompany.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.lblCompany.AutoSize = True
        Me.lblCompany.BackColor = System.Drawing.Color.Transparent
        Me.lblCompany.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.lblCompany.ForeColor = System.Drawing.SystemColors.ControlText
        Me.lblCompany.Location = New System.Drawing.Point(17, 516)
        Me.lblCompany.Name = "lblCompany"
        Me.lblCompany.Size = New System.Drawing.Size(96, 16)
        Me.lblCompany.TabIndex = 3
        Me.lblCompany.Text = "{TradeMark}"
        '
        'btnExit
        '
        Me.btnExit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnExit.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnExit.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.btnExit.ForeColor = System.Drawing.SystemColors.ControlText
        Me.btnExit.Location = New System.Drawing.Point(612, 510)
        Me.btnExit.Name = "btnExit"
        Me.btnExit.Size = New System.Drawing.Size(150, 23)
        Me.btnExit.TabIndex = 1
        Me.btnExit.Text = "E&xit"
        Me.btnExit.UseVisualStyleBackColor = True
        '
        'lblProgUpdated
        '
        Me.lblProgUpdated.AutoSize = True
        Me.lblProgUpdated.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.lblProgUpdated.Location = New System.Drawing.Point(644, 7)
        Me.lblProgUpdated.Name = "lblProgUpdated"
        Me.lblProgUpdated.Size = New System.Drawing.Size(95, 13)
        Me.lblProgUpdated.TabIndex = 6
        Me.lblProgUpdated.Text = "<Awaiting Info>"
        Me.lblProgUpdated.Visible = False
        '
        'lblProgUpgraded
        '
        Me.lblProgUpgraded.AutoSize = True
        Me.lblProgUpgraded.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.lblProgUpgraded.Location = New System.Drawing.Point(644, 27)
        Me.lblProgUpgraded.Name = "lblProgUpgraded"
        Me.lblProgUpgraded.Size = New System.Drawing.Size(95, 13)
        Me.lblProgUpgraded.TabIndex = 7
        Me.lblProgUpgraded.Text = "<Awaiting Info>"
        Me.lblProgUpgraded.Visible = False
        '
        'gbCommands
        '
        Me.gbCommands.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.gbCommands.BackColor = System.Drawing.Color.Transparent
        Me.gbCommands.Controls.Add(Me.pnlCommands)
        Me.gbCommands.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.gbCommands.Location = New System.Drawing.Point(20, 409)
        Me.gbCommands.Name = "gbCommands"
        Me.gbCommands.Size = New System.Drawing.Size(742, 83)
        Me.gbCommands.TabIndex = 0
        Me.gbCommands.TabStop = False
        Me.gbCommands.Text = "Commands:"
        '
        'pnlCommands
        '
        Me.pnlCommands.AutoScroll = True
        Me.pnlCommands.AutoSize = True
        Me.pnlCommands.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.pnlCommands.Controls.Add(Me.lblMathMode)
        Me.pnlCommands.Controls.Add(Me.lblUnknownCmd)
        Me.pnlCommands.Controls.Add(Me.cmdGo)
        Me.pnlCommands.Controls.Add(Me.cmdExpirationDate)
        Me.pnlCommands.Controls.Add(Me.txtCommands)
        Me.pnlCommands.Controls.Add(Me.cmdSettings)
        Me.pnlCommands.Controls.Add(Me.cmdHelp)
        Me.pnlCommands.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlCommands.Location = New System.Drawing.Point(3, 16)
        Me.pnlCommands.Name = "pnlCommands"
        Me.pnlCommands.Size = New System.Drawing.Size(736, 64)
        Me.pnlCommands.TabIndex = 23
        '
        'lblMathMode
        '
        Me.lblMathMode.AutoSize = True
        Me.lblMathMode.BackColor = System.Drawing.Color.Black
        Me.lblMathMode.ForeColor = System.Drawing.Color.Yellow
        Me.lblMathMode.Location = New System.Drawing.Point(124, 51)
        Me.lblMathMode.Name = "lblMathMode"
        Me.lblMathMode.Size = New System.Drawing.Size(46, 13)
        Me.lblMathMode.TabIndex = 21
        Me.lblMathMode.Text = "Mode: "
        Me.lblMathMode.Visible = False
        '
        'lblUnknownCmd
        '
        Me.lblUnknownCmd.AutoSize = True
        Me.lblUnknownCmd.BackColor = System.Drawing.Color.Black
        Me.lblUnknownCmd.ForeColor = System.Drawing.Color.Red
        Me.lblUnknownCmd.Location = New System.Drawing.Point(3, 51)
        Me.lblUnknownCmd.Name = "lblUnknownCmd"
        Me.lblUnknownCmd.Size = New System.Drawing.Size(118, 13)
        Me.lblUnknownCmd.TabIndex = 5
        Me.lblUnknownCmd.Text = "Unknown Command"
        Me.lblUnknownCmd.Visible = False
        '
        'cmdGo
        '
        Me.cmdGo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.cmdGo.BackColor = System.Drawing.Color.Transparent
        Me.cmdGo.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdGo.Location = New System.Drawing.Point(641, 27)
        Me.cmdGo.Name = "cmdGo"
        Me.cmdGo.Size = New System.Drawing.Size(75, 20)
        Me.cmdGo.TabIndex = 1
        Me.cmdGo.Text = "&Go"
        Me.cmdGo.UseVisualStyleBackColor = False
        '
        'cmdExpirationDate
        '
        Me.cmdExpirationDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.cmdExpirationDate.Location = New System.Drawing.Point(227, 0)
        Me.cmdExpirationDate.Name = "cmdExpirationDate"
        Me.cmdExpirationDate.Size = New System.Drawing.Size(141, 23)
        Me.cmdExpirationDate.TabIndex = 3
        Me.cmdExpirationDate.Text = "Show &Expiration Date"
        Me.cmdExpirationDate.UseVisualStyleBackColor = True
        Me.cmdExpirationDate.Visible = False
        '
        'txtCommands
        '
        Me.txtCommands.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.txtCommands.BackColor = System.Drawing.Color.FromArgb(CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer))
        Me.txtCommands.ForeColor = System.Drawing.Color.Lime
        Me.txtCommands.Location = New System.Drawing.Point(6, 28)
        Me.txtCommands.Name = "txtCommands"
        Me.txtCommands.Size = New System.Drawing.Size(626, 20)
        Me.txtCommands.TabIndex = 0
        Me.txtCommands.Text = "You may type commands here. For a list of available commands, please type ""help()" & _
    """"
        '
        'cmdSettings
        '
        Me.cmdSettings.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regulaspan style=span style= color: Red;background-color: Transparent;font-family: Courier New;font-size: 11px;font-weight: normal;/spanspan style=r, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.cmdSettings.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdSettings.Location = New System.Drawing.Point(6, 0)
        Me.cmdSettings.Name = "cmdSettings"
        Me.cmdSettings.Size = New System.Drawing.Size(115, 23)
        Me.cmdSettings.TabIndex = 2
        Me.cmdSettings.Text = "&Settings"
        Me.cmdSettings.UseVisualStyleBackColor = True
        '
        'cmdHelp
        '
        Me.cmdHelp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.cmdHelp.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdHelp.Location = New System.Drawing.Point(127, 0)
        Me.cmdHelp.Name = "cmdHelp"
        Me.cmdHelp.Size = New System.Drawing.Size(94, 23)
        Me.cmdHelp.TabIndex = 4
        Me.cmdHelp.Text = "&Help"
        Me.cmdHelp.UseVisualStyleBackColor = True
        '
        'tmrUnknownCmd
        '
        Me.tmrUnknownCmd.Interval = 1
        '
        'pnlMain
        '
        Me.pnlMain.AutoScroll = True
        Me.pnlMain.AutoSize = True
        Me.pnlMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.pnlMain.BackColor = System.Drawing.Color.Transparent
        Me.pnlMain.Controls.Add(Me.lblState)
        Me.pnlMain.Controls.Add(Me.btnExit)
        Me.pnlMain.Controls.Add(Me.lblCompany)
        Me.pnlMain.Controls.Add(Me.gbCommands)
        Me.pnlMain.Controls.Add(Me.lblProgUpgraded)
        Me.pnlMain.Controls.Add(Me.lblProgUpdated)
        Me.pnlMain.Controls.Add(Me.gbFunctions)
        Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlMain.Location = New System.Drawing.Point(0, 24)
        Me.pnlMain.Name = "pnlMain"
        Me.pnlMain.Size = New System.Drawing.Size(784, 538)
        Me.pnlMain.TabIndex = 21
        '
        'gbFunctions
        '
        Me.gbFunctions.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.gbFunctions.BackColor = System.Drawing.Color.Transparent
        Me.gbFunctions.Controls.Add(Me.pnlFunctions)
        Me.gbFunctions.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.gbFunctions.Location = New System.Drawing.Point(20, 15)
        Me.gbFunctions.Name = "gbFunctions"
        Me.gbFunctions.Size = New System.Drawing.Size(742, 388)
        Me.gbFunctions.TabIndex = 1
        Me.gbFunctions.TabStop = False
        Me.gbFunctions.Text = "Functions:"
        '
        'pnlFunctions
        '
        Me.pnlFunctions.AutoScroll = True
        Me.pnlFunctions.AutoSize = True
        Me.pnlFunctions.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.pnlFunctions.Controls.Add(Me.Button1)
        Me.pnlFunctions.Controls.Add(Me.pbGeneralProgress)
        Me.pnlFunctions.Controls.Add(Me.btnGlobalErrors)
        Me.pnlFunctions.Controls.Add(Me.btnLocalErrors)
        Me.pnlFunctions.Controls.Add(Me.btnMeanModel)
        Me.pnlFunctions.Controls.Add(Me.btnPermutation)
        Me.pnlFunctions.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlFunctions.Location = New System.Drawing.Point(3, 16)
        Me.pnlFunctions.Name = "pnlFunctions"
        Me.pnlFunctions.Size = New System.Drawing.Size(736, 369)
        Me.pnlFunctions.TabIndex = 20
        '
        'pbGeneralProgress
        '
        Me.pbGeneralProgress.Location = New System.Drawing.Point(13, 333)
        Me.pbGeneralProgress.MarqueeAnimationSpeed = 400
        Me.pbGeneralProgress.Name = "pbGeneralProgress"
        Me.pbGeneralProgress.Size = New System.Drawing.Size(707, 23)
        Me.pbGeneralProgress.Style = System.Windows.Forms.ProgressBarStyle.Marquee
        Me.pbGeneralProgress.TabIndex = 5
        Me.pbGeneralProgress.Value = 100
        Me.pbGeneralProgress.Visible = False
        '
        'btnGlobalErrors
        '
        Me.btnGlobalErrors.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnGlobalErrors.Enabled = False
        Me.btnGlobalErrors.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
        Me.btnGlobalErrors.Location = New System.Drawing.Point(570, 14)
        Me.btnGlobalErrors.Name = "btnGlobalErrors"
        Me.btncolor: Blue;background-color: Transparent;font-family: Courier New;font-size: 11px;font-weight: normal;/spanspan style=color: Blue;background-color: Transparent;font-family: Courier New;font-size: 11px;font-weight: normal;MeGlobalErrors.Size = New System.Drawing.Size(150, 120)
        Me.btnGlobalErrors.TabIndex = 4
        Me.btnGlobalErrors.Text = "&Global Errors"
        Me.btnGlobalErrors.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.btnGlobalErrors.UseVisualStyleBackColor = True
        '
        'btnLocalErrors
        '
        Me.btnLocalErrors.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnLocalErrors.Enabled = False
        Me.btnLocalErrors.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
        Me.btnLocalErrors.Location = New System.Drawing.Point(385, 14)
        Me.btnLocalErrors.Name = "btnLocalErrors"
        Me.btnLocalErrors.Size = New System.Drawing.Size(150, 120)
        Me.btnLocalErrors.TabIndex = 3
        Me.btnLocalErrors.Text = "&Compute Local Errors"
        Me.btnLocalErrors.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.btnLocalErrors.UseVisualStyleBackColor = True
        '
        'btnMeanModel
        '
        Me.btnMeanModel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnMeanModel.Enabled = False
        Me.btnMeanModel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
        Me.btnMeanModel.Location = New System.Drawing.Point(200, 14)
        Me.btnMeanModel.Name = "btnMeanModel"
        Me.btnMeanModel.Size = New System.Drawing.Size(150, 120)
        Me.btnMeanModel.TabIndex = 2
        Me.btnMeanModel.Text = "&Compute Mean Model"
        Me.btnMeanModel.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.btnMeanModel.UseVisualStyleBackColor = True
        '
        'btnPermutation
        '
        Me.btnPermutation.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnPermutation.Enabled = False
        Me.btnPermutation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
        Me.btnPermutation.Location = New System.Drawing.Point(13, 14)
        Me.btnPermutation.Name = "btnPermutation"
        Me.btnPermutation.Size = New System.Drawing.Size(150, 120)
        Me.btnPermutation.TabIndex = 1
        Me.btnPermutation.Text = "&Analysis"
        Me.btnPermutation.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.btnPermutation.UseVisualStyleBackColor = True
        '
        'tmrMinimizationDelay
        '
        '
        'TrayIcon
        '
        Me.TrayIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
        Me.TrayIcon.BalloonTipText = "2"
        Me.TrayIcon.BalloonTipTitle = "3"
        Me.TrayIcon.ContextMenuStrip = Me.TraySetting
        Me.TrayIcon.Text = "1"
        '
        'TraySetting
        '
        Me.TraySetting.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.trayShow, Me.trayHide, Me.ToolStripMenuItem7, Me.traySettings, Me.ToolStripMenuItem8, Me.trayWebsite, Me.trayCredits, Me.trayAbout, Me.ToolStripMenuItem9, Me.trayClose})
        Me.TraySetting.Name = "ContextMenuStrip1"
        Me.TraySetting.Size = New System.Drawing.Size(117, 176)
        Me.TraySetting.Text = "TraySettings"
        '
        'trayShow
        '
        Me.trayShow.Name = "trayShow"
        Me.trayShow.Size = New System.Drawing.Size(116, 22)
        Me.trayShow.Text = "Show"
        '
        'trayHide
        '
        Me.trayHide.Name = "trayHide"
        Me.trayHide.Size = New System.Drawing.Size(116, 22)
        Me.trayHide.Text = "Hide"
        '
        'ToolStripMenuItem7
        '
        Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(113, 6)
        '
        'traySettings
        '
        Me.traySettings.Name = "traySettings"
        Me.traySettings.Size = New System.Drawing.Size(116, 22)
        Me.traySettings.Text = "Settings"
        '
        'ToolStripMenuItem8
        '
        Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(113, 6)
        '
        'trayWebsite
        '
        Me.trayWebsite.Name = "trayWebsite"
        Me.trayWebsite.Size = New System.Drawing.Size(116, 22)
        Me.trayWebsite.Text = "Website"
        '
        'trayCredits
        '
        Me.trayCredits.Name = "trayCredits"
        Me.trayCredits.Size = New System.Drawing.Size(116, 22)
        Me.trayCredits.Text = span style=.btnMeanModel.UseVisualStyleBackColor span style= Me/span System.Drawing.Size(116, 22)
        "Credits"
        '
        'trayAbout
        '
        Me.trayAbout.Name = "trayAbout"
        Me.trayAbout.Size = New System.Drawing.Size(116, 22)
        Me.trayAbout.Text = "About"
        '
        'ToolStripMenuItem9
        '
        Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
        Me.ToolStripMenuItem9.Size = New System.Drawing.Size(113, 6)
        '
        'trayClose
        '
        Me.trayClose.Name = "trayClose"
        Me.trayClose.Size = New System.Drawing.Size(116, 22)
        Me.trayClose.Text = "Close"
        '
        'tltMain
        '
        Me.tltMain.IsBalloon = True
        Me.tltMain.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
        Me.tltMain.ToolTipTitle = "Tip:"
        '
        'lblAlpha
        '
        Me.lblAlpha.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblAlpha.AutoSize = True
        Me.lblAlpha.BackColor = System.Drawing.Color.Black
        Me.lblAlpha.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
        Me.lblAlpha.ForeColor = System.Drawing.Color.Red
        Me.lblAlpha.Location = New System.Drawing.Point(625, 0)
        Me.lblAlpha.Name = "lblAlpha"
        Me.lblAlpha.Size = New System.Drawing.Size(159, 24)
        Me.lblAlpha.TabIndex = 25
        Me.lblAlpha.Text = "Alpha b121119a"
        Me.lblAlpha.Visible = False
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(291, 201)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 6
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'frmMain
        '
        Me.AcceptButton = Me.cmdGo
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.CancelButton = Me.btnExit
        Me.ClientSize = New System.Drawing.Size(784, 562)
        Me.Controls.Add(Me.lblAlpha)
        Me.Controls.Add(Me.lblHelp)
        Me.Controls.Add(Me.pnlMain)
        Me.Controls.Add(Me.mnuMain)
        Me.Enabled = False
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MainMenuStrip = Me.mnuMain
        Me.MaximizeBox = False
        Me.Name = "frmMain"
        Me.Text = "StatREC"
        Me.mnuMain.ResumeLayout(False)
        Me.mnuMain.PerformLayout()
        Me.gbCommands.ResumeLayout(False)
        Me.gbCommands.PerformLayout()
        Me.pnlCommands.ResumeLayout(False)
        Me.pnlCommands.PerformLayout()
        Me.pnlMain.ResumeLayout(False)
        Me.pnlMain.PerformLayout()
        Me.gbFunctions.ResumeLayout(False)
        Me.gbFunctions.PerformLayout()
        Me.pnlFunctions.ResumeLayout(False)
        Me.TraySetting.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents mnuMain As System.Windows.Forms.MenuStrip
    Friend WithEvents mniFileMenu As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniHelpMenu As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniAbout As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuSeparator1 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents lblHelp As System.Windows.Forms.Label
    Friend WithEvents lblState As System.Windows.Forms.Label
    Friend WithEvents mniDirectoriesMenu As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniDatabaseDir As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents lblCompany As System.Windows.Forms.Label
    Friend WithEvents btnExit As System.Windows.Forms.Button
    Friend WithEvents mnuSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents mniExit As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniSettings As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniCredits As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniRegistrationMenu As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniLinksMenu As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniProgramWebsite As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniProgrammerWebsite As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniProgramsDir As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents lblProgUpgraded As System.Windows.Forms.Label
    Friend WithEvents lblProgUpdated As System.Windows.Forms.Label
    Friend WithEvents mniEULA As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniActionsMenu As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniRegister As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniRevokeRegistration As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniShowPresentation As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniShowWelcomeScreen As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents mniChangeLog As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniDatabaseMaintenance As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniShowExpirationDate As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniHelp As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents gbCommands As System.Windows.Forms.GroupBox
    Friend WithEvents cmdExpirationDate As System.Windows.Forms.Button
    Friend WithEvents cmdHelp As System.Windows.Forms.Button
    Friend WithEvents lblUnknownCmd As System.Windows.Forms.Label
    Friend WithEvents cmdGo As System.Windows.Forms.Button
    Friend WithEvents txtCommands As System.Windows.Forms.TextBox
    Friend WithEvents cmdSettings As System.Windows.Forms.Button
    Friend WithEvents tmrUnknownCmd As System.Windows.Forms.Timer
    Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents mniSuggestOrComplain As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniOpenSettingsFile As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniExtrasDir As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniLanguageDir As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniSettingsDir As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniSkinDir As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniProgramDocuments As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents mniCheckForUpdates As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniMDIWindows As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mniToggleVisibility As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents lblMathMode As System.Windows.Forms.Label
    Friend WithEvents pnlMain As System.Windows.Forms.Panel
    Friend WithEvents gbFunctions As System.Windows.Forms.GroupBox
    Friend WithEvents pnlFunctions As System.Windows.Forms.Panel
    Friend WithEvents tmrMinimizationDelay As System.Windows.Forms.Timer
    Friend WithEvents TrayIcon As System.Windows.Forms.NotifyIcon
    Friend WithEvents TraySetting As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents trayShow As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents trayHide As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents traySettings As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem8 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents trayWebsite As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents trayCredits As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents trayAbout As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem9 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents trayClose As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents tltMain As System.Windows.Forms.ToolTip
    Friend WithEvents mniCompanySite As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents btnPermutation As System.Windows.Forms.Button
    Friend WithEvents pnlCommands As System.Windows.Forms.Panel
    Friend WithEvents btnGlobalErrors As System.Windows.Forms.Button
    Friend WithEvents btnLocalErrors As System.Windows.Forms.Button
    Friend WithEvents btnMeanModel As System.Windows.Forms.Button
    Friend WithEvents lblAlpha As System.Windows.Forms.Label
    Friend WithEvents mniStatRECWebsite As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents pbGeneralProgress As System.Windows.Forms.ProgressBar
    Friend WithEvents Button1 As System.Windows.Forms.Button

End Class

Πως ξέρω ποιά από αυτά χρειάζομαι?

Για παράδειγμα: Τα μόνα που κάνει "Me.Controls.Add()" είναι τα 1) lblAlpha, 2) lblHelp, 3) pnlMain και 4) mnuMain

Τα υπόλοιπά γιατί δεν τα κάνει?

Μετά βλέπω κάτι "ResumeLayout(False)".. και "PerformLayout()" τι κάνουν αυτά? τα χρησιμοποιώ εγώ???

Ποιό κομμάτι κώδικα από εδώ ενώνει το "Handles ΚάποιοControl.Κάτι" με το Control?

Αν έχω μια ολοκληρωμένη εικόνα για το πως μπορώ να δημιουργώ ένα textbox κάτω από ένα άλλο και να του βάζω και το κατάλληλο "handles", τότε θα μπορέσω εύκολα να βρω πως να το κάνω και για τα υπόλοιπα

Αναφορά Κακοποίησης

12-03-2013, 13:36 72299 σε απάντηση της 72260

Libra Storm
Μέλος από τις 28-01-2011
Χαϊδάρι
Δημοσιεύσεις 142

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Στην VB δεν σου βάζει στον designer AddHandler απλά πάει στο sub και σου βάζει π.χ. Handles textbox.textChanged. Γιά να το κάνεις μόνος σου ιδίως σε runtime controls θα πρέπει να το κάνεις έτσι: AddHandler textbox1.TextChanged, AddressOf <ένα sub με το ίδιο signature> ή removehandler αν χρειάζεται. Βάλε το στο παράδειγμα που σου είπε ο Nikos123 και θα σου δουλέψει.

Edit: Επίσης δεν χρειάζεται το WithEvents στην περίπτψσή σου.

Αναφορά Κακοποίησης

12-03-2013, 15:19 72303 σε απάντηση της 72281

nikos123
Μέλος από τις 26-04-2006
Δημοσιεύσεις 104

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Τα controls μπορουν να προστεθούν αναδρομικά
μερικά προστίθονται στο panel,
το panel στη φόρμα... (αυτό εχει κάνει ο designer)

 Public Sub AddTextBox()
        Dim txtBox As New TextBox()
        Me.myPanel.Controls.Add(txtBox)
        AddHandler txtBox.TextChanged, AddressOf txtboxTextChanged
    End Sub

    Private Sub txtboxTextChanged(sender As Object, e As EventArgs)
        MessageBox.Show("text changed")
    End Sub

Αναφορά Κακοποίησης

12-03-2013, 17:21 72304 σε απάντηση της 72260

Libra Storm
Μέλος από τις 28-01-2011
Χαϊδάρι
Δημοσιεύσεις 142

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Δες αν θέλεις και το παρακάτω παράδειγμα το οποίο κάνει remove και addhandler, είναι η περίπτωση που πολλά control events γίνονται handle από ένα sub. Γράφωντας κάτι σε κάποιο textbox πάει στα υπόλοιπα και βάζει το ίδιο text. Επίσης μετά δες και τα custom events.

Public Class Form1
    Private _list As New List(Of TextBox)
    Private _controlSpacing As Point
    Private _maxTop As Integer

    Protected Overrides Sub OnSizeChanged(e As System.EventArgs)
        Me.ArrangeControls(True)

        MyBase.OnSizeChanged(e)
    End Sub

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Dim beepHandler As KeyEventHandler = Sub()
                                                 Beep()
                                             End Sub

        For i As Integer = 0 To 299
            Dim txtBox As New TextBox() With {.Name = "txtRuntime_" & i}

            AddHandler txtBox.KeyUp, beepHandler
            AddHandler txtBox.TextChanged, AddressOf _TextBoxTextChanged

            Me.Controls.Add(txtBox)

            _list.Add(txtBox)
        Next

        ' Έτσι ( OfType ) μπορείς να φιλτράρεις στοιχεία βάσει του τύπου τους ακόμα και να το συνδυάσεις με LINQ άμα σου χρειαστεί.
        ''Dim IEnum As IEnumerable(Of TextBox) =
        ''    From txtBox As TextBox In Me.Controls.OfType(Of TextBox)()
        ''    Where (txtBox.Name.StartsWith("txtRuntime_"))
        ''    Select txtBox

        ''_list = IEnum.ToList()

        Me.ArrangeControls(False)

        MyBase.OnLoad(e)
    End Sub

    ' Υπάρχει το Panel Control, το Docking Property, το Flowlayoutpanel Control.
    ' Αυτά μας βοηθάνε στο να μην κάνουμε εμείς τους υπολογισμούς αλά VB6 όπως παρακάτω, ιδίως σε περιπτώσεις που 
    ' θέλουμε να βγάλουμε ή να προσθέσουμε κάποιο control από το collection ή
    ' να αλλάξουμε το μέγεθός του αλλά δεν γνωρίζω το τι ακριβώς θέλεις να κάνεις.
    Private Sub ArrangeControls(flowLayout As Boolean)
        _controlSpacing = Point.Empty
        _maxTop = 0

        Me.SuspendLayout()

        For Each txtBox As TextBox In _list
            If flowLayout Then
                If _controlSpacing.X + txtBox.Width > Me.ClientSize.Width Then
                    _controlSpacing = New Point(0, _maxTop)
                End If
            Else
                _controlSpacing = New Point(0, _maxTop)
            End If

            If _controlSpacing <> txtBox.Location Then
                txtBox.Location = _controlSpacing
            End If

            _controlSpacing.X += txtBox.Width
            _maxTop = txtBox.Bottom
        Next

        Me.ResumeLayout()
    End Sub

    Private Sub _TextBoxTextChanged(ByVal sender As Object, ByVal e As EventArgs)
        ' Φέρε όλα τα textBoxes που φτιάξαμε σε run time εκτός από αυτό που σήκωσε το event.
        Dim IEnum As IEnumerable(Of TextBox) = From txtBox As TextBox In _list
                                               Where txtBox IsNot DirectCast(sender, TextBox) 
                                               Select txtBox

        For Each txtBox As TextBox In IEnum
            ' Βγάλε το Handler γιά να μήν καλείται το ίδιο event συνέχεια
            ' από τα υπόλοιπα textboxes και σέρνεται η εφαρμογή στο event.
            RemoveHandler txtBox.TextChanged, AddressOf _TextBoxTextChanged

            ' Τώρα που δεν κάνει Handle το event άλλαξε το text του γιά να είναι το ίδιο σε όλα.
            txtBox.Text = DirectCast(sender, TextBox).Text

            ' Βάλε το πάλι γιά να πιάνει τις αλλαγές στο text του κάθε textBox.
            AddHandler txtBox.TextChanged, AddressOf _TextBoxTextChanged
        Next
    End Sub

End Class

Αναφορά Κακοποίησης

12-03-2013, 17:25 72305 σε απάντηση της 72299

AlKiS
Μέλος από τις 12-01-2007
Volos
Δημοσιεύσεις 312

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Libra Storm:
Στην VB δεν σου βάζει στον designer AddHandler απλά πάει στο sub και σου βάζει π.χ. Handles textbox.textChanged. Γιά να το κάνεις μόνος σου ιδίως σε runtime controls θα πρέπει να το κάνεις έτσι: AddHandler textbox1.TextChanged, AddressOf <ένα sub με το ίδιο signature> ή removehandler αν χρειάζεται. Βάλε το στο παράδειγμα που σου είπε ο Nikos123 και θα σου δουλέψει.

Edit: Επίσης δεν χρειάζεται το WithEvents στην περίπτψσή σου.

Να ρωτήσω κάτι: γιατί δεν χρειάζομαι το withevents? τι κάνει αυτό??

Ευχαριστώ για τη συνεχή βοήθεια :)

Δεν είναι τυχαίο άλλωστε που το όνομά σου και αυτό το forum τα έχω στα credits όλων των καινούργιων μου προγραμμάτων (Ultra-PoS, Kino Statistics [freeware], StatREC [University Project, δημοσιευμένο Promise 2012, ACM και αν όλα παν καλά, και σε περιοδικό που δεν μπορώ να αναφέρω ακόμα] )

nikos123:
Τα controls μπορουν να προστεθούν αναδρομικά
μερικά προστίθονται στο panel,
το panel στη φόρμα... (αυτό εχει κάνει ο designer)
 Public Sub AddTextBox()
        Dim txtBox As New TextBox()
        Me.myPanel.Controls.Add(txtBox)
        AddHandler txtBox.TextChanged, AddressOf txtboxTextChanged
    End Sub

    Private Sub txtboxTextChanged(sender As Object, e As EventArgs)
        MessageBox.Show("text changed")
    End Sub

Ευχαριστώ για το παράδειγμα! Το να το βλέπω έτσι γραμμένο σε VB κώδικα μου το κάνει πολύ εύκολο στην κατανόηση.

Θα δοκιμάσω όσα μου είπατε, και θα κάνω edit το post αυτό για να σας πω αν τα κατάφερα.

Αναφορά Κακοποίησης

12-03-2013, 17:34 72306 σε απάντηση της 72305

Libra Storm
Μέλος από τις 28-01-2011
Χαϊδάρι
Δημοσιεύσεις 142

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

WithEvents Βάζουμε όταν θέλουμε να γράψουμε "handles Textbox1.TextChanged" δεξιά από το sub του event, επειδή όμως εσύ το κάνεις με addhandler και remove δεν χρειάζεται, είναι κληρονομιά από την vb6 και ευκολία ΑΛΛΑ, την πατάς όταν σβήσεις το control και το ξαναβάλεις και αναρωτιέσαι: "Γιατί δεν σηκώθηκε το event;".

Αναφορά Κακοποίησης

13-03-2013, 00:29 72308 σε απάντηση της 72306

AlKiS
Μέλος από τις 12-01-2007
Volos
Δημοσιεύσεις 312

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Libra Storm:
WithEvents Βάζουμε όταν θέλουμε να γράψουμε "handles Textbox1.TextChanged" δεξιά από το sub του event, επειδή όμως εσύ το κάνεις με addhandler και remove δεν χρειάζεται, είναι κληρονομιά από την vb6 και ευκολία ΑΛΛΑ, την πατάς όταν σβήσεις το control και το ξαναβάλεις και αναρωτιέσαι: "Γιατί δεν σηκώθηκε το event;".

Αχά, δεν το ήξερα. άρα δεν θα το χρειαστώ σε καμία περίπτωση όταν το κάνω για runtime.. cool.

Αυτά που μου είπατε με βοήθησαν πολύ :) Έβαλα το handler, και φαίνονται και τα καινούργια κουμπιά! ένα πράγμα έχει μείνει να κάνω ακόμα, και μετά θα βάλω το post ως επιλυμένο

Έκανα ένα μικρό video response (1 λεπτό και κάτι δευτερόλεπτα) όπου δείχνω τι έχω κάνει και τι έμεινε: video response

@Libra Storm: Δεν κείταξα ακόμα το πρό-τελευταίο σου post (το μεγάλο) διότι είναι πολύ αργά (12:30 το βράδυ) και το μυαλό μου είναι ότι νάναι τώρα. Θα το δω αύριο, και ίσως να απαντάς στο ερώτημά μου ήδη μέσα σε εκείνο το post.

Αναφορά Κακοποίησης

13-03-2013, 20:15 72317 σε απάντηση της 72308

AlKiS
Μέλος από τις 12-01-2007
Volos
Δημοσιεύσεις 312

Απ: [VB] Δημιουργεία Control και Handler για αυτά σε runtime?

Wow, Libra Storm, το post σου νούμερο 72304 (αυτό που αναφέρω παραπάνω ως "προ-τελευταίο") είναι εκπληκτικό!! Μακάρι να είχε σύστημα Reputation το forum

Και επιτέλους δεν νιώθω έξω από τα νερά μου πια - το βλέπω και το καταλαβαίνω με τη μία (το ίδιο post παλιά, θα με είχε "φοβίσει").
Με έχεις "σπρώξει" αρκετές φορές να διαβάσω και να μελετήσω κώδικα μεγάλο, με πράγματα που δεν συναντούσα συχνά (IEnumerable, AddressOf και λοιπά) και βλέπω ότι απέδωσε καρπούς :)

Η βλακεία είναι ότι, όταν τα έχεις κατανοήσει, μετά σου φαίνονται σαν "1+1 = 2", και σκέφτεσαι: "σοβαρά τώρα? αυτά δεν τα καταλάβαινα?" χεχε

Σ' ευχαριστώ για τη βοήθεια, τον χρόνο, τα φοβερά παραδείγματα/κομμάτια κώδικα, και την υπομονή σου :)
Έβαλα το thread ως επιλυμένο - η απορία μου έχει απαντηθεί και με το παραπάνω. Προσάρμοσα τον κώδικά σου στο πρόγραμμα και πέτυχα αυτό που ήθελα :D

Όταν το τελειώσω (θα πάρει κάποιο καιρό), θα κάνω reply με φωτογραφίες από το πρόγραμμα, και τον πηγαίο του κώδικα.
Το πρόγραμμα αυτό το γράφω για το Τμήμα Ηλεκτρολογίας (το οποίο και παρακολουθώ), και συγκεκριμένα ασχολείται με τη μέθοδο των ελαχίστων τετραγώνων που διδάσκεται στο μάθημα της φυσικής.

Αναφορά Κακοποίησης

Με χρήση του Community Server (Commercial Edition), από την Telligent Systems