Drag&Drop problem - Visual Basic Discussion Boards

Luc Pattyn5-Jul-09 12:40

5-Jul-09 12:40

Hi,

I don't know what happened here, you started explaining a nice structure (Translate) holding three strings, one for each language; later on I don't see that structure used anywhere, instead a lot of code I did not understand at first glance, anyway too much to get the required things done.

Collection classes have Sort methods: Array has a static Sort, most Lists and Dictionaries have an instance Sort() method; they all take an optional IComparer<Translate>, and that is what you need: a Compare method that understands your structure, takes the right language string, and compares two of them.

For three languages, that would mean three comparers, each of them holding some 5 lines of code (which I am not venturing to write down here as my Basic isn't very fluent, and some has to be left for you too).

BTW: I don't like your structure''s name, a structure holds data, so it is (almost) an object, don't call it a verb then. Maybe MultilingualTerm would fit.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

Re: Sorting a structure array

Jacob Dixon5-Jul-09 12:44

Jacob Dixon

5-Jul-09 12:44

I see what you are saying. The top of my question was basically what I was trying to do. Towards the bottom of my post is what I have written that actually works, but wasn't using a Array Structure and sorting it like the project requested. I'll have ot look up more on the IComparer.

Re: Sorting a structure array

Gideon Engelberth5-Jul-09 12:44

Gideon Engelberth

5-Jul-09 12:44

I think you should look to use the overload of Array.Sort that takes an IComparer(Of T)

The comparer would look something like this (WARNING: code typed directly into the reply)

Friend Class TranslationSorter
  Implements IComparer(Of Translate)

  Public Function Compare(ByVal x as Translate, ByVal y as Translate) as Integer
    'you will need null checks here to decide how to sort in nulls

    'this will use the default sort order for strings
    Return x.English.CompareTo(y.English)
  End Function
End Class

Array.Sort(yourArray, New TranslationSorter)

With this approach, you could add a language property to the TranslationSorter class to make it do other languages.

On an unrelated note, StreamReader has an EndOfStream property instead of needing to do .Peek() >= 0

Re: Sorting a structure array

Jacob Dixon5-Jul-09 13:52

Jacob Dixon

5-Jul-09 13:52

I actually found what my professor was wanting. I wasn't aware that she posted the code. She used a bubble sort for the structure array:

Private Sub bubbleSort(ByRef arrayName() As Words)
    Dim temp As Words

    Dim numItems As Integer = arrayName.GetUpperBound(0)  ' number of items in array

    For passNum = 1 To numItems - 1    ' Number of passes is 1 less than number of items in array
        For i As Integer = 1 To (numItems - passNum) ' Each pass needs 1 less comparison
            If (arrayName(i - 1).English > arrayName(i).English) Then
                temp = arrayName(i - 1)
                arrayName(i - 1) = arrayName(i)
                arrayName(i) = temp
            End If
        Next
    Next
End Sub

Re: Sorting a structure array

Gideon Engelberth5-Jul-09 15:56

Gideon Engelberth

5-Jul-09 15:56

FYI, you do not need to pass the array ByRef to the function. Passing the array ByVal will still allow you to sort the array and have the effects noticed in the original function. Passing an array ByRef would only be useful if you were going to replace the entire array with another array. For example, if you were somehow trimming the array in a function, you would need to pass ByRef.

I'm assuming that the bubble sort was part of the assignment, but otherwise would still recommend using Array.Sort

Re: Sorting a structure array

Jacob Dixon5-Jul-09 15:59

Jacob Dixon

5-Jul-09 15:59

Interesting... well the bubble sort is not part of the assignment. She just gave us that. It just says to "Sort" it. To be honest.. I'll have to read more on the IComparer because I don't fully understand it.

Re: Sorting a structure array

Luc Pattyn6-Jul-09 0:46

Luc Pattyn

6-Jul-09 0:46

Hi,

a class implementing IComparer basically says Ï have a method Compare() that knows what the relative order would be of two objects of a given type; it will return zero when order is irrelevant (i.e. both objects are equal), a negative value if object1 should preceed object2, and a non-zero positive one if object1 should follow objects2."

So basically an integer Compare() method could just return the difference of both numbers; and a simple string compare method is obviously available in the string class.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

Drag&Drop problem

The real $M@5-Jul-09 0:17

The real $M@

5-Jul-09 0:17

Hi I'm writing a program that has a ListBox control. If the user drags a file and drops it on the listbox, the filename should be added to the list. I'm using the following code:

Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
   If e.Data.GetDataPresent(DataFormats.FileDrop) Then
      e.Effect = DragDropEffects.Copy
   Else
      e.Effect = DragDropEffects.None
   End If
End Sub

Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
   Stop 'This is called
   Dim s$ = e.Data.GetData(DataFormats.FileDrop, True) 'Why does this exit the sub?
   Stop 'This not
   '...
End Sub

As you can see, I put 2 stop statements in the DragDrop event. The first of them is called and stops debugging, but then e.data.getdata somehow exits the sub, and so nothing happens.
Is it even possible that a procedure exits the sub it is called from (without exiting the thread)???

I'm very confused Confused | :confused:

; I would be grateful to anyone who could give me an explanation for this.

Re: Drag&Drop problem

Mycroft Holmes5-Jul-09 2:14

Mycroft Holmes

5-Jul-09 2:14

What on earth is a stop statement - never used one never even heard of one.

Why not just use a breakpoint and inspect the content of e.

Never underestimate the power of human stupidity
RAH

Re: Drag&Drop problem

Henry Minute5-Jul-09 4:18

Henry Minute

5-Jul-09 4:18

I'm glad you made that reply. I was going to say exactly the same, but as I do not do much VB it might have passed me by and I didn't want to appear dumb. $Shucks | :-\$

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Re: Drag&Drop problem

Mycroft Holmes5-Jul-09 14:10

Mycroft Holmes

5-Jul-09 14:10

Yeah, just got into the office and about to fire up VB/MSDN to find out what. I used VB since the early 90's (I now use C#) and have never used a stop statement.

Never underestimate the power of human stupidity
RAH

Re: Drag&Drop problem

Alan N5-Jul-09 4:05

Alan N

5-Jul-09 4:05

Hi,
The FileDrop data format is a StringCollection so there should be a runtime error when you try to assign into the string s$.

The question is why do you not see the exception?
Do you have ON ERROR GOTO 0 anywhere in your code?

Alan.

Re: Drag&Drop problem

The real $M@5-Jul-09 22:04

The real $M@

5-Jul-09 22:04

Hi,
If there was any On Error or Try statement in my code I would understand, but there isn't!
Confused | :confused:

Yes, with a string array it works Big Grin | :-D

. Tnx

Access Database Path using vb.net[modified]

mirzamujib4-Jul-09 23:09

mirzamujib

4-Jul-09 23:09

Hello,

Iam working on vb.net2008 and using Access as backend.
1) I want my database should save on default location unlike this:
Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=~~C:\Contacts3~~\mycontacts.mdb;Persist Security Info=False"

