Comments by wiswalld (Top 30 by date)

Sorry the error is

The parameterized query '(@firstname nvarchar(4000),@lastname nvarchar(4000))Insert into ' expects the parameter '@firstname', which was not supplied.

I get the error

The variable name '@firstname' has already been declared. Variable names must be unique within a query batch or stored procedure.

I used this and it now works

http://forums.asp.net/t/1009841.aspx/1

An error occured during local report processing. The definition of the report 'Main Report' is invalid. An unspecified error occured in Report Processing. Could not load file or assmebly 'Microsoft.ReportViewer.ProcessingObjectModel.Version=8.0.0.0 Culture=Neutral, Public Key Token = b03f5f7f11d50a3a' or one of its dependancies. The system can not find the file specified.

Forget it. It was not in my bin folder.

I added an xml file to my project but when it tries to open it say it cannot find the file

Dim dsPubs As New DataSet()
dsPubs.ReadXml("Vehicles.xml")
Me.DataGridView1.DataSource = dsPubs.Tables(0)


Me.ComboBox1.DataSource = dsPubs.Tables(0)
Me.ComboBox1.DisplayMember = "MAKE_MODEL_DESCRIPTION"

Me.ComboBox2.DataSource = dsPubs.Tables(0)
Me.ComboBox2.DisplayMember = "MODEL_DESCRIPTION"

The hard coding of the bitmap location is just for a test.

The problem I have is I can rotate the bitmap just fine. But when I add it to the panel it is the original (not rotated). I did not add the code for adding the bitmap to the panel as I am not sure how.

Dim pb As New PictureBox
pb.SizeMode = PictureBoxSizeMode.AutoSize
pb.Image = imagetwo
pb.Location = New Point(MainPanel.Width / 2 - pb.Width / 2, MainPanel.Height / 2 - pb.Height / 2)
MainPanel.Controls.Add(pb)
pb.BringToFront()

So I am able to rotate the source bitmap just fine but when I put it on the other panel it is not rotated

I took out some stuff I had thrown in there

Public Class Form1
Dim imagetwo As Bitmap
Dim angle As Integer = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetStyle(ControlStyles.DoubleBuffer, True)
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
'imagetwo = New Bitmap("C:\Documents and Settings\wiswalld\My Documents\DEP Police Patch.bmp")
imagetwo = New Bitmap(PictureBox1.Image)
imagetwo.MakeTransparent(Color.Black)
'gameloop.start()

WirePBs(Me)
Dim mi As New MenuItem("Delete")
AddHandler mi.Click, AddressOf mi_Click
cm.MenuItems.Add(mi)
For Each ctl As Control In Me.Controls
If TypeOf ctl Is PictureBox Then
AddHandler ctl.Click, AddressOf sourcePB_Click
End If
Next
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.TranslateTransform(90, 90)
e.Graphics.RotateTransform(angle)
e.Graphics.DrawImage(imagetwo, -50, -50, 100, 100)
e.Graphics.ResetTransform()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.angle += 5
Me.Refresh()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.PictureBox1.Image = New Bitmap("C:\Documents and Settings\wiswalld\My Documents\DEP Police Patch.bmp")
imagetwo = New Bitmap(PictureBox1.Image)
imagetwo.MakeTransparent(Color.Black)
End Sub

Private pb As PictureBox = Nothing
Dim currentPicBox As PictureBox
Private cm As New ContextMenu()
Private targetPB As PictureBox
Private Sub WirePBs(ByVal cont As Control)
For Each ctl As Control In cont.Controls
If TypeOf ctl Is PictureBox Then
Dim pb As PictureBox = DirectCast(ctl, PictureBox)
'sizers.Add(New PBsizer(pb, pb.Parent))
ElseIf ctl.HasChildren Then
WirePBs(ctl)
End If
Next
End Sub
Private startX, startY As Integer

Private Sub targetPB_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
startX = e.X
startY = e.Y
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
targetPB = sender
End If
End Sub

Private Sub targetPB_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim pb As PictureBox = CType(sender, PictureBox)
pb.Location = New Point(pb.Left + e.X - startX, pb.Top + e.Y - startY)
End If
End Sub

Private Sub mi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
MainPanel.Controls.Remove(targetPB)
End Sub

Private Sub sourcePB_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim pb As New PictureBox
pb.SizeMode = PictureBoxSizeMode.AutoSize
'pb.Image = CType(sender, PictureBox).Image
pb.Image = imagetwo
pb.Location = New Point(MainPanel.Width / 2 - pb.Width / 2, MainPanel.Height / 2 - pb.Height / 2)
pb.ContextMenu = cm
AddHandler pb.MouseDown, AddressOf targetPB_MouseDown
AddHandler pb.MouseMove, AddressOf targetPB_MouseMove
MainPanel.Controls.Add(pb)
pb.BringToFront()
End Sub

