Visual Basic

charchabil0328-May-07 1:11

charchabil03

28-May-07 1:11

Thx for ur help
I really appreciate it. ( and i m not complaining)
all what i ask is a simple code please
thx

Regards
Ramy

Christian Graus28-May-07 1:24

28-May-07 1:24

If you set the progress bar style to marquee, it will display itself automatically. Just put one on your form, and then do your database call in a thread. When the thread ends, get rid of the progress bar. I'm sorry, but I don't write VB, and really, there's no code that I can show you, you need no code for the progress bar, and I don't know how your database call is written.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

charchabil0328-May-07 1:35

charchabil03

28-May-07 1:35

thx for ur help Smile | :)

Regards
Ramy

Xandip28-May-07 2:45

28-May-07 2:45

Christian Graus wrote:
I'm sorry, but I don't write VB

then start writing and THEN give your suggestions...

So whats the idea?? Changing the style of the progress bar? wats the matter if u get the count of the records that has to be processed..(as i said earlier)

Christian Graus wrote:
there's no code that I can show you

but i can show you..

With flxTest
.Clear
.Rows = 1
.Cols = 5

Call GetConnection 'Function
Set Gadors = New ADODB.Recordset
GNewQuery = "SELECT * FROM test"
Gadors.Open GNewQuery, Gadocn
Gadors.MoveFirst
Dim i As Long
pg.Min = 0 'setting values of progressbar
pg.Max = Gadors.RecordCount
MousePointer = vbHourglass
While Gadors.EOF = False
i = .Rows
.Rows = .Rows + 1
.TextMatrix(i, 0) = Gadors.Fields(0)
.TextMatrix(i, 1) = Gadors.Fields(1)
.TextMatrix(i, 2) = Gadors.Fields(2)
.TextMatrix(i, 3) = Gadors.Fields(3)
.TextMatrix(i, 4) = Gadors.Fields(4)
If pg.Value <> Gadors.RecordCount Then pg.Value = pg.Value + 1
Gadors.MoveNext
flxTest.Refresh
Wend
MousePointer = vbDefault
End With

try this one....

The name is Sandeep

Dave Kreskowiak28-May-07 6:16

Dave Kreskowiak

28-May-07 6:16

Your updating the progress bar AFTER the records have been returned, not during. Your only updaating the progress bar during the processing of each record.

For a long running stored procedure that returns a set of records, or for an unknown size of the set, this won't work at all.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Christian Graus28-May-07 11:00

28-May-07 11:00

Xandip wrote:
then start writing and THEN give your suggestions...

Most of the questions here are framework questions, which is why I can answer them. I *can* write VB, but I'd prefer not to.

Xandip wrote:
but i can show you..

Like Dave said, this won't work. What I explained, will.

Xandip28-May-07 17:56

28-May-07 17:56

In the case of stored procedures, I admit what Dave said. But I dont understand why you are saying to display a progressbar in the screen just for a Show sake. Whats the use of it, if it doesnt show even the approximate time taken for loading the set of records..?
The progressbar loading is used for making the user wait upto some time, till the data shows up. If its the case of stored procedures, my code can be inserted during the data loading time, because stored procedures still shows the recordcount. At least, the user can see the time spent in the data showup process.

Christian Graus wrote:
What I explained, will.

I really dont like the idea of fooling a user with your 'just for show' progressbar. I admit that my idea is not the appropriate solution, but still I can't stand with yours.
The amount of time for presenting the data in front of the user can be precisely split up into the
time for data retrieval + time for data viewing
time for data retrieval -> this one, i admit, cannot be done
time for data viewing -> but you have to admit, this one can be done

The name is Sandeep

Xandip28-May-07 1:31

28-May-07 1:31

Is This for VB6 or VB.NET??

The name is Sandeep

charchabil0328-May-07 1:34

charchabil03

28-May-07 1:34

guys
it's a vb.net application

fdbcon.Open()
fdbcmd.CommandText = "select * from table"
dr = fdbcmd.ExecuteReader
fdbcon.Open()

that is all