Since i'm deploying my project on another computer itz showing me an error of database connection.Then again i've to make one folder of Contacts3 in C drive and then itz connecting the database.please let me know how can i deploy my database as default.
Thanks
Mirza Confused | :confused:

modified on Sunday, July 5, 2009 6:17 AM

Re: Access Database Path using vb.ne

dan!sh 5-Jul-09 2:30

dan!sh

5-Jul-09 2:30

Add a custom folder in your setup project and place your MDB file in it. Set the target loaction of the folder as you need.

Re: Access Database Path using vb.ne

mirzamujib5-Jul-09 3:58

mirzamujib

5-Jul-09 3:58

Thanks danish for your reply.Danish i want my database should be in my project folder and dont want to place my access db manually to the specified path.I want something like this:

Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\mycontacts.mdb;Persist Security Info=False"

Here i'm not putting the location i.e, C:\Contacts3.This'll store my records wherver mycontacts.mdb file present.I think i'm missing somthing before this ?????\mycontacts.mdb and in project->windowsproperties->setting->value i should put & or + before \mycontacts.mdb

Thanks

Re: Access Database Path using vb.ne

dan!sh 5-Jul-09 5:19

dan!sh

5-Jul-09 5:19

Path.GetFullPath will give you that I guess. Is that the path you are looking for?

Re: Access Database Path using vb.ne

JC.KaNNaN5-Jul-09 19:36

JC.KaNNaN

5-Jul-09 19:36

best apply your path in dynamically.

Yours,
KaNNaN

-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"

Mail To : foreverkans@gmail.com

Re: Access Database Path using vb.ne

mirzamujib6-Jul-09 1:29

mirzamujib

6-Jul-09 1:29

Yes Mr. Kannan exactly i want my path dynamically but dont know where i am goin wrong..
plz suggest me.

Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Contacts3\mycontacts.mdb;Persist Security Info=False"

Thanks

Re: Access Database Path using vb.ne

mirzamujib6-Jul-09 0:25

mirzamujib

6-Jul-09 0:25

Dear Danish,

Actually i just need to know what should i write before \mycontacts.mdb instead of C:\(database drive path) because if i mentioned the path then i've to put the same folder(in order to get the same path)in other system where i'll deploy my project(client).

i think i should write & before my database like &\mycontacts.mdb but still i'm not sure.

Once again Thanks

Adding effects in image

Gagan.204-Jul-09 3:41

Gagan.20

4-Jul-09 3:41

Hi all...

I want to know that how can I add different effects like - sepia,mono,negative etc. in an Image through programming. I am using VS with vb.net.

Also tell me what is the procedure to create a cartoon image from an existing image.

Thanks.

Gagan

Re: Adding effects in image

Rozis4-Jul-09 11:18

Rozis

4-Jul-09 11:18

Is ImageMagick something for you? (just google it) It has huge options to do things with images programmaticly...

Rozis

Re: Adding effects in image

Christian Graus5-Jul-09 0:23

Christian Graus

5-Jul-09 0:23

First question - I have some articles on image filters with C#, you can compile those to a dll and use in VB.
Second - a cartoon filter is not a simple one step process, a forum reply is not going to answer that.

Christian Graus

Driven to the arms of OSX by Vista.

"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.

I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp

Re: Adding effects in image

Gagan.205-Jul-09 1:50

Gagan.20

5-Jul-09 1:50

Thanks for your reply.

So can you tell me that where can I download your articles on image filters so that I can use it in my project.

And also suggest me how can I create a cartoon from an image or where can I get these things.

Thanks

Gagan

Re: Adding effects in image

Christian Graus5-Jul-09 1:55

Christian Graus

5-Jul-09 1:55

OK. Well, the articles are here on code project, so search the site for them. The cartoon, to be honest, I don't know off the top of my head, except that I'd expect you'd use smoothing to get a photo to look more like a drawing. Beyond that, I'd look for SIGRAPH papers or other sources with google and expect to find algorithms that I needed to turn in to code.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.