Visual Basic

Ammar_Ahmad24-Jun-12 3:59

24-Jun-12 3:59

Still doesn't work.

Dave Kreskowiak24-Jun-12 4:36

Dave Kreskowiak

24-Jun-12 4:36

I have no idea what you're doing wrong because this works fine. I wiped up this little example in about a minute:

Private Sub TestButton_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TestButton.MouseDown
    ChangeButtonText(TestButton)
End Sub

Private Sub TestButton_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TestButton.MouseUp
    ChangeButtonText(TestButton)
End Sub

Private Sub ChangeButtonText(ByRef target As Button)
    If target.Text = "0" Then
        target.Text = "1"
    Else
        target.Text = "0"
    End If
End Sub

If you want the button to change text like a toggle, just remove the MouseUp handler.

Truthfully, I'd be creating my own button control to wrap this functionality and overriding the OnMouseDown and OnMouseUp methods to do this. I wouldn't be doing it using event handlers.

But, since this method is easier to understand, here you go...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Ammar_Ahmad24-Jun-12 4:44

24-Jun-12 4:44

That worked beautifully Big Grin | :-D

BIG THANKS M8!

javadadabi23-Jun-12 7:41

javadadabi

23-Jun-12 7:41

Dear ammar ahmad
there was no user control name usercontrol1 in your solution.
I saw your coding,you are more expert than me.
I didnt run your program at all.
Would you please tell me what this code is for?

Ammar_Ahmad24-Jun-12 4:00

24-Jun-12 4:00

It is there... it should be under Form1.
This is Twitter client that I am working on.

Ally523-Jun-12 16:15

Ally5

23-Jun-12 16:15

Try changing the sub to:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "0" Then
            Button1.Text = "1"
        Else
            Button1.Text = "0"
        End If
    End Sub

Ammar_Ahmad24-Jun-12 4:01

24-Jun-12 4:01

nope. not working.

Nick Otten24-Jun-12 23:07

24-Jun-12 23:07

Oke i know this sounds a bit basic but have you checked for spaces? strings are quite picky with those. "0 " is not the same as "0" for them. tough its likely a human will read over that last space.

you could add a replace to the .text to get rid of this problem.

If Button1.Text.Replace(" ","") = "1" then
 Button1.Text = "0"
Elseif Button1.Text.Replace(" ","") = "0" then
 Button1.Text = "1"
End if

EDIT: oke reading some more and i hear some rumors that your using several threads. if this thing is executed in a thread you might want to enforce the update to your gui.

Private Sub updateUI()
    If Me.InvokeRequired Then
        Me.Invoke(New MethodInvoker(AddressOf updateUI))
    Else
        Me.Update()
    End If
End Sub

if your using that button thing in a sub/background thread then add the above sub and try calling it after the button event is done. be aware that this isn't good code and will enforce a full refresh of your screen, its a nice way to test tough.

Ammar_Ahmad25-Jun-12 1:13

FlowLayoutPanel1 and controls

25-Jun-12 1:13

Thanks Nick. But the issue has already been resolved Smile | :)

Ammar_Ahmad21-Jun-12 23:59

21-Jun-12 23:59

Hi,
Currently when I add a new control to the FlowLayoutPanel1, it gets added to the bottom of all the previous controls that were added in FlowLayoutPanel1. Is there a way that I can add the new controls to the top of FlowLayoutPanel1?
I have added a small diagram of what I want:
http://foto.pk/images/havewant.png[^]

Please note that the flowdirection property isn't giving me the effect that I need. Because new items (controls) are added while the app is running.

Source code of the application added:
http://www.mediafire.com/?1uo8zd3ybgdmiwp[^]

*Note: The above download has all the twitter keys for my account so you don't have to make a new account or anything. Please don't misuse it.

Can you please add that feature that I want in the source?

modified 22-Jun-12 9:23am.

Nick Otten22-Jun-12 0:21

22-Jun-12 0:21

Hey,

Have you try'd settings the index of the new control?

FlowLayoutPanel1.Controls.SetChildIndex(Button1, 0)

Here button1 is my control as control and 0 (int) is the new index of the control in the flowlayoutpanel.

Ammar_Ahmad22-Jun-12 0:48

22-Jun-12 0:48

Not quiet sure how that is done as I am new to controls and flowlayoutpanel.

Here is the code that adds the tweets(items) into the control that I have made:

Private Sub AddTestTweet(ByVal tweet As TwitterStatus)
     If (Me.FlowLayoutPanel1.InvokeRequired) Then
         Me.FlowLayoutPanel1.Invoke(New AddTestTweetDelegate(AddressOf AddTestTweet), tweet)
     Else
         Console.WriteLine(String.Format("New tweet: @{0}: {1}", tweet.User.ScreenName, tweet.Text))
         Me.FlowLayoutPanel1.Controls.Add(New TweetTimelineControl(tweet))

     End If
 End Sub

Private Sub NewTweet(ByVal tweet As TwitterStatus)
       On Error Resume Next
       AddTestTweet(tweet)
End Sub

And here is the control:

