|
|
How do I automatic move the X & Y to create a ellipse function as
below, DrawCircle?
Or there any sample source code out there?
I want it move down by user input. How can I achieve this? Thanks.
Imports System<br />
Imports System.Drawing<br />
<br />
Public Class circle<br />
<br />
Private Sub circle_Load(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles MyBase.Load<br />
<br />
End Sub<br />
<br />
Private Sub mainTab_Paint(ByVal sender As Object, ByVal e As<br />
System.Windows.Forms.PaintEventArgs) Handles Me.Paint<br />
Dim myPen As New<br />
System.Drawing.Pen(System.Drawing.Color.Black)<br />
myPen.DashStyle = Drawing.Drawing2D.DashStyle.Solid<br />
<br />
Dim widthPen As Integer = 10<br />
myPen.Width = widthPen<br />
<br />
Dim x1 As Integer = 10<br />
Dim y1 As Integer = 20<br />
Dim y2 As Integer = 70<br />
e.Graphics.DrawLine(myPen, x1, y1, x1, y2)<br />
<br />
x1 = x1 + 25 + widthPen<br />
e.Graphics.DrawLine(myPen, x1, y1, x1, y2)<br />
<br />
myPen.Dispose()<br />
End Sub<br />
<br />
Private Sub DrawCircle(ByVal sender As Object, ByVal e As<br />
System.Windows.Forms.PaintEventArgs) Handles Me.Paint<br />
<br />
' Create pen.:rolleyes:<br />
Dim redBrush As New SolidBrush(Color.Red)<br />
<br />
' Create location and size of ellipse.<br />
Dim x As Integer = 75<br />
Dim y As Integer = 25<br />
Dim width As Integer = 75<br />
Dim height As Integer = 50<br />
<br />
' Draw ellipse to screen.<br />
e.Graphics.FillEllipse(redBrush, x, y, width, height)<br />
<br />
End Sub<br />
<br />
End Class<br />
|
|
|
|
|
Well, first, you have to two methods handling the Paint event. I'm not sure what that will do for you other than confuse people who look at the code.
Second, you have no facility in your code to change the coordinates of the circle. You hard code them into the drawing code (x, y, width, height). You have to store the coordinates outside the painting code, add code to change those coordinates and invalidate the form to force a paint event.
|
|
|
|
|
I posted this question the otehr day and Dave Kreskowia has given me some great help, but I'm afriad I need more. It is hard me to read as I have a eye sight problem.
I've added Microsoft Shell Controls and Automation, then Imported shell32 namespace.
I wrote a test code to view the application windows that are currently running as follows:
Dim shlApplications As Shell
Dim obj As Object
shlApplications = New Shell
For Each obj In shlApplications.Windows
MsgBox(obj.GetHashCode.ToString)
Next
The only problem is that it is not returning the name of the application(s) that are running.
Can you help please?
Thanks
Graeme Guildford
I am always greteful for any help!
I am always greteful for any help!
|
|
|
|
|
Hi,
I am not familiar with the Microsoft Shell Control and Automation but...
why do you display obj.GetHashCode? I expect that to be a silly number, not a Windows title.
Isn't there a more appropriate property such as obj.Text or obj.Title?
Luc Pattyn [Forum Guidelines] [My Articles]
this months tips:
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use PRE tags to preserve formatting when showing multi-line code snippets
|
|
|
|
|
Sorry Luc
it was meant to be obj.ToString which is the only appropriate property to use.
I am always greteful for any help!
|
|
|
|
|
OK.
Maybe you want to have a look at the System.Diagnostics.Process class.
It has a static GetProcesses() which returns all the running processes.
For each of them, you can inspect:
- the MainWindowTitle property;
- the StartInfo property, which holds many things, such as FileName, Arguments (=cmd line),...
Luc Pattyn [Forum Guidelines] [My Articles]
this months tips:
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use PRE tags to preserve formatting when showing multi-line code snippets
|
|
|
|
|
Thanks Luc
I have written a small utility using the System.Diagnostic.Process class. The only problem is that Windows Exploerer is only listed as exporer.exe in the processes list and hwen I have Windows Explorer open and pointing to a folder/directory for eg H:\ it still only displays exploere.exe even though there might be a number of instances of Windows Exploere opened.
Dave Kreskowia suggested that I use the Shell.Application COM object by adding the Shell32.dll (Microsoft Shell Controls and Automation) refrence to my project. This is where I need help, as I've added this reference and imported the namespace, but have problems with finding the correct information.
Thanks
Graeme
I am always greteful for any help!
|
|
|
|
|
This will only return the Explorer windows, not ALL windows. It returns only the windows that belong to the Explorer process.
So, you have to enumerate BOTH the Processes AND the Shell Windows to get what you've described.
|
|
|
|
|
Is there any easy way to convert accented characters to ASCII, such that "déjà" would become "deja"? Converting the string to an ASCII byte sequence and then back to a string via
dim st_bytes as byte()
st_bytes = System.Text.Encoding.ASCII.GetBytes(st)
st = System.Text.Encoding.ASCII.GetString(st_bytes)
yields "d?j?". I could probably build a mapping table using culture-sensitive comparisons (if character+"b" sorts between that "ea" and "ec", that character must be some sort of "e") but that seems rather hokey.
|
|
|
|
|
supercat9 wrote: Is there any easy way to convert accented characters to ASCII, such that "déjà" would become "deja"?
Nope, not that I've seen.
supercat9 wrote: I could probably build a mapping table using culture-sensitive comparisons (if character+"b" sorts between that "ea" and "ec", that character must be some sort of "e") but that seems rather hokey.
Hokey, but about the only thing you've got that will do this.
Trying to convert using codepages will replace the accented characters with question marks.
|
|
|
|
|
Dave Kreskowiak wrote: Hokey, but about the only thing you've got that will do this.
Well, I tried writing some code to do the conversion. Not terribly elegant, but if I allocate 64K for an array of pre-translated characters the slowdown should be minimal.
I append an "8" to the character to be translated an check to see whether that puts it between "A" and "Z9". If so, I check that against "B", "C", etc. until I either find a character that's greater or have passed "Z".
In this particular application I didn't need upper and lower case, but that could probably be handled by comparing a character with its forced-to-uppercase version. If they match, the character is uppercase; otherwise it's lowercase.
One interesting quirk I discovered: "-B" (a hyphen followed by the letter B) sorts between "A" and "C". That's why I append a digit to the string. Depending upon localized sort rules, "-8" may be before "A" or after "Z9", but it shouldn't be between them.
|
|
|
|
|
C# code next...
string accentedStr;
byte[] tempBytes;
tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(accentedStr);
string asciiStr = System.Text.Encoding.UTF8.GetString(tempBytes);
...quick & short!
|
|
|
|
|
Interesting that translates accented letters as letters rather than question marks. Useful to know. Is there any handy list of variations one could use (e.g. is there a version which would translate "þ"; as "th" or "ß" as "ss" (those characters still translate as question marks).
Also, out of curiosity, is there any function which would translate a Unicode string into a pure-ASCII string that would retain Unicode's linguistic sort order, though not necessarily appearance (e.g. so that "ßb" would sort between "ssa" and "ssc", and "β" would sort between "α" and "γ"?)
|
|
|
|
|
Alrighty well the story is im working on a database and using VBA with a WebBrowser control. So what i wanna do is be able to go to. www.amazon.ca and search there database with a segment of code for a specific item.. like lets say that im searching for the game "need for speed" i want to be able to click on it so that it switches to the page with the webbrowser control and searches on amazon.ca for it.. i dont want to link all the games since there are many games and would take a long time.. But also the fact that there are going to be many new stuff added to the database and it would be much easier for it not to have to have each item hyperlinked to the pages.. and im also using 3 different sites to search. one is amazon.ca the other is Futureshop.ca and bestbuy.ca i hope that you guys are able to help me out fairly soon.
|
|
|
|
|
Only thing I can think of is if they offer an SDK that allows you to do this. I don't know if they do.
"I've seen more information on a frickin' sticky note!" - Dave Kreskowiak
|
|
|
|
|
I have a problem!!I can't get or edit data in MySQL using VB.NET. I have to used many ways to do it,for example: CoreLib.NET(MyDirect and UniDirect) and ODBC connection, but there are no results!!
What should I do to load(to ListView) or edit data in MySQL???
|
|
|
|
|
What is the code you are using to get the data?
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Connect to MySQL I use this code:
'-------
Imports CoreLab.MySql
Dim oMySqlConn As MySqlConnection = New MySqlConnection()
Dim datAdap As MySqlDataAdapter
Dim commands As MySqlCommand
Private Sub frmChooseTasks_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
oMySqlConn.ConnectionString = "User ID=root;" & "Password=passw;" & "Host=localhost;" & "Port=3306;" & "Database=tasks;" & "Direct=true;" & "Protocol=TCP;" & "Compress=false;" & "Pooling=true;" & "Min Pool Size=0;" & "Max Pool Size=100;" & "Connection Lifetime=0"
oMySqlConn.Open()
commands.Connection = oMySqlConn
datAdap.SelectCommand = command
datAdap.Fill(dataSet, "Table")
lstvAvTasks.Items.Add(dataSet.Tables.Item(0).Rows(0).ToString) 'Adding to ListView data from MySQL,But it doesn't work
If (oMySqlConn.State = ConnectionState.Closed) Then
oMySqlConn.Open()
End If
End Sub
|
|
|
|
|
What is your command for the select command? I don't see it. Did you construct it through a wizard?
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Not through a wizard, I use SELECT COMMAND by component that given to me by CoreLib.NET. This component have a input property "select command" and I inset there name of the table. Can you give some advise or samples working with MySQL by other way maybe??
|
|
|
|
|
What is your select query that is tied into the select command?
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
This is command: "SELECT * FROM tasks"
Have you got some examples that show how to wrok with MySQL??
|
|
|
|
|
I think you might be missing a ; at the end inside the quotes. This may be silly to ask, but is there data in the table 
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
does VB 2008 have the ability to upload and download files to\from a web site ftp folders???
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
