Click here to Skip to main content
15,897,291 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionCrystal Reports Pin
ShuklaGirish1-Jul-07 19:17
ShuklaGirish1-Jul-07 19:17 
AnswerRe: Crystal Reports Pin
Xandip1-Jul-07 20:26
Xandip1-Jul-07 20:26 
QuestionChecked List Box, Select Only One Row Pin
Polymorpher1-Jul-07 19:13
Polymorpher1-Jul-07 19:13 
AnswerRe: Checked List Box, Select Only One Row Pin
CPallini1-Jul-07 22:07
mveCPallini1-Jul-07 22:07 
Questionhow can i get "Data Type" using enterprise library Pin
warwarphoo1-Jul-07 18:01
warwarphoo1-Jul-07 18:01 
AnswerRe: how can i get "Data Type" using enterprise library Pin
SHatchard2-Jul-07 2:08
SHatchard2-Jul-07 2:08 
Questionprogress bar Pin
hsprasain1-Jul-07 17:33
hsprasain1-Jul-07 17:33 
AnswerRe: progress bar Pin
smguc1-Jul-07 17:52
smguc1-Jul-07 17:52 
Hi,

Don't know if this will help, But I have used this a few times in excel to show a progress in the status bar...




Sub StatusProgress()
'
' Progress Application Statusbar
'
Dim intIndex As Integer
Dim sngPercent As Single
Dim intMax As Integer

intMax = 100
For intIndex = 1 To intMax
sngPercent = intIndex / intMax
ProgressStyle sngPercent
DoEvents
'------------------------
' Your code would go here
'------------------------
Sleep 100
Next
Application.StatusBar = False
End Sub


Function ProgressStyle(Percent As Single)
' Progress Style
' Application Status bar
' Pulsing
'
Dim strTemp As String
Dim intIndex As Integer
Dim intLen As Integer

intLen = 21
intIndex = Int((Percent * 100) Mod intLen)
strTemp = String(intLen, txtPg7a.Text)
If intIndex > 0 Then
Mid(strTemp, intIndex, 1) = txtPg7p.Text
End If
Application.StatusBar = "Processing " & strTemp

End Function



Cheers,
Stefan.

All answers have a question? All code has an end.

GeneralRe: progress bar Pin
smguc1-Jul-07 17:58
smguc1-Jul-07 17:58 
GeneralRe: progress bar Pin
hsprasain1-Jul-07 19:27
hsprasain1-Jul-07 19:27 
GeneralRe: progress bar Pin
smguc1-Jul-07 19:40
smguc1-Jul-07 19:40 
QuestionMultiple thumbs on a slider control, Help?... Pin
smguc1-Jul-07 17:26
smguc1-Jul-07 17:26 
AnswerRe: Multiple thumbs on a slider control, Help?... Pin
Dave Kreskowiak2-Jul-07 4:48
mveDave Kreskowiak2-Jul-07 4:48 
GeneralRe: Multiple thumbs on a slider control, Help?... Pin
smguc9-Jul-07 2:35
smguc9-Jul-07 2:35 
QuestionArray problems Pin
Bruce Leigh1-Jul-07 15:47
Bruce Leigh1-Jul-07 15:47 
AnswerRe: Array problems [modified] Pin
EvScott1-Jul-07 15:58
EvScott1-Jul-07 15:58 
AnswerRe: Array problems Pin
SHatchard2-Jul-07 2:18
SHatchard2-Jul-07 2:18 
QuestionFields go missing Pin
Brendan Vogt1-Jul-07 14:07
Brendan Vogt1-Jul-07 14:07 
AnswerRe: Fields go missing [modified] Pin
EvScott1-Jul-07 15:37
EvScott1-Jul-07 15:37 
GeneralRe: Fields go missing Pin
Brendan Vogt1-Jul-07 23:06
Brendan Vogt1-Jul-07 23:06 
GeneralRe: Fields go missing Pin
EvScott2-Jul-07 2:40
EvScott2-Jul-07 2:40 
Questioncombobox in DataGridView control Pin
manisghouri1-Jul-07 13:50
manisghouri1-Jul-07 13:50 
AnswerRe: combobox in DataGridView control Pin
sathesh pandian1-Jul-07 19:19
sathesh pandian1-Jul-07 19:19 
QuestionVirtual keyboard losing window focus. Help! Pin
remarkpk111-Jul-07 13:32
remarkpk111-Jul-07 13:32 
QuestionMAPISession not fetching MS Outlook Emails Pin
EvScott1-Jul-07 8:35
EvScott1-Jul-07 8:35 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

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