Search results for query: *

Hi strongm Thanks for your reply but the problem was it was retaining the handle value so I needed to reset the value back to zero! such a small problem which had a massive impact on my program The joys of programming hey :) Thanks again

Hi I been trying to solve this problem I've been having which involves inserting a PDF document into a frame. The strange thing about this problem is it works first time around but doesnt on the second time, I've stepped through the code and it executes the snippet of code which inserts the PDF...

There are 46 items in the database i'm fine getting those 46 but on the 47th line is the barcode value which is piece "BARC" and isnt displayed as 47 (why i dont know). This is how I'm getting them.. Public Property Let DataString(sData As String) Dim i As Integer...

Hi I'm having problems getting this particular piece of information from our database, basically i'm getting my info through a piece function which is numeric but this item is pieced BARC strPostcode = Split(sDataString, "*")(21) strBarcode is BARC in the database, could someone point me in...

Hi Here is a link that might help you with your problem http://www.codeproject.com/system/cpuusage.asp HTH

Thanks everyone for all your input into this problem however i did have them constants in my module 'API Constants Public Const SERVICES_ACTIVE_DATABASE = "ServicesActive" ' Service Control Public Const SERVICE_CONTROL_STOP = &H1 Public Const SERVICE_CONTROL_PAUSE = &H2 ' Service State - for...

Hi Yeah just tried that and no joy, even tried creating a string variable and equaling it to the selected item from the listview box but yet again no good! Private Sub cmdEndServ_click() Dim i As Integer Dim SelServ As String For i = 0 To ListView1.ListItems.Count - 1...

Hi gmmastros This is a procedure i got off someone else. The parameters are ComputerName & Service name. Public Const SERVICE_CONTINUE_PENDING = &H5 Public Const SERVICE_PAUSE_PENDING = &H6 Public Const SERVICE_PAUSED = &H7 'Service Control Manager object specific access types Public Const...

Hi gmmastros I'm looping through the Listview and stopping the selected service, here is what i have so far but i'm getting a type mismatch 13 i've stepped through the code and it looks fine up until it tries to stop the selected service. Private Sub cmdEndServ_click() Dim i As Integer...

Hi I want to be able to stop and start a service that is selected from a ListView(using XP), I've tried searching but cant find anything, does anyone have any ideas? Thanks

Hi I'm not sure if this is what you need but you can format the date like this Text3.Text = Format(Now, "mm/dd/yy") HTH

Hi crisedefoie Try this API Option Explicit Const LOCALE_SLANGUAGE As Long = &H2 Const LOCALE_SENGLANGUAGE As Long = &H1001 Private Declare Function GetThreadLocale Lib "kernel32" () As Long Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Private Declare Function...

Hi HarleyQuinn Thanks very much for your help! it worked famously Ta

Hi HarleyQuinn Here is all the code, i think its the loop which returns the file. Private Sub cmdDelete_Click() Dim i As Integer ReDim Alist(0) As String Dim Response As String Dim FileSelect As String For i = 0 To File1.ListCount - 1 If File1.Selected(i)...

Hi HarleyQuinn Thanks for your reply, I see were i'm going wrong with that code, FileSelect is always going to return a file hence why its bypassing the msgbox. I've tried using the File1.Selected method but i'm getting run time errors. Could you point me in the right direction at all? TIA

Hi I need to be able to display a msgbox asking the user to select files from a FileListBox when no files havent been selected, the code i have done looks fine to me but it bypasses it. Can anyone tell me why? FileSelect = File1.FileName If FileSelect = "" Then MsgBox "Please select...

Thanks waytech2003 That works perfect, thanks for all your guidance

Hi I'm wanting to view a selected PDF file from a FileListBox, I'm trying the shellexecute command but i'm getting no joy! Any ideas? TIA Private Sub cmdOpen_Click() If File1.Selected(i) = True Then Shell File1.Path & "/" & File1.FileName, SW_SHOWNORMAL End If End Sub

Hi Have you looked into using Redemption.dll, it bypasses a lot of security flaws. HTH

Thanks waytech2003 That worked a dream thanks for all your help