Excellent! Thank you very much! You would not believe the amount of books I have, and read that doesn't even state the 'GetItemText' method, Have only just made the transistion in VB2005 a few weeks now. Great help! Thanks again.:) Stefan.
"All answers have a question? All code has an end."
Hmmm... No still no luck! Doesn't like the .text after it. Sometimes makes me think I should go back to VB6, haha. Was like my second lanugage! This is the code for VB6, which works fine the only difference is that the 'i' was declare as a variant, but VB2005 wants it as a object, which didn't work so changed it to a Integer. Dim i As Variant For i = 0 To ListBoxUpgrade.ListCount - 1 If ListBoxUpgrade.Selected(i) Then LabelSum = LabelSum & Space(6) & ListBoxUpgrade.List(i, 3) & vbCrLf End If Next i Do you have any more ideas or a better way to write the code?? Or go back to VB6... lol Thanks, Stefan.
"All answers have a question? All code has an end."
Hi Luc, Thanks for that, but doesn't accept the .text after the ListBoxUpgrade.SelectedItem(i) so frustrading it works in 'VB6' which is where I have upgraded from to 'VB2005' all because of 'Vista', many different rules and changes. What I am trying to achieve, is there is a list of items in a listbox which you can multi select and from there show only those selected items in a label as a summary 'like a report'. Any more suggestions would be much appreciated! Thanks, Stefan.
"All answers have a question? All code has an end."
Thanks, Sorry I thought I had! My bad.
"All answers have a question? All code has an end."
Hi, I am trying to insert selected items from a listbox into a label, the listbox is fillby a database query, the problem is all I get is this System.Data.DataRowView it works fine when I dont use a database query and just text in the listbox, but need to use a database query. Can anyone help on a solution for this?? Dim i As Integer For i = 0 To ListBoxUpgrade.Items.Count - 1 If ListBoxUpgrade.Items(i) Then LabelSum.Text = LabelSum.Text & Space(6) & ListBoxUpgrade.SelectedItem(i) & vbCrLf End If Next i Thanks in advance! Stefan.
"All answers have a question? All code has an end."
Thanks much appreciated!
"All answers have a question? All code has an end."
Hi, I am trying to insert selected items from a listbox into a label, the listbox is fillby a database query, the problem is all I get is this System.Data.DataRowView it works fine when I dont use a database query and just text in the listbox. Cant anyone help on a solution for this?? Dim i As Integer For i = 0 To ListBoxUpgrade.Items.Count - 1 If ListBoxUpgrade.Items(i) Then LabelSum.Text = LabelSum.Text & Space(6) & ListBoxUpgrade.SelectedItem(i) & vbCrLf End If Next i Thanks in advance! Stefan.
"All answers have a question? All code has an end."
Hey, Sorry forgot to declare 'Sleep' Place this at the top of your module Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) The "o" and "." are use to show a progress in the status bar, the "." runs along the "o" to give you the progress. Hope this helps. Cheers. Was written in Visual basic
"All answers have a question? All code has an end."
Opps, Adjustments to above code... Replace 'txtPg7a.Text' with "o" and replace 'txtPg7p.Text' with "•" Sorry.. Cheers, Stefan.
All answers have a question? All code has an end.
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.
Hi, Is it possible to have multiple thumbs along a slider control, if so can anyone direct me as to where I can find informantion on how to do this.. Thanks in advance! Stefan.
All answers have a question? All code has an end.
Hi, Is it possible to have multiple thumbs along a slider control, if so can anyone direct me as to where I can find informantion on how to do this.. Thanks in advance! Stefan.
All answers have a question? All code has an end.