Search:

I'm sure there is a prettier way to go about this but this will do what you want.


Private Sub Command1_Click()
Dim LongString As String
Dim ReturnString As String
Dim i As Integer

...

This is an old post I came across while searching for other stuff but I figured I'd post my 2 cents.


Its probably not the battery since it is keeping perfet time (only delayed 2 hours). It is...

Can you change the report or are you having to get it done in code?

If its the former I have a suggestion. In the Crystal Report IDE right click on the fiields you want to be highlited if some...

The fso is fun. Start in some other part of your app.

Throw a breakpoint on the line that reads
Call RecurseFolders(myFolder)
and watch it do it's thing.


Private fso as FileSystemObject ...

Here is a function I use in some of my apps. I modified it slightly for you. It may not be exactly what you need but it should be a good start. You will need to add a reference to the Microsoft...

Add the Common dialog component and call it with the "ShowColor" method.

Try using ScaleHeight and Scalewidth instead of height.


Frames(Index).Width = Me.Scalewidth
Frames(Index).Height = Me.Scaleheight

I'm afraid that the FSO doesn't take care of this. You're going to have to do it yourself.

Create a function that returns a boolean and send each file through it to see if it is a file you want to...

I'm using Version 3 of the Spread. I don't know who new or old that may be...

My spread exposes an event called "ButtonClicked" that gives you what you are looking for. (I think).



Private...

FormatCurrency Will give you some options. (Although I think it automatically puts a '$' in front of the number.)

If you don't want that then you can use FormatNumber(<Number>, # of Decimal...

If you are just worried about HH and MM then try


FormatDateTime("8:43:13 AM", vbShortTime )


If you are worried about seconds you may have to use your own formatting statement

...

Heres a start


Private Sub Command1_Click()
Dim fso As FileSystemObject
Dim myFolder As Folder
Dim myFile As File
Dim ts As TextStream

Set fso = New FileSystemObject

I'm not sure what you're looking to do is possible but there are ways around it. You can either change your current autonumber field to not be autonumber or just leave it there since it isn't hurting...

Look into the SHGetSpecialFolderPath and SHGetSpecialFolderLocation functions. Those look like they may be what you're looking for.

Just another option..


FormatNumber (1.99 - 1.99, 2)

Check this thread out...
http://www.vbforums.com/showthread.php?s=&threadid=237507&highlight=Dynamic+Menu

It is missing one or two Functions you may need. You will need to get the menu you want...

Not sure if it will work but this would be the easiest way if it does


'open shortcut
sShortcut = Chr(34) & "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" & Chr(34) & " " &...

First off I think you want to set the "View" Property of the listview to "Report" instead of "Small Icon". "Report" gives you more of a grid feel. It sounds like that is what you want.

As far as...

Is the dropdown on the dtPicker not enough? I don't know of any other free controls.

If you end up having to do your own validation use the isDate Function.

isDate("02\29\2000")
'Returns true

You mean the command line arguments? Call the Command$ Function.


Dim myCommandLine as String

myCommandLine = Command$()

Use the Split function



Dim Nums() as String
Dim i as Integer

Nums = Split("0.00000000 0.00000000 0.0000000", " ")
'Now Nums is an array with 3 items in it.

Sounds like the controls are locked. Right click on the form and make sure that "Lock Controls" isn't selected. If thats not it I've got no clue...

You may have to use the list property to fill the combo box.


While Not rs.EOF
ComboBox.List(Index) = rs.Fields(<Your Field>)
Call rs.MoveNext
Wend


Thats the basic idea anyway.

You can remove the ability to type text into the combo box by changing the Style Property to Dropdown List.

GDI can be used for a bunch of things. I found this page with a quick Google search. Maybe it will be of some use.

http://www.minigui.com/api_ref/group__gdi__fns.html

I have some code for a task manager type of application written in VB. I didn't write it but I used ideas from this app to write an application server that we use in my office. Good Luck.

Every Statusbar I have ever used automatically docks itsself to the bottom of the form and it will resize according to the size of the form.

Play with these

MsgBox Format(Now, "MM/DD/YYYY hh:mm:ss")
MsgBox FormatDateTime(Now, vbShortTime)

Bad file mode means you're trying to write to a file that was opened read only. Try changing the way you open the file.


'Change
Open FilePath & sFileNames(i) For Input As #1
'To
Open FilePath...

Here is a recursive procedure I have ripped out from an old app. You'll have to make some changes to it. You may want to turn it into a function and return the path of the file/folder. Hope this...

Try a new timer object. I believe these are free and I use them at work all the time. You can set an interval for up to 3 weeks with these things.

http://www.mvps.org/ccrp/controls/ccrptimer6.htm ...

Here's what I think is happening.

The form that calls the SendKeys function is the enabled form at the time and thus is also receiving the Sendkeys function which, in turn, recalls the Sendkeys...

I meant


Call Sendkeys("{DEL}")
Call Sendkeys("{ENTER}")

by the way.


Sorry, I didn't pay close enough attention to your original post... don't know where I came up with Enter ESC...

Try it with curly braces


Call Sendkeys("{ENTER}")
Call Sendkeys("{ESC}")

I've never tried it in a paint type of application but you may be able to use the CreatePolyRgn function.


Public Type POINTAPI
x As Long
y As Long
End Type

Public Declare...

It may not work and I know it seems superfluous but try rounding it.


x = Round(x + 0.05, 2)



See what happens... I didn't try it. Just a suggestion.

This may not be as detailed an answer as you had hoped but I'd suggest using the EnumWindows function.


private HasFocus as Boolean


Public Declare Function EnumWindows Lib "user32" (ByVal...

So I played with this a bit. I am not doing it exactly the same way it was being done. We're using the Circle method now. I am sure there has to be a prettier way to do it but this was the fastest...

You can do it no problem. I only have the code to do it in SQL Server though. (I think its considerably easier to do if you are using something like Access.) Here's my SQL server code. DBConn is a...

I don't know if this is possible and its a bit convoluted. If it is possible I think its only going to happen with subclassing so I figured I'd ask the forum if it sounds possible before I try and...