Comments by KAUTIKPATEL

KAUTIKPATEL 11-Oct-14 0:15am View

http://stackoverflow.com/questions/19726386/sql-query-merge-two-row-data

open this link...and in link see output result should be in my Excel file using merge
row.

KAUTIKPATEL 10-Oct-14 9:08am View

m Stuck on
in datatable same row should be Merge in excel file
when excel file is created...

Invoice_No party
SE60018 Hardi Sachapara
SE60018 Hardi Sachapara
SE70038 Hardi Sachapara

Hardi Sachapara should merge in single cell like

Invoice_No party
SE60018 |-------------------
SE60018 | Hardi Sachapara |
SE70038 | |
|--------------------
above situation should be in excel

KAUTIKPATEL 28-Mar-14 1:49am View

thxxxxx

KAUTIKPATEL 28-Mar-14 1:49am View

nice one...

KAUTIKPATEL 28-Mar-14 1:35am View

Nice one man
But
by calculation is like :
Convert.ToInt32(TextBox1.Text) Convert.ToInt32(TextBox2.Text) Convert.ToInt32(TextBox3.Text) Convert.ToInt32(TextBox4.Text) Convert.ToInt32(TextBox5.Text) Convert.ToInt32(TextBox6.Text) Convert.ToInt32(TextBox7.Text) Convert.ToInt32(TextBox8.Text) Convert.ToInt32(TextBox9.Text) Convert.ToInt32(TextBox10.Text) Convert.ToInt32(TextBox11.Text);

where even textbox is contain Calculation sign retrieving from database

your solution is better for calculation of two value but i have calculate same value with 10 to 12 value.

KAUTIKPATEL 25-Nov-13 1:59am View

Sergey Alexandrovich Kryukov
i Try using hook in win api
and used to multithreading for identify popup is arrise or not,
and vb code is also accepted.

KAUTIKPATEL 25-Nov-13 1:58am View

Dude,to dave
this is post after long research of 15 day,
and i am not looking for direct code instead of then other idea and or any related link.

KAUTIKPATEL 25-Nov-13 1:57am View

Deleted

Dude,
this is post after long research of 15 day,
and i am not looking for direct code instead of then other idea and or any related link.

KAUTIKPATEL 25-Nov-13 1:56am View

Deleted

Dude,
this is post after long research of 15 day,
and i am not looking for direct code instead of then other idea and or any related link.

KAUTIKPATEL 25-Nov-13 0:12am View

Your given link open only google page

KAUTIKPATEL 9-Oct-13 6:30am View

R u serious u dont understand my question??
My quesion is that from given text file data is contain garbage data or not??

KAUTIKPATEL 9-Oct-13 6:28am View

how it identify character is garbage or not?

KAUTIKPATEL 9-Oct-13 1:18am View

In description i clearly explain that "MEANS GIVEN TEXT FILE IS CONTAIN 'GARBAGE' COLLECTION OR NOT." ........!!!!!!!!

KAUTIKPATEL 16-Aug-13 7:00am View

Deleted

I tried INCH to PIXCEL formula but its not working.

KAUTIKPATEL 12-Aug-13 2:43am View

