|
I have been using following code to set pixel color.Although its is coloring the pixels of picture box. But it is not coloring drawn lines on paint event.I fetch the pixel and trying to convert its color in black but drawn any line in differnet color, not able to convert in black.
Code:
On m0usemove event:-
Dim bm As Bitmap = PictureBox1.Image
xmax = bm.Width - 1
ymax = bm.Height - 1
For y = 0 To 10
For x = 0 To 10
' Convert the pixels to grayscale.
With bm.GetPixel(e.X + 10, e.Y + 10)
clr = 0.1 * .R + 0.2 * .G + 0.2 * .B
End With
bm.SetPixel(e.X + 10, e.Y + 10, Color.FromArgb(255, clr, clr, clr))
Next x
Next y
On paint event i have been using below code:
For index As Integer = 0 To 3
Dim CurrentPen = New Pen(Color.FromArgb(myAlpha, myUserColor(index)), 15) 'Set up the pen
e.Graphics.DrawPath(CurrentPen, path(index)) 'draw the path!
Next index
If any body have idea its welcomed!!
|
|
|
|
|
Your mouse event painting should be handled completely inside your OnMouseMove event. The Paint event should be used to repait your forms controls in the event that another window is passed over yours and your window need to be repainted. It should not be used to handle mouse-move based drawing.
Your previous code that you posted was a jumbled mess. There's really no way of fixing to get it to do what you wanted without re-writting the entire thing.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hye Guys
I have build a distributed application and when I deploy my components on client it works fine for the first time. but next time when I reboot the machine it gives this error..Cannot Create ActiveX Component... then I have to uninstall and re-install the component every time and on re-installing there is no gurantee that will work or not as I do it many times to run this again.
Any comments and suggestions will be highly appreciated..
|
|
|
|
|
I'm going to develop an application whcih send sms to their clients on the bassis of changes in Stock Exchange Rates after regular intervals. I also want to know about free web serives for sending sms.
Din
|
|
|
|
|
Hi,
i am trying copy complete folder to another. I want to use fileSystemObject, but when i am using that as
dim fsoTest as fileSystemObject
it is asking to declare fileSystemObject, i think i had to add some references to my project , can any one help me by telling what i had to add to my project to use fileSystemObject.
If there is any other simple way to copy complete folder, u can suggest that also.
Thanks in advance,
P.Madhu
Programmer
|
|
|
|
|
The filesystem object is part of the microsoft scripting runtime.
You can either add a reference to 'Microsoft Scripting Runtime' which will allow you to use early binding and intellisense or not bother with the reference and create it on the fly eg
set fsotest = creatobject("scripting.filesystemobject")
Jonathan
|
|
|
|
|
Hi jonathan,
Thanks for your reply, it really helped me a lot.
P.Madhu
Programmer
NSDRC
visakhapatnam-17
|
|
|
|
|
Im creating a login form for and administrator and a user. How would I make restrictions for the user using a module.
|
|
|
|
|
Your entire application has to be written with your security scheme in mind. You can't just add a little module and expect it to work. You haven't supplied any details about how you want your security scheme to work or what you need it for, so it's impossible to tell you what to do.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Well I have 4 different forms and a login form for the user and the admin. If the user logs on I want to be able to restrict them from accessing certain forms.
|
|
|
|
|
So what's wrong with checking the users access level when the user selects whatever option needed to create the new form? You'll need to check this for EVERY way to create the new forms. Or, you can even enable/disable certain controls on the form depending on the access level.
Security needs to be designed in before you even write the 1st line of code. You can't just slap this on as an after-thought and expect it to work.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i am trying to get started with some api calls in VB6.
i have found the declarations for the API calls, but don't know how to get the windows handle so that i can get the HDC to get everything else.
thank you
|
|
|
|
|
You can get windows hWnd's from the FindWindowEx API. The Spy++ utility tool installed with Visual Studio is indispensible for determining search criteria to find a specific window, because to find a child window handle you must first find it's parent window, and often the window you are looking for may be nested under several or more "generations" of parent handles.
Robert
|
|
|
|
|
You can use rwestgraham's method to get the window handle, or you can do it the easy way and just use the value that's in the form's hWnd property.
Dim windowHandle As Long
windowHandle = Form1.hWnd
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
thanks for the easy way to get the handle to the app form.
what I'm trying to do in my app is dynamically size the label.width of a prompt and the text.left of the data next to it, that the user edits. i believe i need to get the TextMetrics for the selected font to calculate the widths and left positions. There's probably an easier way to do this too.
+----------+--------+
|first label: |first text|
+----------+--------+
+-------------+-----------+
|second label: |second text|
+-------------+-----------+
|
|
|
|
|
The GetTextExtentPoint32 API will return the length of a string in points, which can then be converted to pixels or other units to size a Textbox control to fit the text. You can easily size a Label control to fit it's text by simply setting the AutoSize property to True.
Robert
|
|
|
|
|
I also want to run my program from a cd, any suggestions?
rives
|
|
|
|
|
I'm trying to add a tab control to my form, and I did that, now i need to code it, does anyone have any sample code for that form.
rives
|
|
|
|
|
Hi!
What do you mean by code it?Add TabPages?
Create a TabPage objects, assign some text to the Text property and then do TabControl.Controls.Add(myTabPage) and the tabControl will have a new tabPage.And so on...
dim myTabPage as New TabPAge
myTabPage.Text = "Tab1"
(...)
myTabControl.Controls.Add(myTabPage)
Never say never
|
|
|
|
|
|
looks very critical problem...
|
|
|
|
|
or very critical boy 
moreover it's his first post !!!!
TOXCCT >>> GEII power
[toxcct][VisualCalc]
|
|
|
|
|
Does anyone know how i can calculate the average of all the integers in a column in a SQL table using vb code?
|
|
|
|
|
this sql statement will do the trick...
SELECT AVG(int_column) FROM your_table
// TODO: Write code.
|
|
|
|
|
This is exactly what i needed but i have a few questions.
does the "int" in int_column have to be there?
How do i get this value through code and save it to a variable?
How do i display this average value in a textbox or messagebox?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
