Results 1 to 11 of 11
Thread: VB.NET
Hybrid View
-
23rd April 2014 00:59 #1
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: , , . .
-
23rd April 2014 01:55 #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.
-
23rd April 2014 12:57 #3
visual-a . , - , , , . , , scheduling , .
(daypattern), ( , ) . , , , . (offdays), , , . , ( pattern, offdays) , , , , .. , , , ..
, , , - , . ( ) , , ( , , ): , , . .
-
23rd April 2014 13:57 #4
Join Date: Apr:2006
Location:
Posts: 8,666
. VB profiler, .net .
handler? , .
-
23rd April 2014 14:58 #5
, :
1. , ? ?
2. Me.SuspendLayout() Me.ResumeLayout() /
3. , AddHandler: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()
-
28th April 2014 19:29 #6
, ?
, :
, ,
200 300 msCode: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
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




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in