User Profile

Flinty · Dec 19 '13, 07:53 PM

Using loop in textbox

'
'add timer control to form
'set interval to 1500 and enabled = false

Code:

Option Explicit
Dim C
Private Sub Command1_Click()
    Timer1.Enabled = True
'
End Sub

Private Sub Timer1_Timer()
'
    C = C + 1
       Text1 = "Work is great" & " " & C
        If C >= 11 Then

...

Flinty · Feb 20 '13, 08:58 PM

lightroses,
Google it and download, then add it to your project.

Flinty · Feb 3 '13, 08:59 PM

Firstly I recognise your expertise and high position and I do not wish to cause any upset, but your link is for Visual Studio 5 (.Net)users and how it differs from VB 6.0

Flinty · Feb 3 '13, 04:38 PM

As the question was posted under Visual Basic 4/5/6 it's reasonable to use the properties and methods relating to these versions and not VB.Net.

Flinty · Feb 2 '13, 03:47 PM

There is no such property as "SelectedIt ems" or "SelectedIt em" so the code will never work. I do not understand why you are not getting error messages when you try to run this code. Look in the MSDN Library and search for listbox and look for RemoveItem method.
Further the "Selected" property is a boolean property and is either True or False only.

Flinty · Jan 29 '13, 08:05 PM

Try the following ...
With textbox - txt1, command button - cmdsave:

Option Explicit

Code:

Private Sub cmdsave_Click()
    Cells(8, 9).Value = txt1.Text '/Choose your own cells
    txt1.Text = ""
End Sub

I have assumed above that you are working with Excel and not VB. If you are trying to transfer from VB to Excel then visit this link.
http://www.developerfusion.com/code/53...

Flinty · Jan 28 '13, 06:39 PM

Rabbit,
Thank you for that. A simple & operator was all it took. Lesson learned as I wasn't aware it was needed!

Flinty · Jan 28 '13, 06:13 PM

Rabbit,
I am sorry if you cannot follow my code. The names of the images are held in a listbox(lstTrop hy). The images themselves are located in a folder named TrophyPics in the root C directory. When the user clicks on a name in the listbox, the image of that name is meant to show in the picturebox(pic1 ). That's about as simple as I can make it. Thanks for your continued attention.
P.S. I am aware it's a bit clunky and I may modify it...

Flinty · Jan 28 '13, 02:22 PM

Sorry, I did not explain that AName is a global variable and holds the image name contained in the listbox.text value. Then FilName is the complete path of the directory and the image name. I have tried various combinations of variables and just using the listbox.text value, all to no avail.

Flinty · Jan 27 '13, 11:05 AM

Code:

Private Sub lstTrophy_Click()
Dim FilName
    lstWinners.Clear 
    txtHistory.Text = ""
    Aname = Trim(lstTrophy.Text) 
    FilName = "C:\TrophyPics\Aname"
'Show picture of trophy.
pic1.Picture = LoadPicture(FilName)

End Sub

Run time Error 53
File not found

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

Help needed with picture box problem