Hi:
I need to the a Timetable programme and I should like to move (Drag & Drop) textboxes contents to an array of textboxes "days / times".
I have seen your example but I can't do it working.
The code I have I just Attache. Can you help me please?
Kind regards
Rui Maconald
UN Online Volunteer
----------------------------------------------------------------------------
Option Strict On
Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System
Imports System.Web.UI
Imports System.Globalization
Imports System.Runtime.Serialization
<Serializable()> _
Public Class Form1
Const CtrlMask As Byte = 8
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.Width = MDIParent1.Width
Panel1.Width = 950
Application.DoEvents()
Application.UseWaitCursor = False
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Application.UseWaitCursor = True
Me.MdiParent = MDIParent1
Dim nrTempos As Integer
Dim Max As Integer
Dim diaSemana As Integer
Dim lblMes As New Label
Dim nrMes As Integer
nrMes = Month(Now())
lblMes.Text = MonthName(nrMes)
lblMes.Top = 10
lblMes.Left = 10
lblMes.ForeColor = Color.Blue
Panel1.Controls.Add(lblMes)
nrTempos = 7
Dim calendario As New GregorianCalendar
Max = calendario.GetDaysInMonth(Year(Now()), Month(Now()))
Dim sHora(8) As String '= {"Hora", "", "09:00-10:00", "10:00-11:00", "11:00-12:00", "12:00-13:00", "14:00-15:00", "15:00-16:00", "16:00-17:00"}
ReDim Preserve sHora(0)
sHora(0) = ""
ReDim Preserve sHora(1)
sHora(1) = ""
ReDim Preserve sHora(2)
sHora(2) = "09:00-10:00"
ReDim Preserve sHora(3)
sHora(3) = "10:00-11:00"
ReDim Preserve sHora(4)
sHora(4) = "11:00-12:00"
ReDim Preserve sHora(5)
sHora(5) = "12:00-13:00"
ReDim Preserve sHora(6)
sHora(6) = "14:00-15:00"""
ReDim Preserve sHora(7)
sHora(7) = "15:00-16:00"
ReDim Preserve sHora(8)
sHora(8) = "16:00-17:00"
'Criao dias ms
Dim Labels(Max) As Label
Dim lblHora(8) As Label
For i = 0 To Max
Labels(i) = New Label
Labels(i).Top = 35
Labels(i).BorderStyle = BorderStyle.FixedSingle
Labels(i).ForeColor = Color.Blue
If i = 0 Then
Labels(i).Width = 30
Labels(i).Left = 10 + i * 27
Labels(i).Text = "Tp"
'Label das Horas
lblHora(0) = New Label
lblHora(0).Top = 35
lblHora(0).Width = 86
lblHora(0).BorderStyle = BorderStyle.FixedSingle
lblHora(0).Left = 37
lblHora(0).ForeColor = Color.Blue
lblHora(0).Text = sHora(0)
Else
Labels(i).Width = 30
Labels(i).Left = 96 + i * 27
Labels(i).Text = i.ToString
End If
Labels(i).TextAlign = ContentAlignment.MiddleCenter
Labels(i).Visible = True
Panel1.Controls.Add(Labels(i))
Panel1.Controls.Add(lblHora(0))
Next
'Criao dias da semana
Dim diaSem(Max) As Label
For i = 0 To Max
diaSem(i) = New Label
diaSem(i).Width = 30
diaSem(i).Top = 60
diaSem(i).BorderStyle = BorderStyle.Fixed3D
If i = 0 Then
diaSem(i).Text = " "
diaSem(i).Left = 10 + i * 27
'Label das Horas
lblHora(1) = New Label
lblHora(1).Top = 60
lblHora(1).Width = 86
lblHora(1).BorderStyle = BorderStyle.Fixed3D
lblHora(1).Left = 37
lblHora(1).Text = ""
Else
diaSem(i).Left = 96 + i * 27
diaSemana = Weekday(Convert.ToDateTime(Format(i, "00") & "/" & Month(Now()) & "/" & Year(Now())))
If diaSemana = 2 Then
diaSem(i).Text = "Seg"
ElseIf diaSemana = 3 Then
diaSem(i).Text = "Ter"
ElseIf diaSemana = 4 Then
diaSem(i).Text = "Qua"
ElseIf diaSemana = 5 Then
diaSem(i).Text = "Qui"
ElseIf diaSemana = 6 Then
diaSem(i).Text = "Sex"
ElseIf diaSemana = 7 Then
diaSem(i).Text = "Sb"
diaSem(i).BackColor = Color.Gray
ElseIf diaSemana = 1 Then
diaSem(i).Text = "Dom"
diaSem(i).BackColor = Color.Gray
End If
End If
diaSem(i).TextAlign = ContentAlignment.MiddleCenter
diaSem(i).Visible = True
Panel1.Controls.Add(diaSem(i))
Panel1.Controls.Add(lblHora(1))
Next
'Criao de Horrios
Dim TextBoxes(nrTempos, Max) As TextBox
For x = 1 To nrTempos
For i = 0 To Max
TextBoxes(x, i) = New TextBox
TextBoxes(x, i).Width = 30
TextBoxes(x, i).Top = 60 + x * 23
TextBoxes(x, i).TextAlign = HorizontalAlignment.Center
TextBoxes(x, i).Visible = True
If i = 0 Then
TextBoxes(x, i).Text = x.ToString
TextBoxes(x, i).Enabled = False
TextBoxes(x, i).Left = 10 + i * 27
'Label das Horas
lblHora(x + 1) = New Label
lblHora(x + 1).Top = 60 + x * 23
lblHora(x + 1).Width = 86
lblHora(x + 1).BorderStyle = BorderStyle.Fixed3D
lblHora(x + 1).Left = 37
lblHora(x + 1).Text = sHora(x + 1)
lblHora(x + 1).ForeColor = Color.Blue
Else
diaSemana = Weekday(Convert.ToDateTime(Format(i, "00") & "/" & Month(Now()) & "/" & Year(Now())))
If diaSemana = 7 Then
TextBoxes(x, i).Text = "Sb"
TextBoxes(x, i).BackColor = Color.Gray
ElseIf diaSemana = 1 Then
TextBoxes(x, i).Text = "Dom"
TextBoxes(x, i).BackColor = Color.Gray
Else
TextBoxes(x, i).AllowDrop = True
End If
TextBoxes(x, i).Left = 96 + i * 27
TextBoxes(x, i).AllowDrop = True
End If
Panel1.Controls.Add(TextBoxes(x, i))
Panel1.Controls.Add(lblHora(x + 1))
Next
Next
For x = 1 To 7
For i = 0 To Max
AddHandler TextBoxes(x, i).MouseDown, AddressOf TextBox1_MouseDown
AddHandler TextBoxes(x, i).DragDrop, AddressOf TextBox2_DragDrop
AddHandler TextBoxes(x, i).DragEnter, AddressOf TextBox2_DragEnter
Next i
Next
End Sub
'This is the Origin textbox
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
TextBox1.SelectAll()
' Invoke the drag and drop operation.
TextBox1.DoDragDrop(TextBox1.SelectedText, DragDropEffects.Move Or DragDropEffects.Copy)
End If
End Sub
'And this Textbox2 was created to support the action for Labels that I call TextBoxes
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
TextBox2.Text = e.Data.GetData(DataFormats.Text).ToString
' If the Ctrl key was not pressed, remove the source text to effect a
' drag-and-drop move.
If (e.KeyState And CtrlMask) <> CtrlMask Then
TextBox1.Text = ""
End If
End Sub
' '' <summary>
' '' Handles the DragEnter event for the TextBox that allows dropping. DragEnter is the
' '' event that fires when an object is dragged into the control's bounds.
' '' </summary>
' Check to be sure that the drag content is the correct type for this
' control. If not, reject the drop.
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) Then
' If the Ctrl key was pressed during the drag operation then perform
' a Copy. If not, perform a Move.
If e.Data.GetDataPresent("GestorHorarios.Form1") Then
e.Effect = DragDropEffects.Copy
Else
'There is no Person data.
e.Effect = DragDropEffects.None
End If
'If (e.KeyState And CtrlMask) = CtrlMask Then
'e.Effect = DragDropEffects.Copy
'Else
'e.Effect = DragDropEffects.Move
'End If
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
TextBox2.SelectAll()
' Invoke the drag and drop operation.
TextBox2.DoDragDrop(TextBox2.SelectedText, DragDropEffects.Move Or DragDropEffects.Copy)
End If
End Sub
End ClassWe're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.