Public Class TweetTimelineControl
    Public Sub New(ByVal status As TwitterStatus)
        Me.InitializeComponent()

        Me.userPictureBox.LoadAsync(status.User.ProfileImageLocation)
        Me.UserNameLabel.Text = status.User.ScreenName
        Me.Label2.Text = status.CreatedDate.ToShortDateString()
        Me.DateLabel.Text = status.CreatedDate.ToShortTimeString()
        Me.TextLabel.Text = status.Text
        Me.Label1.Text = "Number Of Retweets: " & status.RetweetCountString
    End Sub
End Class

Can you please tell me how to do this on the code given above?

Nick Otten22-Jun-12 1:48

22-Jun-12 1:48

Hey

I gotte say i dont know your program so this is a bit of guessing. But from what you send i would suggest you place the code into your AddTestTweet sub.

   Private Sub AddTestTweet(ByVal tweet As TwitterStatus)
        If (Me.FlowLayoutPanel1.InvokeRequired) Then
            Me.FlowLayoutPanel1.Invoke(New AddTestTweetDelegate(AddressOf AddTestTweet), tweet)
        Else
            Console.WriteLine(String.Format("New tweet: @{0}: {1}", tweet.User.ScreenName, tweet.Text))
            Me.FlowLayoutPanel1.Controls.Add(New TweetTimelineControl(tweet))
            
' Me.FlowLayoutPanel1.Controls.SetChildIndex(<the name of your control here, i think its somewhere in your "tweet" object or wherever you add the name property to your control>,<index depending on the settings you put at your control its probably 0 or FlowLayoutPanel1.controls.count>)
        End If
    End Sub

Ammar_Ahmad22-Jun-12 2:46

22-Jun-12 2:46

Nope. Still don't get it.
Here I have uploaded the entire source code:
http://www.mediafire.com/?1uo8zd3ybgdmiwp[^]

*Note: The above download has all the twitter keys for my account so you don't have to make a new account or anything. Please don't misuse it.

Can you please add that feature that I want in the source?

modified 22-Jun-12 9:22am.

Nick Otten22-Jun-12 2:53

22-Jun-12 2:53

I got the file, so you can remove the link if you want. Cant promise i can get to it ASAP, but i will see if i can paste in the code you need.

EDIT:
Oke got a quick look at it during work. the twitter is blocked here so i cant actually test it. but i think if you replace your AddTestTweet sub with this one it will work.

Private Sub AddTestTweet(ByVal tweet As TwitterStatus)
       If (Me.FlowLayoutPanel1.InvokeRequired) Then
           Me.FlowLayoutPanel1.Invoke(New AddTestTweetDelegate(AddressOf AddTestTweet), tweet)
       Else
           Console.WriteLine(String.Format("New tweet: @{0}: {1}", tweet.User.ScreenName, tweet.Text))

           Dim storedtweet As New TweetTimelineControl(tweet)
           Me.FlowLayoutPanel1.Controls.Add(storedtweet)
           Me.FlowLayoutPanel1.Controls.SetChildIndex(storedtweet, 0)

       End If
   End Sub

Like i said its untested so don't shoot me if it adds to the bottom, try playing with the 0 if this happends(make it FlowLayoutPanel1.Controls.Count for example).

modified 22-Jun-12 9:20am.

Ammar_Ahmad22-Jun-12 2:59

22-Jun-12 2:59

Alright. Thanks.

modified 22-Jun-12 9:22am.

Nick Otten22-Jun-12 3:28

22-Jun-12 3:28

Edited my last message with a possible solution.

Ammar_Ahmad22-Jun-12 3:36

22-Jun-12 3:36

That worked beautifully! Big Grin | :-D

Thanks m8!

Nick Otten22-Jun-12 3:42

22-Jun-12 3:42

no problem! glad to be of help (tough as it seems a formality here: remember to vote Cool | :cool:

)

Ammar_Ahmad22-Jun-12 13:16

Re: CommandBuilder Problem

22-Jun-12 13:16

Already done Big Grin | :-D

CommandBuilder Problem

Pasan14821-Jun-12 5:13

Pasan148

21-Jun-12 5:13

Is it possible to insert rows in to a MS Access table with a Auto number field using a CommandBuilder. I tried that but it's getting following error.

Syntax error in Insert in to statement.

I did same thing to a table which doesn't have a auto number field. It worked. I think the problem is that auto number field. What's the solution for this problem.

David Mujica21-Jun-12 5:25

David Mujica

21-Jun-12 5:25

I believe the problem may be that you are trying to pass a value for the auto number field. That would cause the insert to fail. In your Insert statement, list the fields you want to include, but don't list the Autonumber field, then in your value clause list only the values which need to be inserted.

remeber to vote Cool | :cool:

Re: CommandBuilder Problem

Pasan14821-Jun-12 6:30

Pasan148

21-Jun-12 6:30

I didn't use any Insert statement. Just used CommandBuilder class to generate SQL statements

CommandBuilder is not preferred method

David Mujica21-Jun-12 10:29

David Mujica

21-Jun-12 10:29

Check this article out ...

I think you should be using a different method to manipulate the Access data.

I have been using the System.Data.OleDb classes for MS-Access and they work fine.

http://msdn.microsoft.com/en-us/library/ms971491.aspx[^]

Remeber to vote.

Trying to merge exel print jobs

Nick Otten21-Jun-12 3:00