Hi CP, how to create an interface like this ? "http://cid-038dd0e1974d763e.skydrive.live.com/self.aspx/Images/Kaspersky tab.JPG" Regards,

For1206

Hi CodeProject , I wrote a javascript to validate the fields on the contact form . But it is working in my system. After deploying in Main server . I am getting BLANK fields values . What is the problem ? This the code

<%@language = "VBscript"%>

<%

set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")

' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xyz"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.update

dim b
b= "Name : " & Request.Form("Name") & vbCrLf
b= b & "Organisation : " & Request.Form("Organisation")& vbCrLf
b= b & "Title : " & Request.Form("Title")& vbCrLf
b= b & "Address : " & Request.Form("Address")& vbCrLf
b= b & "City : " & Request.Form("City")& vbCrLf
b= b & "Country : " & Request.Form("Country")& vbCrLf
b= b & "Email : " & Request.Form("Email")& vbCrLf
b= b & "Phone : " & Request.Form("Phone")& vbCrLf
b= b & "Interesed in : " & Request.Form("category")& vbCrLf
b= b & "Description : " & Request.Form("Description")& vbCrLf

Set objMessage.Configuration = objConfig
objMessage.To ="xyz@gmail.com"
'objMessage.CC ="xyz@xyz.in"
objMessage.From = "info@xyz.in"
objMessage.Subject = "Contact Form - " & Request.Form("Organisation") & vbCrLf
objMessage.TextBody = "High priority - See details below. " & vbCrLf & vbCrLf & b

on error resume next
objMessage.Send
if Err.Number <> 0 then
response.Write "Email sending failed: " & Err.Description & ".<br />"&vbcrlf
else
response.redirect("contact_submit.html")
end If
Response.End
set objMessage = nothing
set objConfig = nothing
%>

Regards,

For1206

Hi Dave, Thanks 4 reply . I already implemented your code in my application .Its made a nice job for me. Thank you very much . Regards,

For1206

Hi Dave , Thanks for reply & Thanks for the Link ,Presently i am using ur code in my application for changing the line startpoint and endpoint and dragging the line also. Can u suggest me in a sample program that how can i move a LineShape control freely around the form with cursor without slipping . This is happening in a sample new form. This is the code i used & its slipping from cursor .

Dim fdragging As Boolean = False
Dim StartX, startY As Integer

Private Sub LineShape1\_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseDown
    fdragging = True
    StartX = e.X
    startY = e.Y
End Sub

Private Sub LineShape1\_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseMove
    Cursor.Current = Cursors.SizeAll
    If fdragging Then
        LineShape1.StartPoint = New Point(LineShape1.StartPoint.X + e.X - StartX, LineShape1.StartPoint.Y + e.Y - startY)
        LineShape1.EndPoint = New Point(LineShape1.EndPoint.X + e.X - StartX, LineShape1.EndPoint.Y + e.Y - startY)
    End If
End Sub

Private Sub LineShape1\_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ShapeContainer1.MouseUp
    fdragging = False
    StartX = 0
    startY = 0
End Sub

its important for me . plz can u suggest any work around ? Regards,

For1206

modified on Tuesday, February 23, 2010 1:57 AM

Hi Dave , Already i am having selections , The problem is on mousemove the line control is moving but if the cursor goes out of the line control its not handling the mousemove i.e, Slipping of Cursor on the cursor . I tried to set the cursor location on the control but not working fine . Regards,

For1206

Hi CP, I am having a LineShape control with MouseDown,MouseUP,MouseMove events.

Dim fdragging As Boolean = False
Dim StartX, startY As Integer

Private Sub LineShape1\_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseDown
    fdragging = True
    StartX = e.X
    startY = e.Y
End Sub