ok thank u :((

KAUTIKPATEL 12-Aug-13 2:42am View

Deleted

DUDE..:(((

lbl.Location = e.Location not proer man..not even in vb or c#

there is not any e.location
i dont think that event argument e has a location Proerty

KAUTIKPATEL 12-Aug-13 2:09am View

as label has not Position property

KAUTIKPATEL 12-Aug-13 2:09am View

I have render label in a panel.
and i try this
.Location = Cursor.Position
its working but location was not exactly.

and

lbl.Position = Cursor.Position
is showing run time error

KAUTIKPATEL 9-Aug-13 6:02am View

acctually,
I want to do same as we select a multiple label or control at form design time.
using mouse dragging and we can see mouse draging caption.

KAUTIKPATEL 9-Aug-13 1:50am View

Why not this is good for you??
You can revart a point na????????

KAUTIKPATEL 9-Aug-13 0:11am View

I already use a 3 event mouseUp ,mouseDown and mouseMove for moving a label at runtime and also use same event for resize a font size.

KAUTIKPATEL 8-Aug-13 4:12am View

i solve it

KAUTIKPATEL 8-Aug-13 2:05am View

ok i solve it

KAUTIKPATEL 7-Aug-13 23:45pm View

Deleted

Above is my code

KAUTIKPATEL 7-Aug-13 23:45pm View

Deleted

Private Sub Label1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
If e.X >= Label1.Width - _margin AndAlso e.X <= Label1.Width + _margin Then
_mouseDownForWidth = True
Label1.Cursor = Cursors.SizeWE
End If
If e.Y >= Label1.Height - _margin AndAlso e.Y <= Label1.Height + _margin Then
_mouseDownForHeight = True
Label1.Cursor = Cursors.SizeNS
End If
If _mouseDownForWidth = True AndAlso _mouseDownForHeight = True Then
Label1.Cursor = Cursors.SizeNWSE
End If

'Start Label Resize Code-------------------------------------------------------
If e.X >= Label1.Width - _margin AndAlso e.X <= Label1.Width + _margin Then
_mouseDownForWidth = True
Label1.Cursor = Cursors.SizeWE
End If
If e.Y >= Label1.Height - _margin AndAlso e.Y <= Label1.Height + _margin Then
_mouseDownForHeight = True
Label1.Cursor = Cursors.SizeNS
End If
If _mouseDownForWidth = True AndAlso _mouseDownForHeight = True Then
Label1.Cursor = Cursors.SizeNWSE
End If
' End Label Resize Code-------------------------------------------------------

End Sub

Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If _mouseDownForWidth = True Then
Label1.Width = (If(e.X < _minLength, _minLength, e.X))
End If
If _mouseDownForHeight = True Then
Label1.Height = (If(e.Y < _minHeight, _minHeight, e.Y))
End If
If _mouseDownForWidth = False AndAlso _mouseDownForHeight = False Then
If e.X >= Label1.Width - _margin AndAlso e.Y >= Label1.Height - _margin Then
Label1.Cursor = Cursors.SizeNWSE
Else
If e.X >= Label1.Width - _margin Then
Label1.Cursor = Cursors.SizeWE
Else
If e.Y >= Label1.Height - _margin Then
Label1.Cursor = Cursors.SizeNS
Else
Label1.Cursor = Me.Cursor
End If
End If
End If
End If

'Start Label Resize Code-------------------------------------------------------

If _mouseDownForWidth = True Then
Label1.Width = (If(e.X < _minLength, _minLength, e.X))
End If
If _mouseDownForHeight = True Then
Label1.Height = (If(e.Y < _minHeight, _minHeight, e.Y))
End If

If _mouseDownForWidth = False AndAlso _mouseDownForHeight = False Then
If e.X >= Label1.Width - _margin AndAlso e.Y >= Label1.Height - _margin Then
Label1.Cursor = Cursors.SizeNWSE
Else
If e.X >= Label1.Width - _margin Then
Label1.Cursor = Cursors.SizeWE
Else
If e.Y >= Label1.Height - _margin Then
Label1.Cursor = Cursors.SizeNS
Else
Label1.Cursor = Me.Cursor
End If
End If
End If
End If

'end Label Resize Code-------------------------------------------------------

End Sub

Private Sub Label1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
_mouseDownForWidth = False
_mouseDownForHeight = False
Label1.Cursor = Me.Cursor

'Start Label Resize Code-------------------------------------------------------

_mouseDownForWidth = False
_mouseDownForHeight = False
Label1.Cursor = Me.Cursor

'End Label Resize Code-------------------------------------------------------
End Sub

KAUTIKPATEL 7-Aug-13 23:35pm View

Deleted

see event care fully
help me

KAUTIKPATEL 7-Aug-13 23:34pm View

Deleted

Private Sub ml_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ml.MouseDown
Dim lbl As Mylabel = CType(sender, Mylabel) 'do no delete
lbl.Flag = Not lbl.Flag
' MsgBox(lbl.Text.ToString())

k = lbl.Name 'do not delete
'------------
' Set the flag
Dragging = True
' Note positions of cursor when pressed
cursorX = e.X
CursorY = e.Y

'Start Label Resize Code-------------------------------------------------------
If e.X >= lbl.Width - _margin AndAlso e.X <= lbl.Width + _margin Then
_mouseDownForWidth = True
lbl.Cursor = Cursors.SizeWE
End If
If e.Y >= lbl.Height - _margin AndAlso e.Y <= lbl.Height + _margin Then
_mouseDownForHeight = True
lbl.Cursor = Cursors.SizeNS
End If
If _mouseDownForWidth = True AndAlso _mouseDownForHeight = True Then
lbl.Cursor = Cursors.SizeNWSE
End If
' End Label Resize Code-------------------------------------------------------

End Sub

Private Sub ml_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ml.MouseMove
Dim lbl As Mylabel = CType(sender, Mylabel)
lbl.Flag = Not lbl.Flag

If Dragging Then
Dim ctrl As Control = CType(sender, Control)
' Move the control according to mouse movement
ctrl.Left = (ctrl.Left + e.X) - cursorX
ctrl.Top = (ctrl.Top + e.Y) - CursorY
' Ensure moved control stays on top of anything it is dragged on to
ctrl.BringToFront()
End If

'Start Label Resize Code-------------------------------------------------------

If _mouseDownForWidth = True Then
lbl.Width = (If(e.X < _minLength, _minLength, e.X))
End If
If _mouseDownForHeight = True Then
lbl.Height = (If(e.Y < _minHeight, _minHeight, e.Y))
End If

If _mouseDownForWidth = False AndAlso _mouseDownForHeight = False Then
If e.X >= lbl.Width - _margin AndAlso e.Y >= lbl.Height - _margin Then
lbl.Cursor = Cursors.SizeNWSE
Else
If e.X >= lbl.Width - _margin Then
lbl.Cursor = Cursors.SizeWE
Else
If e.Y >= lbl.Height - _margin Then
lbl.Cursor = Cursors.SizeNS
Else
lbl.Cursor = Me.Cursor
End If
End If
End If
End If

'end Label Resize Code-------------------------------------------------------

End Sub

Private Sub ml_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ml.MouseUp
Dim lbl As Mylabel = CType(sender, Mylabel)
lbl.Flag = Not lbl.Flag
' Reset the flag
Dragging = False

'Start Label Resize Code-------------------------------------------------------

_mouseDownForWidth = False
_mouseDownForHeight = False
lbl.Cursor = Me.Cursor

'End Label Resize Code-------------------------------------------------------

End Sub

KAUTIKPATEL 7-Aug-13 23:34pm View

Deleted

here is my code

KAUTIKPATEL 7-Aug-13 23:33pm View

Deleted

hurry up plz..today is my dead line

KAUTIKPATEL 7-Aug-13 23:32pm View

Every one plz hurry up...today is my dead line..

KAUTIKPATEL 7-Aug-13 23:28pm View

Deleted

But label has not mouse wheel event

KAUTIKPATEL 7-Aug-13 22:49pm View

Infact it is impossible to do a same thing on single event.
Hope u understand my question.

KAUTIKPATEL 7-Aug-13 22:48pm View

Deleted

Infact it is impossible to do a seme thing on single event.
Hope u understand my question.

KAUTIKPATEL 7-Aug-13 7:38am View

I have got a both code
1).For label move using mouse.
2).For increase or resize a label(Control).

but as its work on same 3 event mouse_UP,mouse_MOVE and mouse down event
its difficult on merge.

KAUTIKPATEL 7-Aug-13 3:45am View

Deleted

Man, When given informative is not informative for me then what can i do?
and about my problem????
Replay behin as not informative because
when othesr user read these then they can give me a proper solution.

KAUTIKPATEL 6-Aug-13 6:16am View

Window app,
and vb.net technology

KAUTIKPATEL 6-Aug-13 4:54am View

not imformative

KAUTIKPATEL 6-Aug-13 4:52am View

any one help me hurry.....!!!!!

KAUTIKPATEL 6-Aug-13 4:52am View

why means?
Its my requirement.

KAUTIKPATEL 6-Aug-13 4:52am View

Deleted

why means?
Its my requirement.

KAUTIKPATEL 5-Aug-13 6:26am View

Its run successfully,but

as my task that I have to select individual label and set a text and other properties
expl,
select label_1 and enter text into textbox and click on set_Button.
then labal should be as textbox value(Text)

KAUTIKPATEL 5-Aug-13 4:16am View

here is mattter that what about another label.
How can i change onother label value or proerties

KAUTIKPATEL 5-Aug-13 4:16am View

Dim flag As Boolean
Private Sub Label1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown, Label2.MouseDown
flag = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If flag = True Then
Label1.Text = TextBox1.Text
flag = False
End If
End Sub

KAUTIKPATEL 5-Aug-13 3:42am View

Maciej Los,
Non of them working....Not satisfied :((((((

KAUTIKPATEL 5-Aug-13 2:42am View

Rohan Leuva , cant understand
example please...

KAUTIKPATEL 3-Aug-13 6:28am View

Deleted

above my given code generate tiff file but not print a label which i set on a form.

KAUTIKPATEL 3-Aug-13 6:27am View

Private Shared Function BitBlt( _
ByVal hdcDest As IntPtr, _
ByVal nXDest As Integer, _
ByVal nYDest As Integer, _
ByVal nWidth As Integer, _
ByVal nHeight As Integer, _
ByVal hdcSrc As IntPtr, _
ByVal nXSrc As Integer, _
ByVal nYSrc As Integer, _
ByVal dwRop As Integer _
) As Boolean
End Function

Private Shared SRCCOPY As Integer = &HCC0020
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "C:\Users\KavtikP\Desktop\KpDesk\Test.Tiff"
SaveFormToFile(Me, path)

End Sub

Private Sub SaveFormToFile(ByVal sourceForm As Form, ByVal filename As String)
Dim formGraphics As Graphics = sourceForm.CreateGraphics()

Dim bufferRect = sourceForm.ClientRectangle

Dim buffer As Image = New Bitmap(bufferRect.Width, bufferRect.Height, formGraphics)
Dim bufferGraphics As Graphics = Graphics.FromImage(buffer)

Dim formDC As IntPtr = formGraphics.GetHdc()
Dim bufferDC As IntPtr = bufferGraphics.GetHdc()

BitBlt(bufferDC, 0, 0, bufferRect.Width, bufferRect.Height, formDC, 0, 0, SRCCOPY)

bufferGraphics.ReleaseHdc(bufferDC)
formGraphics.ReleaseHdc(formDC)

bufferGraphics.Dispose()
formGraphics.Dispose()

''buffer.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)

buffer.Save(filename, System.Drawing.Imaging.ImageFormat.Tiff)

buffer.Dispose()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim screenRect As Rectangle = Screen.PrimaryScreen.WorkingArea
Dim myBitmapScreenShot = New Bitmap(screenRect.Width, screenRect.Height)
Using targetGraphics As Graphics = Graphics.FromImage(myBitmapScreenShot)
targetGraphics.CopyFromScreen(0, 0, 0, 0, New Size(myBitmapScreenShot.Width, myBitmapScreenShot.Height))
End Using
End Sub

KAUTIKPATEL 3-Aug-13 6:27am View

given code generate print but,bt not label on print

Comments by KAUTIKPATEL (Top 48 by date)