End Class

Here is what I have come up with but I cannot figure out how to use the bitmap as the sourcePB

Public Class Form1
Dim imagetwo As Bitmap
Dim angle As Integer = 0


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetStyle(ControlStyles.DoubleBuffer, True)
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
'imagetwo = New Bitmap("C:\Documents and Settings\wiswalld\My Documents\DEP Police Patch.bmp")
imagetwo = New Bitmap(PictureBox1.Image)
imagetwo.MakeTransparent(Color.Black)
'gameloop.start()

WirePBs(Me)
Dim mi As New MenuItem("Delete")
AddHandler mi.Click, AddressOf mi_Click
cm.MenuItems.Add(mi)
For Each ctl As Control In Me.Controls
If TypeOf ctl Is PictureBox Then
AddHandler ctl.Click, AddressOf sourcePB_Click
End If
Next
End Sub

Private Sub gameloop_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gameloop.Tick
angle += 5
Me.Refresh()
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.TranslateTransform(90, 90)
e.Graphics.RotateTransform(angle)
e.Graphics.DrawImage(imagetwo, -50, -50, 100, 100)
e.Graphics.ResetTransform()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.angle += 5
Me.Refresh()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.PictureBox1.Image = New Bitmap("C:\Documents and Settings\wiswalld\My Documents\DEP Police Patch.bmp")
imagetwo = New Bitmap(PictureBox1.Image)
imagetwo.MakeTransparent(Color.Black)
End Sub


Private Sub Button1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseWheel
Me.angle += 5
Me.Refresh()
End Sub



Private pb As PictureBox = Nothing
Dim currentPicBox As PictureBox
Private cm As New ContextMenu()
Private targetPB As PictureBox
Private Sub WirePBs(ByVal cont As Control)
For Each ctl As Control In cont.Controls
If TypeOf ctl Is PictureBox Then
Dim pb As PictureBox = DirectCast(ctl, PictureBox)
'sizers.Add(New PBsizer(pb, pb.Parent))
ElseIf ctl.HasChildren Then
WirePBs(ctl)
End If
Next
End Sub
Private startX, startY As Integer

Private Sub targetPB_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
startX = e.X
startY = e.Y
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
targetPB = sender
End If
End Sub

Private Sub targetPB_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim pb As PictureBox = CType(sender, PictureBox)
pb.Location = New Point(pb.Left + e.X - startX, pb.Top + e.Y - startY)
End If
End Sub

Private Sub mi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
MainPanel.Controls.Remove(targetPB)
End Sub

Private Sub sourcePB_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim pb As New PictureBox
pb.SizeMode = PictureBoxSizeMode.AutoSize
'pb.Image = CType(sender, PictureBox).Image
pb.Image = imagetwo
pb.Location = New Point(MainPanel.Width / 2 - pb.Width / 2, MainPanel.Height / 2 - pb.Height / 2)
pb.ContextMenu = cm
AddHandler pb.MouseDown, AddressOf targetPB_MouseDown
AddHandler pb.MouseMove, AddressOf targetPB_Mou

and do you mean use a panel as the source because now I use a picture box as the source then rotate then add the image to the panel

I am not sure how to use the e.Graphics.RotateTransform method. I have been researching it all morning but all examples add some text or lines. Kinda new at this graphics stuff.

Imports SHDocVw
Imports System.Diagnostics
Imports System.Threading
Imports mshtml
Imports System.Net



Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If IsProcessOpen("iexplore") Then
MessageBox.Show("IE is now open!")
Else
MessageBox.Show("IE is now closed!")
End If
End Sub

Public Function IsProcessOpen(ByVal name As String) As Boolean
For Each clsProcess As Process In Process.GetProcesses
If clsProcess.ProcessName.Contains(name) Then
Return True
End If
Return False
Next
End Function
End Class

I must be missing something or a reference because I always get closed

I don't know why but it still will not work. always says Closed

I get a handle like --- 000D0AC8

That make sense? And if it does then I get nothing

The code I posted incorrectly works with notepad but I was trying it with Access (the program I will use it on is at work but wanted to try access) I get nothing. I used Spy++ to get the name of the handle as "Form1" but not sure how to get to the child.

That looks like the way I will go

I thought about that and when they log off it would store the log off time. But I read that could really bloat my database. I would somehow need to delete that record when they log out.

I can't use a mousedown event as that does something else