Private Sub LineShape1\_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseMove
    If fdragging Then
        LineShape1.StartPoint = New Point(LineShape1.StartPoint.X + e.X - StartX, LineShape1.StartPoint.Y + e.Y - startY)
        LineShape1.EndPoint = New Point(LineShape1.EndPoint.X + e.X - StartX, LineShape1.EndPoint.Y + e.Y - startY)
        
    End If
End Sub

Private Sub LineShape1\_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ShapeContainer1.MouseUp
    fdragging = False
    StartX = 0
    startY = 0
End Sub

Now i am not able to move the lineshape control freely around the form with cursor like in the design time . Cursor is changing the location so slipping happens . How to stick the cursor to LineShape control. Regards,

For1206

Hi Anubava, There is nothing in my query . Only a small query . on the form there are some ctrls like at design time . On using of CTRL keypress i am selecting the control one by one . Suppose if i select the EDIT Menu -- SelectAll (CTRL + A) then i have to select all the controls present on the form . I have achieved this one using a boolean variable . My idea is to not using of boolean variable & setting the Keyboard.CTRL to true by using some technique .. Regards,

For1206

Hi , Thanks 4 reply , This is the code which i used. if in keyboard CTRL key is pressed . Working fine

If SelectedControls.Count > 1 And Not My.Computer.Keyboard.CtrlKeyDown Then

       'Some functionality for controls like n vb.net Design Editor.         
  Call ExHandles()

End If

if from EDIT Menu -- How to make My.Computer.Keyboard.CtrlKeyDown = true i tried SendKeys -- its hanging the application .may i know how can i implement ? Regards,

For1206

Thanks for reply , suppose from keyboard i pressed CTRL + A then i am doing functionality to select the controls on the panel by checking IF My.Computer.Keyboard.CtrlKeyDown then -- some functionality End If CTRL + A --- SelectAll in EDIT MENU in menubar This menu item is clicked then how can i forcefully IF My.Computer.Keyboard.CtrlKeyDown then its in false but how to make true -- some functionality End If -- the condition is linked with this one . regards,

For1206

Hi CP , I am using My.Computer.Keyboard.CtrlKeyDown in a code , if from keyboard Ctrl key + A is done then My.Computer.Keyboard.CtrlKeyDown - True & i am doing some function. Working Fine. Suppose if from Edit Menu - Select All then how can i project My.Computer.Keyboard.CtrlKeyDown -- (have to be True) due to its False i am not getting the functionality. Regards,

For1206

Hi Dave , Thanks its moving fine . 1) But my LineShape controls is slipping from the mouse pointer while moving . So not able to drag the line in a correct way ,Freely . 2) I am able to get the traces of line if resized on the Start point or End Point handles . & i have to refresh the Panel i.e., Parent of the Shapecontainer . My way of doing the things . SplitContainer -> Panel1 -> New Panel at runtime -- This Panel is parent for the shape controls . The Same problem also coming for RectangleShape & Oval Shape also. I have to press the mousebutton very forcefully & drag the control otherwise slipping from my mousepointer . What to do ??

For1206

modified on Friday, February 19, 2010 12:43 AM

Hi Dave , I m using a split container.On Panel1 i created a panel and on that i am drawing the line .& trying to move on the MouseDown ,Move,Up for LineShape Controls. But i am not able to drag the line while placing the cursor at any position on the line due to the logic problem exactly & loosing the grip of the line while placing the mousepointer & dragging the line not firing the MouseUp . Regards,

For1206

Hi CodeProject , The problem is I am drawing a LineShape control from Microsoft PowerPacks controls .dll , I am also moving the line when MouseDown,MouseMove,MouseUp, But i am not able to drag the line in the correct position like in VB.net 2005 MouseDown fdragging =true startx =0 starty =0 MouseMove m_control.StartPoint = New Point((m_control.StartPoint.X + e.X) - startx, (m_control.StartPoint.Y + e.Y) - starty) m_control.EndPoint = New Point((m_control.EndPoint.X + e.X - startx), (m_control.EndPoint.Y + e.Y - starty)) MouseUp fdragging = false & the things are i am not able to handle the MouseUp event also after mousemove the pointer is slipping from the line & not able move the line in the correct direction. Regards,