Regards
Ramy

Christian Graus28-May-07 1:39

Fade out effect in my form...??

28-May-07 1:39

So use the BackgroundWorker class to do this in a thread, and in it's finished event, hide the progress bar. Your only other problem is, do you also disable the rest of the UI during the call ? The easiest way to do that is have a modal call on a progress dialog, which calls the thread, and then closes itself when the call is done.

Xandip27-May-07 23:11

27-May-07 23:11

hi guys..
when i close my exe, i want it to close with a fade effect..
does anyone know bout it..??

The name is Sandeep

Christian Graus27-May-07 23:40

27-May-07 23:40

Set the opacity in a loop, calling Invalidate and Application.DoEvents so they get shown, then close the form.

Xandip27-May-07 23:53

27-May-07 23:53

im using vb..

The name is Sandeep

Christian Graus28-May-07 0:02

28-May-07 0:02

If you're using VB6, you need to say so. If you're using VB.NET, then do what I said.

Xandip28-May-07 0:12

28-May-07 0:12

I cant do what u said.. coz i am using VB..

The name is Sandeep

Robert Rohde28-May-07 0:14

Robert Rohde

28-May-07 0:14

VB6 or VB.NET?!?

Xandip28-May-07 0:25

28-May-07 0:25

VB 6..

The name is Sandeep

Dave Kreskowiak28-May-07 6:13

Dave Kreskowiak

28-May-07 6:13

In VB.NET this would have been easy. In VB6, I don't think you can do it because VB6 creates its forms differently, without support for Layered Windows, which is required to support opacity.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Christian Graus28-May-07 0:15

28-May-07 0:15

OK, I can only assume when you say VB, you mean VB6. VB6 is a dead language, and it sucked to start with. If you have any choice, move to VB.NET. Otherwise, tell people you're using VB6 when you ask questions here.

Dileep_Vickey28-May-07 1:40

Dileep_Vickey

28-May-07 1:40

Hi Graus,
You said VB6 is a dead language. But nobody have a little experience in working with VB should'nt say like that. They would say it as the most flexible language. We can write a complex coding in other language in a very simple way in VB.
By Dileeeeeeeep.

Dave Kreskowiak28-May-07 6:12

Dave Kreskowiak

28-May-07 6:12

It's dead. MS stopped supporting it entirely.

It's been replaced, thankfully, with VB.NET. Finally! Real OOP support!

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Christian Graus28-May-07 11:08

28-May-07 11:08

1 - it's dead in that it is no longer supported and will not be subject to any updates or service packs
2 - actually, the way this works in VB6 is usually that you write 2 lines of code that call a C++ COM object to do the complex stuff that VB cannot do.

Kiran Kumar B29-May-07 18:46

Kiran Kumar B

29-May-07 18:46

Hi Xandip,

I hope the code is useful...

Here is the API declaration :

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _<br />
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long<br />
Private Declare Function SetLayeredWindowAttributes Lib "user32" _<br />
    (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long<br />
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _<br />
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long<br />
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)<br />
<br />
Private Const GWL_EXSTYLE = (-20)<br />
Private Const LWA_ALPHA = &H2&<br />
Private Const WS_EX_LAYERED = &H80000

Here is the code where you should use :

Private Sub Command2_Click()<br />
Dim fadeCtr As Integer<br />
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)<br />
For fadeCtr = 255 To 0 Step -1<br />
    Call SetLayeredWindowAttributes(Me.hwnd, 0, fadeCtr, LWA_ALPHA)<br />
    DoEvents<br />
    Call Sleep(5)<br />
Next<br />
End<br />
End Sub

Please dont use this code in Unload event of form - as you observe, I had used DoEvents in the above function. If this is useful, reply me to answer again.

text file in VB

jenans27-May-07 23:06

jenans

27-May-07 23:06

Hi This is my first time to use like this site
I need help in VB coding
I wont to know how I can create a VB program that read a data from a SQL database and then create and insert this data in a text file.

Regards,

jenans

Re: text file in VB

Xandip27-May-07 23:23