Private pb As PictureBox = Nothing
Sub RotatePicture(ByVal sender, ByVal e)
Dim ctl As Control
For Each ctl In Me.LeftPanel1.Controls
If TypeOf ctl Is PictureBox Then
'If e.Button = MouseButtons.Right Then
Dim pb As PictureBox = CType(sender, PictureBox)
'Dim pb As PictureBox = CType(sender, PictureBox)
Dim pic As Image = pb.Image
Dim wid As Integer
Dim hgt As Integer
Dim X As Integer
Dim Y As Integer
Dim input As New Bitmap(pb.Image)
wid = input.Width
hgt = input.Height
Dim output As New Bitmap(hgt, wid)

For X = 0 To wid - 1
For Y = 0 To hgt - 1
output.SetPixel(hgt - Y - 1, X, _
input.GetPixel(X, Y))
Next Y
Next X
pb.Image = output
'End If
End If
Next
End Sub

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
RotatePicture(sender, e)

End Sub

Error: Unable to cast object of type 'System.Windows.Forms.ToolStripMenuItem' to type 'System.Windows.Forms.PictureBox'.

For testing purposes I have shortened the code to just rotate 90 degrees. I can not however seem to select the image.

Error - Object reference not set to an instance of an object.
on line: Dim input As New Bitmap(pb.Image)

Maybe I am going about this the wrong way. I have this function and I call it from a contextmenustrip
Rotate()

Function Rotate()
Dim ctl As Control
For Each ctl In Me.LeftPanel1.Controls
If TypeOf ctl Is PictureBox Then
Dim pb As PictureBox = CType(ctl, PictureBox)
Dim pic As Image = pb.Image
Dim wid As Integer
Dim hgt As Integer
Dim X As Integer
Dim Y As Integer
Dim input As New Bitmap(pb.Image)
wid = input.Width
hgt = input.Height
Dim output As New Bitmap(hgt, wid)

For X = 0 To wid - 1
For Y = 0 To hgt - 1
output.SetPixel(hgt - Y - 1, X, _
input.GetPixel(X, Y))
Next Y
Next X
pb.Image = output
End If
Next
End Function

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
Rotate()

End Sub

I was thinking something like this but it will not work from a toolstrip

Unable to cast object of type 'System.Windows.Forms.ToolStripMenuItem' to type 'System.Windows.Forms.PictureBox'.

For Each ctrl As Control In LeftPanel1.Controls
If TypeOf ctrl Is PictureBox Then
Dim myPicBox As PictureBox = sender
'Dim bm_in As Image = sender.image

Dim bm_in As New Bitmap(myPicBox.Image)
' Make an array of points defining the
' image's corners.
Dim wid As Single = bm_in.Width
Dim hgt As Single = bm_in.Height
Dim corners As Point() = { _
New Point(0, 0), _
New Point(wid, 0), _
New Point(0, hgt), _
New Point(wid, hgt)}
' Translate to center the bounding box at the origin.
Dim cx As Single = wid / 2
Dim cy As Single = hgt / 2
Dim i As Long
For i = 0 To 3
corners(i).X -= cx
corners(i).Y -= cy
Next i
' Rotate.
Dim theta As Single = Single.Parse(-5) * PI / 180.0
Dim sin_theta As Single = Sin(theta)
Dim cos_theta As Single = Cos(theta)
Dim X As Single
Dim Y As Single
For i = 0 To 3
X = corners(i).X
Y = corners(i).Y
corners(i).X = X * cos_theta + Y * sin_theta
corners(i).Y = -X * sin_theta + Y * cos_theta
Next i
' Translate so X >= 0 and Y >=0 for all corners.
Dim xmin As Single = corners(0).X
Dim ymin As Single = corners(0).Y
For i = 1 To 3
If xmin > corners(i).X Then xmin = corners(i).X
If ymin > corners(i).Y Then ymin = corners(i).Y
Next i
For i = 0 To 3
corners(i).X -= xmin
corners(i).Y -= ymin
Next i
' Create an output Bitmap and Graphics object.
Dim bm_out As New Bitmap(CInt(-2 * xmin), CInt(-2 * ymin))
Dim gr_out As Graphics = Graphics.FromImage(bm_out)
' Drop the last corner lest we confuse DrawImage,
' which expects an array of three corners.
ReDim Preserve corners(2)
' Draw the result onto the output Bitmap.
gr_out.DrawImage(bm_in, corners)
' Display the result.
myPicBox.Image = bm_out

End If
Next

Sorry for the picturebox rotate I need to rotate the image. The first line is the problem. I can't figure out how to code that part. Drawing a complete blank

My filter works except for the hours part. If I say Smith ends at 1300 and the time is anything starting with 13 (lets say 1305) he will still show as on even though he is off.

Date - 01/08/2011 Time - 1305


Name StartDate STime EndDate ETime
Smith 01/08/2011 0700 01/08/2011 1300