home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / CMCD1004.ISO / Software / Shareware / Programare / netxp / netxp.exe / Samples / VB / Controls / Form1.vb < prev    next >
Encoding:
Text File  |  2004-04-09  |  14.5 KB  |  294 lines
  1. Imports System
  2. Imports System.Drawing
  3. Imports System.Collections
  4. Imports System.ComponentModel
  5. Imports System.Windows.Forms
  6. Imports System.Data
  7.  
  8. Namespace Controls
  9.     '/ <summary>
  10.     '/ Summary description for Form1.
  11.     '/ </summary>
  12.     Public Class Form1
  13.         Inherits System.Windows.Forms.Form
  14.         Private xpButton1 As NETXP.Controls.XPButton
  15.         Private xpButton2 As NETXP.Controls.XPButton
  16.         Private dropDownTreeView1 As NETXP.Controls.DropDownTreeView
  17.         Private imageList1 As System.Windows.Forms.ImageList
  18.         Private colorButton1 As NETXP.Controls.ColorButton
  19.         Private autoTextBox1 As NETXP.Controls.AutoTextBox
  20.         Private comboBoxEx1 As NETXP.Controls.ComboBoxEx
  21.         Private graph1 As NETXP.Controls.Graph
  22.         Private maskedTextBox1 As NETXP.Controls.MaskedTextBox
  23.         Private skinnedPanel1 As NETXP.Controls.SkinnedPanel
  24.         Private xpGroupBox1 As NETXP.Controls.XPGroupBox
  25.         Private xpCheckBox1 As NETXP.Controls.XPCheckBox
  26.         Private xpButton3 As NETXP.Controls.XPButton
  27.         Private xpButton4 As NETXP.Controls.XPButton
  28.         Private components As System.ComponentModel.IContainer
  29.  
  30.         Public Sub New()
  31.             '
  32.             ' Required for Windows Form Designer support
  33.             '
  34.             InitializeComponent()
  35.         End Sub
  36.  
  37.         Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  38.             If disposing Then
  39.                 If Not components Is Nothing Then
  40.                     components.Dispose()
  41.                 End If
  42.             End If
  43.             MyBase.Dispose(disposing)
  44.         End Sub
  45.  
  46. #Region "Windows Form Designer generated code"
  47.         Private Sub InitializeComponent()
  48.             Me.components = New System.ComponentModel.Container
  49.             Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
  50.             Me.xpButton1 = New NETXP.Controls.XPButton
  51.             Me.xpButton2 = New NETXP.Controls.XPButton
  52.             Me.dropDownTreeView1 = New NETXP.Controls.DropDownTreeView
  53.             Me.imageList1 = New System.Windows.Forms.ImageList(Me.components)
  54.             Me.colorButton1 = New NETXP.Controls.ColorButton
  55.             Me.autoTextBox1 = New NETXP.Controls.AutoTextBox
  56.             Me.comboBoxEx1 = New NETXP.Controls.ComboBoxEx
  57.             Me.graph1 = New NETXP.Controls.Graph
  58.             Me.maskedTextBox1 = New NETXP.Controls.MaskedTextBox
  59.             Me.skinnedPanel1 = New NETXP.Controls.SkinnedPanel
  60.             Me.xpGroupBox1 = New NETXP.Controls.XPGroupBox
  61.             Me.xpCheckBox1 = New NETXP.Controls.XPCheckBox
  62.             Me.xpButton3 = New NETXP.Controls.XPButton
  63.             Me.xpButton4 = New NETXP.Controls.XPButton
  64.             Me.skinnedPanel1.SuspendLayout()
  65.             Me.xpGroupBox1.SuspendLayout()
  66.             Me.SuspendLayout()
  67.             ' 
  68.             ' xpButton1
  69.             ' 
  70.             Me.xpButton1.Image = (CType((resources.GetObject("xpButton1.Image")), System.Drawing.Image))
  71.             Me.xpButton1.Location = New System.Drawing.Point(136, 48)
  72.             Me.xpButton1.Name = "xpButton1"
  73.             Me.xpButton1.Size = New System.Drawing.Size(192, 48)
  74.             Me.xpButton1.TabIndex = 0
  75.             Me.xpButton1.Text = "Click here for a surprise"
  76.             AddHandler Me.xpButton1.Click, AddressOf Me.xpButton1_Click
  77.             ' 
  78.             ' xpButton2
  79.             ' 
  80.             Me.xpButton2.Location = New System.Drawing.Point(400, 120)
  81.             Me.xpButton2.Name = "xpButton2"
  82.             Me.xpButton2.Size = New System.Drawing.Size(136, 40)
  83.             Me.xpButton2.TabIndex = 1
  84.             Me.xpButton2.Text = "xpButton2"
  85.             AddHandler Me.xpButton2.Click, AddressOf Me.xpButton2_Click
  86.             ' 
  87.             ' dropDownTreeView1
  88.             ' 
  89.             Me.dropDownTreeView1.Controls.Add(Me.dropDownTreeView1.TreeView)
  90.             Me.dropDownTreeView1.Location = New System.Drawing.Point(336, 48)
  91.             Me.dropDownTreeView1.Name = "dropDownTreeView1"
  92.             Me.dropDownTreeView1.Size = New System.Drawing.Size(216, 22)
  93.             Me.dropDownTreeView1.TabIndex = 2
  94.             ' 
  95.             ' dropDownTreeView1.TreeView
  96.             ' 
  97.             Me.dropDownTreeView1.TreeView.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  98.             Me.dropDownTreeView1.TreeView.ImageList = Me.imageList1
  99.             Me.dropDownTreeView1.TreeView.Indent = 10
  100.             Me.dropDownTreeView1.TreeView.Location = New System.Drawing.Point(0, 0)
  101.             Me.dropDownTreeView1.TreeView.Name = ""
  102.             Me.dropDownTreeView1.TreeView.Nodes.AddRange(New System.Windows.Forms.TreeNode() { _
  103.                                     New System.Windows.Forms.TreeNode("My Computer", 2, 2, New System.Windows.Forms.TreeNode() { _
  104.                                                            New System.Windows.Forms.TreeNode("System (C:)", 1, 1, New System.Windows.Forms.TreeNode() { _
  105.                                                                                   New System.Windows.Forms.TreeNode("Windows", New System.Windows.Forms.TreeNode() { _
  106.                                                                                                         New System.Windows.Forms.TreeNode("System")}), _
  107.                                                                                   New System.Windows.Forms.TreeNode("Temp", New System.Windows.Forms.TreeNode() { _
  108.                                                                                                         New System.Windows.Forms.TreeNode("File.ext", 3, 3)})}), _
  109.                                                            New System.Windows.Forms.TreeNode("Data (D:)", 1, 1, New System.Windows.Forms.TreeNode() { _
  110.                                                                                    New System.Windows.Forms.TreeNode("Projects", New System.Windows.Forms.TreeNode() { _
  111.                                                                                                        New System.Windows.Forms.TreeNode("Main.exe", 3, 3), _
  112.                                                                                                        New System.Windows.Forms.TreeNode("Readme.txt", 3, 3)}), _
  113.                                                                                    New System.Windows.Forms.TreeNode("Software")})})})
  114.             Me.dropDownTreeView1.TreeView.ShowLines = False
  115.             Me.dropDownTreeView1.TreeView.ShowPlusMinus = False
  116.             Me.dropDownTreeView1.TreeView.ShowRootLines = False
  117.             Me.dropDownTreeView1.TreeView.Size = New System.Drawing.Size(0, 150)
  118.             Me.dropDownTreeView1.TreeView.TabIndex = 2
  119.             Me.dropDownTreeView1.TreeView.Visible = False
  120.             ' 
  121.             ' imageList1
  122.             ' 
  123.             Me.imageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
  124.             Me.imageList1.ImageSize = New System.Drawing.Size(16, 16)
  125.             Me.imageList1.ImageStream = (CType((Resources.GetObject("imageList1.ImageStream")), System.Windows.Forms.ImageListStreamer))
  126.             Me.imageList1.TransparentColor = System.Drawing.Color.Transparent
  127.             ' 
  128.             ' colorButton1
  129.             ' 
  130.             Me.colorButton1.CenterColor = System.Drawing.Color.Red
  131.             Me.colorButton1.Location = New System.Drawing.Point(336, 80)
  132.             Me.colorButton1.Name = "colorButton1"
  133.             Me.colorButton1.Size = New System.Drawing.Size(88, 23)
  134.             Me.colorButton1.TabIndex = 3
  135.             ' 
  136.             ' autoTextBox1
  137.             ' 
  138.             Me.autoTextBox1.AutoCompleteHeader = "Test"
  139.             Me.autoTextBox1.Location = New System.Drawing.Point(24, 48)
  140.             Me.autoTextBox1.Name = "autoTextBox1"
  141.             Me.autoTextBox1.Size = New System.Drawing.Size(104, 21)
  142.             Me.autoTextBox1.TabIndex = 4
  143.             Me.autoTextBox1.Text = "autoTextBox1"
  144.             ' 
  145.             ' comboBoxEx1
  146.             ' 
  147.             Me.comboBoxEx1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
  148.             Me.comboBoxEx1.Flags = NETXP.Controls.AutoCompleteFlags.FileSystem Or NETXP.Controls.AutoCompleteFlags.URLHistory Or NETXP.Controls.AutoCompleteFlags.URLMRU
  149.             Me.comboBoxEx1.ImageIndex = 3
  150.             Me.comboBoxEx1.ImageList = Me.imageList1
  151.             Me.comboBoxEx1.Location = New System.Drawing.Point(24, 16)
  152.             Me.comboBoxEx1.MRUHive = NETXP.Controls.MRUKeyHive.CurrentUser
  153.             Me.comboBoxEx1.MRUKey = "Software\\Microsoft\\Internet Explorer\\TypedURLs"
  154.             Me.comboBoxEx1.Name = "comboBoxEx1"
  155.             Me.comboBoxEx1.Size = New System.Drawing.Size(528, 21)
  156.             Me.comboBoxEx1.TabIndex = 5
  157.             Me.comboBoxEx1.Text = "comboBoxEx1"
  158.             ' 
  159.             ' graph1
  160.             ' 
  161.             Me.graph1.AxisLabelFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25F, System.Drawing.FontStyle.Bold)
  162.             Me.graph1.fMaxX = 1
  163.             Me.graph1.fMaxY = 1
  164.             Me.graph1.fMinX = 0
  165.             Me.graph1.fMinY = 0
  166.             Me.graph1.HeaderColor = System.Drawing.SystemColors.ActiveCaption
  167.             Me.graph1.HeaderFont = New System.Drawing.Font("Arial", 16.0F)
  168.             Me.graph1.Is3D = False
  169.             Me.graph1.LineColor = System.Drawing.Color.Empty
  170.             Me.graph1.LOBF = False
  171.             Me.graph1.LOBFColor = System.Drawing.Color.Empty
  172.             Me.graph1.Location = New System.Drawing.Point(24, 112)
  173.             Me.graph1.Name = "graph1"
  174.             Me.graph1.Size = New System.Drawing.Size(352, 280)
  175.             Me.graph1.TabIndex = 6
  176.             Me.graph1.Text = "graph1"
  177.             Me.graph1.XAxisColor = System.Drawing.SystemColors.ControlText
  178.             Me.graph1.XAxisLabel = "X axis"
  179.             Me.graph1.YAxisColor = System.Drawing.SystemColors.ControlText
  180.             Me.graph1.YAxisLabel = "Y axis"
  181.             ' 
  182.             ' maskedTextBox1
  183.             ' 
  184.             Me.maskedTextBox1.Location = New System.Drawing.Point(400, 168)
  185.             Me.maskedTextBox1.Masked = NETXP.Controls.Mask.IpAddress
  186.             Me.maskedTextBox1.Name = "maskedTextBox1"
  187.             Me.maskedTextBox1.Size = New System.Drawing.Size(144, 20)
  188.             Me.maskedTextBox1.TabIndex = 7
  189.             Me.maskedTextBox1.Text = ""
  190.             ' 
  191.             ' skinnedPanel1
  192.             ' 
  193.             Me.skinnedPanel1.BackColor = System.Drawing.Color.Transparent
  194.             Me.skinnedPanel1.Controls.Add(Me.xpGroupBox1)
  195.             Me.skinnedPanel1.Location = New System.Drawing.Point(392, 264)
  196.             Me.skinnedPanel1.Name = "skinnedPanel1"
  197.             Me.skinnedPanel1.Size = New System.Drawing.Size(160, 136)
  198.             Me.skinnedPanel1.TabIndex = 8
  199.             Me.skinnedPanel1.Text = "skinnedPanel1"
  200.             ' 
  201.             ' xpGroupBox1
  202.             ' 
  203.             Me.xpGroupBox1.BackColor = System.Drawing.SystemColors.Control
  204.             Me.xpGroupBox1.Controls.Add(Me.xpCheckBox1)
  205.             Me.xpGroupBox1.Location = New System.Drawing.Point(32, 16)
  206.             Me.xpGroupBox1.Name = "xpGroupBox1"
  207.             Me.xpGroupBox1.Size = New System.Drawing.Size(120, 112)
  208.             Me.xpGroupBox1.TabIndex = 0
  209.             Me.xpGroupBox1.TabStop = False
  210.             Me.xpGroupBox1.Text = "xpGroupBox1"
  211.             ' 
  212.             ' xpCheckBox1
  213.             ' 
  214.             Me.xpCheckBox1.BackColor = System.Drawing.Color.Transparent
  215.             Me.xpCheckBox1.Location = New System.Drawing.Point(16, 32)
  216.             Me.xpCheckBox1.Name = "xpCheckBox1"
  217.             Me.xpCheckBox1.TabIndex = 0
  218.             Me.xpCheckBox1.Text = "xpCheckBox1"
  219.             ' 
  220.             ' xpButton3
  221.             ' 
  222.             Me.xpButton3.Location = New System.Drawing.Point(408, 200)
  223.             Me.xpButton3.Name = "xpButton3"
  224.             Me.xpButton3.Size = New System.Drawing.Size(128, 23)
  225.             Me.xpButton3.TabIndex = 1
  226.             Me.xpButton3.Text = "Test &About Box"
  227.             AddHandler Me.xpButton3.Click, AddressOf Me.xpButton3_Click
  228.             ' 
  229.             ' xpButton4
  230.             ' 
  231.             Me.xpButton4.Location = New System.Drawing.Point(408, 232)
  232.             Me.xpButton4.Name = "xpButton4"
  233.             Me.xpButton4.Size = New System.Drawing.Size(128, 23)
  234.             Me.xpButton4.TabIndex = 9
  235.             Me.xpButton4.Text = "Test &Wizard"
  236.             AddHandler Me.xpButton4.Click, AddressOf Me.xpButton4_Click
  237.             ' 
  238.             ' Form1
  239.             ' 
  240.             Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  241.             Me.ClientSize = New System.Drawing.Size(576, 414)
  242.             Me.Controls.Add(Me.xpButton4)
  243.             Me.Controls.Add(Me.skinnedPanel1)
  244.             Me.Controls.Add(Me.maskedTextBox1)
  245.             Me.Controls.Add(Me.graph1)
  246.             Me.Controls.Add(Me.comboBoxEx1)
  247.             Me.Controls.Add(Me.autoTextBox1)
  248.             Me.Controls.Add(Me.colorButton1)
  249.             Me.Controls.Add(Me.dropDownTreeView1)
  250.             Me.Controls.Add(Me.xpButton2)
  251.             Me.Controls.Add(Me.xpButton1)
  252.             Me.Controls.Add(Me.xpButton3)
  253.             Me.Name = "Form1"
  254.             Me.Text = "Form1"
  255.             Me.skinnedPanel1.ResumeLayout(False)
  256.             Me.xpGroupBox1.ResumeLayout(False)
  257.             Me.ResumeLayout(False)
  258.         End Sub
  259. #End Region
  260.  
  261.         <STAThread()> _
  262.         Public Shared Sub Main(ByVal args As String())
  263.             Application.Run(New Form1)
  264.         End Sub
  265.  
  266.         Private Sub xpButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  267.             Dim bh As NETXP.Controls.BalloonHelp
  268.             bh = New NETXP.Controls.BalloonHelp
  269.             bh.CloseOnMouseClick = True
  270.             bh.CloseOnDeactivate = True
  271.             bh.CloseOnKeyPress = True
  272.             bh.Caption = "Test"
  273.             bh.Content = "Something to think about"
  274.             bh.ShowBalloon(Me.xpButton1)
  275.         End Sub
  276.  
  277.         Private Sub xpButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  278.             Dim alrt As NETXP.Controls.DesktopAlert
  279.             alrt = New NETXP.Controls.DesktopAlert("test", "aaaa", "akjb")
  280.             alrt.Show()
  281.         End Sub
  282.  
  283.         Private Sub xpButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  284.             Dim b As AboutBox = New AboutBox
  285.             b.ShowDialog(Me)
  286.         End Sub
  287.  
  288.         Private Sub xpButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs)
  289.             Dim t As WizardTest = New WizardTest
  290.             t.ShowDialog(Me)
  291.         End Sub
  292.     End Class
  293. End Namespace
  294.