-
Hi all!
I'making a program scheduler wich runs programs when loaded.
I use two textfields AppName & AppPath to save the Application name and full path to a ListBox
and the registry. I also saves the varible AppNo & AppPathNo which shows how many apps saved.
I need to fill the listbox with programs added so far when i reload the program, and the run them. How in the world do i
do that!!!!!
This is what I written so far....
Code:
Private Sub CmdAdd_Click()
Dim AppNo
Dim AppPathNo
AppNo = GetSetting("ProgSch", "AppNo", "No")
AppPathNo = GetSetting("ProgSch", "PathNo", "No")
If AppNo >= 10 Or AppPathNo >= 10 Then
GoTo Error
Else
AppNo = AppNo +1
SaveSetting "ProgSch", "AppNo", "No", AppNo
AppPathNo = AppPathNo +1
SaveSetting "ProgSch", "PathNo", "No", AppPathNo
SaveSetting "ProgSch", "AppToRun", AppNo, AppName
SaveSetting "ProgSch", "AppPath", AppPathNo, AppPath
Apps.AddItem AppName.Text & " " & "-" & " " & AppPath
Exit Sub
Error:
Dim Msg
Msg = MsgBox("Error! You can only add 10 applications!", vbCritical)
End If
End Sub
Private Sub Form_Load()
Dim StartNoCheck1
Dim StartNoCheck2
StartNoCheck1 = GetSetting("ProgSch", "AppNo", "No")
StartNoCheck2 = GetSetting("ProgSch", "PathNo", "No")
If StartNoCheck1 = "" Then
SaveSetting "ProgSch", "AppNo", "No", "0"
End If
If StartNoCheck2 = "" Then
SaveSetting "ProgSch", "PathNo", "No", "0"
End If
End Sub
Thanx in advange!
[Edited by CyberCarsten on 06-23-2000 at 02:09 PM]
-
All you would have to do is retrieve all of the Apps from the registry exactly how you put them in. For Example:
You already have AppNo....
Dim i as ineteger
Dim strAppName as String
Dim strAppPath as String
For i = 1 to AppNo
'Get AppName
strAppName = GetSetting("ProgSch", "AppToRun", i)
'Get AppPath
strAppPath = GetSetting("ProgSch", "AppPath", i)
'Load Both into Listbox
Listbox1.AddItem strAppName & " - " & strAppPath
Next
This should load all of the registry entries into the Listbox....
Hope this helps!
-
-
Never mind I fixed it!!! : o ))
Do you know how to delete a selected item in a listbox??
-
First, you have to cycle trhu to see which is selected...
Dim i as Integer
Dim iSelected as Integer
For i = 0 to (Listbox.ListCount - 1)
If Listbox.Selected(i) = True then
iSelected = i
Exit For
End If
Next
Then you can Delete the Selected Record....
Listbox1.RemoveItem iSelected
Listbox1.Refresh
Make sure you refresh the Listbox....
-
Thanks my friend!! You have been a great help!!
-
Anytime. Glad I can help! I have certainly gotten it many times from this board!!!
Kevin
