Results 1 to 11 of 11

Thread: VB.NET

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Bad to the bone Papesha's Avatar
    Join Date: Oct:2002
    Location:
    Posts: 1,685

    VB.NET

    - VB.NET / MySQL
    (Range) , ( ), , , , .
    , ( ) (Range) .
    , , Panel, . , Handler, , -. 10 () Range 20 ( 200 ) 2-3 . - - -.
    , . Button Panel - ...

    Code:
            ' ,      .   Range=20 
            ReDim DayBox(Range)
            For i = 0 To Range
    
                '       (Range)    Panel, 
                '           
    
                DayBox(i) = New Panel
                DayBox(i).Location = New Point(188 + i * 31, 0)
                DayBox(i).Size = New Size(30, 30)
                DayBox(i).BackColor = Color.Green
                DayBox(i).Name = CStr(i)
    
                Me.Controls.Add(DayBox(i))
    
                '    
                AddHandler DayBox(i).Click, AddressOf Me.HandleDynamicButtonClick
               
            Next
    !
    : , , . .

  2. #2

    Join Date: Apr:2006
    Location:
    Posts: 8,666
    - ? *, . .

    * VB.NET visualbasic dotnet oop shit

    , , ( ivanpetrov+id). 12 , "tasks" () ( , \n \r\n). / . 10-20 , .

    web server + PHP, Perl, Python.

  3. #3
    Bad to the bone Papesha's Avatar
    Join Date: Oct:2002
    Location:
    Posts: 1,685
    visual-a . , - , , , . , , scheduling , .

    (daypattern), ( , ) . , , , . (offdays), , , . , ( pattern, offdays) , , , , .. , , , ..

    , , , - , . ( ) , , ( , , )
    : , , . .

  4. #4

    Join Date: Apr:2006
    Location:
    Posts: 8,666
    . VB profiler, .net .

    handler? , .

  5. #5
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,387
    , :
    1. , ? ?
    2. Me.SuspendLayout() Me.ResumeLayout() /
    3. , AddHandler
    : XaMaB; . 0.42

    In God we Trust (all others must submit a X.509 certificate). , ()

  6. #6
    Registered User hateras's Avatar
    Join Date: Jan:2011
    Location: Kronos III
    Posts: 1,028
    , ?
    , :
    , ,
    Code:
    Public Class Form1
        Const Range = 20
        Const PanelsStartX = 30
        Const PanelsStartY = 30
    
        Private Sub ComponentsTable()
    
            Dim DayBox(10) As System.Windows.Forms.Control
            ReDim DayBox(Range)
    
            pnlCalendarGrid.Controls.Clear()
            'pnlCalendarGrid.Hide()
            'pnlCalendarGrid.Visible = False
            For j = 1 To 10
                For i = 0 To Range
                    '       (Range)    Panel, 
                    '           
                    DayBox(i) = New Panel
                    DayBox(i).Location = New Point(PanelsStartX + i * 31, PanelsStartY + j * 31)
                    DayBox(i).Size = New Size(30, 30)
                    DayBox(i).BackColor = Color.Green
                    DayBox(i).Name = CStr(i)
                    pnlCalendarGrid.Controls.Add(DayBox(i))
    
                    '    
                    AddHandler DayBox(i).Click, AddressOf Me.HandleDynamicButtonClick
    
                Next
            Next
            'pnlCalendarGrid.Show()
            'pnlCalendarGrid.Visible = True
        End Sub
    
        Private Sub HandleDynamicButtonClick(sender As Object, e As System.EventArgs)
            If TypeOf sender Is Panel Then
                Dim mypanel = CType(sender, Panel)
                TextBox1.Text = mypanel.Name
            End If
        End Sub
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim stopWatch As New Stopwatch()
            stopWatch.Start()
            Call ComponentsTable()
            stopWatch.Stop()
            TextBox1.Text = CStr(stopWatch.ElapsedMilliseconds)
        End Sub
    End Class
    200 300 ms
    Hide/Show Visible False/True /.. , , /
    ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |