|
I am using following code for erasing functionality of freehand drawing.
while excuting this exception comes in system.drawing.dll. Although below code will be working fine but when mouse is moving fast then generate exception.Drawing of lines have been done on paint event.
Private Sub picboard_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picboard.MouseMove
If SetEraser = True Then
If e.Button = MouseButtons.Left Then ' draw a filled circle if left mouse is down
Dim clr As Integer
Dim xmax As Integer
Dim ymax As Integer
Dim x As Integer
Dim y As Integer
'' Get the bitmap and its dimensions.
Dim bm As Bitmap = picboard.Image
xmax = bm.Width - 1
ymax = bm.Height - 1
bm.MakeTransparent()
For x = e.X To e.X + 10
For y = e.Y To e.Y + 10
' Convert this pixel.
If bm.IsAlphaPixelFormat(PixelFormat.Alpha) = True Then
With bm.GetPixel(x - 3, y - 3).Transparent
bm.SetPixel(x - 2, y - 2, color.FromKnownColor(KnownColor.Transparent))
End With
' Display the results.
picboard.Image = bm
For i As Integer = 0 To 13
path(i) = New GraphicsPath
path(i).Reset()
Next i
Next y
Next x
End If
Else
If e.Button = MouseButtons.Left Then ' draw a filled circle if left mouse is down
Try
mousePath.AddLine(e.X, e.Y, e.X, e.Y) 'Add mouse coordiantes to mousePath
Catch
MsgBox("No way, Hose!")
End Try
End If
picboard.Invalidate() 'Repaint the PictureBox using the PictureBox1 Paint event
End If
End Sub
|
|
|
|
|
Hello all,
I am searching on the net for 2 days and I am reading a lot about Hooking and Injecting your own dll's into another process, but I don't get clear what technique is usefull for me. Let me explain what I want to accomplish.
I want to monitor a 3rd party application what actions a user takes, like he opened an options window and on the close button click I want to get the values he entered. Or he opened a process that takes a while (like processing a document).
I looked into some things, but can get a clear view on this.. Can someone helps me out?
Many thanks in advance,
Derck
(P.S. I don't find many vb.net samples on hooking or subclassing 
|
|
|
|
|
|
Hi,
Thanks for your reply.. I already looked into this article, but I need a way to monitor 3rd party applications where I don't have any source from.. I am looking for a couple days now and I don't get a clear picture where to start. I know it's not simple, but I need to know what technique is useful for me..
Thanks in advance!
|
|
|
|
|
Plain and simple, you can't without in-depth knkowledge of the 3rd party app. There are two ways:
1.) Use DDE
2.) Get the Window Handle and use some API like we did in VB6 to subclass that windows' WndProc event into your own window.
I'll tell you now, since every window, including controls, have their own WndProc, you're not going to be able to write a "Global" handler for some app's events. Unless this 3rd party app is supplying an API (like Adobe or MS Word, Outlook for example), you can't do it.
|
|
|
|
|
Many thanks! I will look into the options you gave me..
What I need is
1) Detects a user close the options form (like windows messenger)
2) Capture and save the values he entered..
I am not making a global spy util (maybe it is), but I want to monitor an application like Crystal Reports what actions the user did and what data he saw... Maybe there are some other options?
Thanks!
|
|
|
|
|
 Plz tell me how to bind the data grid control in VB.NET? Plz tell me the complete code of filling the entries from the database (SQL Server 2000).
Arfan Qadir
Virtual University of Pakistan
Cell # +92(333)4283103
|
|
|
|
|
Firstly you have to put a dataGrid inside your form, than paste the code below inside your Form1.vb page
here is the simple datagrid code:
-----------------------------------
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents UserControl11 As maskedTextBox.MaskeliTextBox
Friend WithEvents reportDocument1 As CrystalDecisions.CrystalReports.Engine.ReportDocument
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.DataGrid1 = New System.Windows.Forms.DataGrid
Me.reportDocument1 = New CrystalDecisions.CrystalReports.Engine.ReportDocument
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(480, 48)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Sorgula"
'
'DataGrid1
'
Me.DataGrid1.DataMember = ""
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(24, 184)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(648, 224)
Me.DataGrid1.TabIndex = 1
'
'reportDocument1
'
Me.reportDocument1.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.DefaultPaperOrientation
Me.reportDocument1.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize
Me.reportDocument1.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Upper
Me.reportDocument1.PrintOptions.PrinterDuplex = CrystalDecisions.Shared.PrinterDuplex.Default
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(704, 430)
Me.Controls.Add(Me.DataGrid1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New SqlConnection("Server=.;Database=pubs;uid=sa;pwd=;")
conn.Open()
Dim comm As New SqlCommand("Select * From Employee")
Dim adp As SqlDataAdapter = New SqlDataAdapter(comm.CommandText, conn)
Dim ds As New DataSet
adp.Fill(ds)
DataGrid1.DataSource = ds
End Sub
End Class
--junior coder--
|
|
|
|
|
Hye guys
I have used MSDN help to create one remoting application and it runs fine. Now I have build my application and having some problems in it
My remote class is Project1.class1 which returns different variables like dataset,datatable etc,.... when I compile the project through Vbc.exe it gives error but it works fine with build from menu.. I have seen many examples and every one compiles through Vbc...
Why we need to compile project through vbc ??? why not build option ???
Now in hosting application. (note: My remote class is Project1.Class1)
<configuration>
<system.runtime.remoting>
<application>
<service>
<wellknown
="" mode="Singleton" type="RemotableType, RemotableType" objecturi="RemotableType.rem">
<channels>
<channel ref="http" port="8989">
in this config file in wellknow tag what should I put against type and objectURi..
Your support will be highly appreciated... + if any one knows any document for client configuration with each and every aspects + about Vbc do let me know
|
|
|
|
|
Hi everybody
Does anyone know how can I design my report in landscape mode. I don't know how can I enlarge the margins of my Report.
Thanks in Advance
|
|
|
|
|
If you're using it inside the .NET IDE, [right-click --> choose designer --> Printer setup --> change to landscape].
|
|
|
|
|
hi to you all,
i need to search group of objects in an arraylist and the only reference i have is their IDs,
is there a fast way to search those objects?
iterating through the arraylist again and again would be quite slow...
thanks in advance,
cheers!
Fuel2Run
|
|
|
|
|
|
I think it's to late to use a different collection, i'll iterate.
thanks anyway!
Cheers
Fuel2Run
|
|
|
|
|
how can i create a new table via sql command in vb recall my database is SQL Server 2000
|
|
|
|
|
|
i have two forms. FORM1 and FORM2. Form1 has a datagrid with columns that reads from an xml file. form2 has 4 textboxes. how do I get these textboxes writen to the xml file so they will show in the datagrid on form1. My datagrid has 4 columns.
|
|
|
|
|
Look into the system.IO namespace.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I am building a vb.net app that needs to be able to receive notification if a link is clicked in IE. specificly a speceal link like <'a href="test://testtesttest">Test
where the protocol is actually the function that gets fired in my app.
please help
Thanks in advance
Tim
|
|
|
|
|
how can i create a relationship beween scanner and a form in vb
|
|
|
|
|
Buy them both movie tickets, I guess.....
What do you want to do - get the form to always show what's on the scanner ? There's no way for the code to know that the contents of the scanner have changed. Do you have TWAIN drivers in VB.NET already ?
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
i want to scan a paper via a vb form and save it in a database therefore vb from must be enbale to detect if scanner is connect to computer
|
|
|
|
|
Try to read this article.[^]
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
how can i create a relationship beween scaner and a form in vb
|
|
|
|
|
Hi, in vb6 in the code windows if i want to delete a single line of code at a time, I could press the shortcut key Ctrl + Y
But in vb.net this method is not working. Does anyone know how to delete a single line of code at a time by using shortcut key in vb.net?
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