For1206

Hi Dave, These things doesn't workout for me . Bcoz i implemented my custom way to build the application . Clipboard Serializable format but it's not working. Regards,

For1206

Hi CP, I developed an appl. in that i am having controls like textbox, combobox, list box,button ,etc and some other controls from PowerPacks. I implemented successfully Cut/ Copy / Paste of these controls within the application . Now i have to implement the things in Clipboard . How can i serialize the class which is maintaining the list of controls. Public Class Temp Dim lTempControls As List(Of Object) = Nothing End Temp So how can i serialize to clipboard and get all the things when i exit & open the application ? Regards,

For1206

Hi Member, The thing is MDI Form is used as Parent Form .and the child forms u can show in it. So u can cascade all the child forms,etc in the main Form . So make a good design before going in to the coding part. Regards,

For1206

Hii , Here i am creating all controls at runtime i.e, (Textbox,Chkbox,Rb,GridView,Picturebox,Label...... ,RectangleShape,OvalShape,LineShape). How to implement Cut ,Copy ,Paste,Delete for all these types of controls .... 1) Here i am using ContextMenuStrip .--------------Using this how to delete , in that i am having Properties ,Cut,Copy,Paste,Delete,SendToBack,BringToFront If i select, delete or copy or paste or cut it has to do the respective operations for the type of control listed above.How to identify the control. i am getting the sender here as "ToolStripMenuItem" , How can i get the particular Control . How can i identify the Control here ????? 2) if i press the delete button on keyboard , i am doing this Ctr_KeyDown -- event handler If e.KeyCode = Keys.Delete Then If TypeOf sender Is TextBox Then Canvas.Controls.Remove(Sender) ........ But i am not able to delete the Picturebox ,& shape controls(due to it accepts only Control ) Thanks

For1206

Hi, I have a common mousemove/down/up handler for any control placed on the panel at runtime .It's Working fine . I need for moving and resizing controls (labels/textboxes/checkboxes/etc) and shape controls (LineShape ,RectangleShape, OvalShape which are from powerpacks.dll ) which i place on the Panel which are generated at runtime . Is there any Class for creating Control Selection and Resizing Handles for my controls which are present on the panel at runtime ?????? I want to show the selection if user presses the control and able to resize those controls with resizing handles for Any Typeof control (Textbox,Label,.... LineShape,RectangleShape ,OvalShape ) ???? If i release the mouse button after resizing it has to update the size or location of that control same like in vs2005 design time environment but here at runtime . plzzz , Thanks & Regards

For1206

Dim iActiveCol As Integer = e.ColumnIndex Dim iActiveRow As Integer = e.RowIndex If iActiveRow = -1 Then If TypeOf sender Is DataGridView Then Dim sColumnName As String sColumnName = InputBox("Enter Column Name", "ColumnName", CType(ctr, DataGridView).Columns(iActiveCol).HeaderText) If sColumnName <> "" Then CType(ctr, DataGridView).Columns(iActiveCol).HeaderText = sColumnName CType(ctr, DataGridView).ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize Else ' CType(ctr, DataGridView).Columns(iActiveCol).HeaderText = sColumnName '' Here it is erasing the text if i make it clear the text in inputbox and cancel . How to handle this one . **Exit Sub** End If End If End If Just observere the vb 6.0 adding a new tab There it is perfect how can i ge t that ??

For1206

i am creating a control datagridview at runtime . and entering column and row names . I am saving the details of no of columns and rows ,font,borderstyle and normal details in a datatable . item(col,row).value means i am getting the cell information, But i am not getting the columns and rows headers here bcoz it doesnot take -1 . By Which means i can store all these information ?? in a datatable and assing it to back ?

For1206