Visual Basic

javadadabi23-Jun-12 8:41

javadadabi

23-Jun-12 8: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 5:00

24-Jun-12 5:00

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

Ally523-Jun-12 17:15

Ally5

23-Jun-12 17: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 5:01

24-Jun-12 5:01

nope. not working.

Nick Otten25-Jun-12 0:07

25-Jun-12 0: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 2:13

FlowLayoutPanel1 and controls

25-Jun-12 2:13

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

Ammar_Ahmad22-Jun-12 0:59

22-Jun-12 0: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 1:21

22-Jun-12 1: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 1:48

22-Jun-12 1: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 2:48

22-Jun-12 2: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 3:46

22-Jun-12 3: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 3:53

22-Jun-12 3: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 3:59

22-Jun-12 3:59

Alright. Thanks.

modified 22-Jun-12 9:22am.

Nick Otten22-Jun-12 4:28

22-Jun-12 4:28

Edited my last message with a possible solution.

Ammar_Ahmad22-Jun-12 4:36

22-Jun-12 4:36

That worked beautifully! Big Grin | :-D

Thanks m8!

Nick Otten22-Jun-12 4:42

22-Jun-12 4:42

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

)

Ammar_Ahmad22-Jun-12 14:16

Re: CommandBuilder Problem

22-Jun-12 14:16

Already done Big Grin | :-D

CommandBuilder Problem

Pasan14821-Jun-12 6:13

Pasan148

21-Jun-12 6: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 6:25

David Mujica

21-Jun-12 6: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 7:30

Pasan148

21-Jun-12 7: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 11:29

David Mujica

21-Jun-12 11: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 4:00

21-Jun-12 4:00

Hello,

I'm struggeling with a bit of a problem. I got a program that prints production forms using excel. the problem is users are printing batches of 300 or more of these. The Xerox WC 3745 printer driver cant keep up with this and crashes.

I'm looking for a way to merge these printer tasks. i already try'd merging the work sheets into one workbook. this didnt work to well...excel doenst like to handle more then 250 worksheets it seems. also merging all data from the worksheets into one massive worksheet doesn't work (the layout cell count ect. are not the same)

anyone able to point me in a possible solution? perhaps i could catch the printer jobs and resend them as one big job? or is there a way that makes excel to do it that i just didnt find yet?

following code is looped to start the print jobs in the current version:

If rbexact.Checked Then
            workbook.PrintOutEx(1, 3, 1, False, verbinding.printer(), False, Collate:=True)
        Else
            workbook.PrintOutEx(1, 3, 1, False, DefaultPrinterName(), False, Collate:=True)
        End If

Build your own queue

David Mujica21-Jun-12 4:31

David Mujica

21-Jun-12 4:31

This is going to sound like overkill, but ...

1) Create a directory on the machine which will hold a list of file names which need to be printed.

2) Create a windows service which monitors the directory by using a FileSystemWatcher, when it sees a file added to that directory it looks to the printer to see if there is a job currently printing, if so, make the job sleep for a 1 minute (or whatever). If the printer is available, then send the job.

I created a Service with a FileWatcher to do all kinds of asynchronous processing and it works really well. I log messages to the Event Log for easy troubleshooting / status.

http://msdn.microsoft.com/en-us/library/system.io.filesystemwatcher.aspx[^]

Remember to vote. Cool | :cool:

Re: Build your own queue

Nick Otten21-Jun-12 4:50