|
This isn't a question. You want to do what with this?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
i want to make a delay function in microseconds using vb 6 i am really stucked with that need it really quick  .plz help me.
.o0|EvolvingLogics|0o.
|
|
|
|
|
One method would be to use the API function Sleep. In a module class, make a declaration as such:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
If it is Public, you will be able to call the function from anywhere else in the program. When you want to use the function, just call Sleep with the number of milliseconds you would like the delay. The link below is the MSDN description of the function. It mentions alternative methods if needed.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/sleep.asp
|
|
|
|
|
He's looking for something with a much higher resolution than 1 millisecond.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
The only timer that has that kind of resolution is QueryPerformanceCounter[^].
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
You know in games you have a console like where you can run commands and things like "echo test" and the console promptly replies "test", how would i go about coding this in vb.net. i have no idea where to start, and its fundamental to this game. any ideas would be appreciated 
Thanks, Terence
|
|
|
|
|
Hello All,
I had wrote a small piece of code in Visual basic 6.0 and MS Access 2000.
In Access I have 1 table tbl_expire it includes from, to and amount columns.
from - 01/09/1993 to - 31/12/1998 - Amount - 300 - date format is dd/mm/yyyy
from - 01/01/1999 to - 14/01/2000 - Amount - 275
from - 15/01/2000 to - 28/02/2001 - Amount - 250
from - 01/03/2001 to - 28/02/2002 - Amount - 225
If user enters like - 01/05/2000 then I should get Amount 250, but I am getting 275.
SSql = "select tbl_expire.from as from_dt, to,amount from tbl_expire where '" & Format(TxtDate, "dd/mm/yyyy") & "' >= format(from, 'dd/mm/yyyy') "
SSql = SSql & " and '" & Format(TxtDate, "dd/mm/yyyy") & "' <= format(to, 'dd/mm/yyyy') order by from asc"
Set rs = db.OpenRecordset(SSql, dbOpenDynaset)
If Not rs.EOF Then
TxtFinAmt.Text = Format(rs!maturity_amt, "0.00")
End If
rs.Close
Regards,
S Kumar
|
|
|
|
|
That is because you are comparing the dates as strings. If you examine the result that you get, you see that you actually get both 275 and 225.
If you want the comparison to work, there are two things that you can do. You can compare the dates as dates, or you can use a date format like ISO 8601, i.e. yyyy-mm-dd, that is actually comparable in string format.
---
b { font-weight: normal; }
|
|
|
|
|
Hello Guffa,
Thanks a lot.
ISO-8601 -- yyyy-mm-dd works for me.
Regards,
S Kumar
|
|
|
|
|
i am trying to make an app in vb about services but i can't find the type SC_HANDLE's structure in any MSDN documentation.
where can i find it?
Thanks in advance
|
|
|
|
|
FULL JUSTIFICATION IN RICH TEXT BOX CONTROL IN VB.NET
I am developing a small application for document movement by using RICH TEXT BOX in VB.NET. Thix box is meant for inputting by user any text. The text can be formatted in almost all maner, like RIGHT, CENTER and LEFT ALIGNED. However, I want the text to be FULLY JUSTIFIED (BOTH SIDE) too.
Can anyone suggest me how to do it ? Please respond as it is very urgent, I will be grateful.
T. ALEX JOHN
BHOPAL (INDIA)
|
|
|
|
|
Help me!
I have a database is Users.mdb(userName and UserPass...) and put on a PC on LAN (ex: PC1).
Please show me how to code check UserName and Password then response to my App (put on PC2) for login and get data form other table.
-------------------------
adnvn
|
|
|
|
|
hi
i am new to crystal reports. i need to show a simple report(Vb.Net 2003 & SQL 2000) with a quaery like
"select * from itissretmaster where issretdate='" & dtpRetdate.Value.Date & "'", con)
pls give me step by step procedure, that will be very much helpful
|
|
|
|
|
i'm using visual studio.net 2003(vb.net). I can display data in the datagrid. the problem is i want to change the data in the datagrid and save it to the database, may i know how to do it?thanks....
|
|
|
|
|
hi
if tiy are binding the datagrid to a data table, then all the changes you
made it, it will been in the datatable, so what yon need is to save the changes from that datatable to the database.
Tamimi - Code
|
|
|
|
|
|
I have a slight problem. I need items on a collection (or list) with an index that doesnt change. Right now i have a collection, and i am trying to add an item to it using a key. my code:
<br />
for i = 1 to 3<br />
mycollection.add "grass", i<br />
next i<br />
and i get a type mistmatch or such retardedness. Any ideas? i tried doing a listbox with .additem "grass", i
and... it gave me an error as well. :-/. any ideas?
<---Wrycu--->
|
|
|
|
|
Yes. but i simplified my code. its actually:
<br />
for i = 1 to 36<br />
temp = (rnd * 3) + 1<br />
if temp = 1 then<br />
collection.add "grass", i<br />
elseif temp = 2 then<br />
collection.add "wall", i<br />
else<br />
collection.add "enemy", i<br />
end if<br />
next i<br />
and then when you destroy a wall, i need to change 'wall' to 'grass'. which means i need to be able to add to a certian spot... and i cant do that without a key.
<---Wrycu--->
|
|
|
|
|
You can't replace an item by adding. That would just insert another item and move the following items one step.
Why aren't you just using an array?
---
b { font-weight: normal; }
|
|
|
|
|
im tired at the moment, care to give me an example of how i would use an array in that context? 
-- modified at 21:58 Friday 20th October, 2006
|
|
|
|
|
Example:
' create the array
Dim grid(35) As String
' populate the array:
Dim rnd As New Random()
For i = 0 to 35
temp = rnd.Next(1, 4)
If temp = 1 Then
grid(i) = "grass"
ElseIf temp = 2 Then
grid(i) = "wall"
Else
grid(i) = "enemy"
End If
Next i
' change an item
grid(12) = "grass"
---
b { font-weight: normal; }
|
|
|
|
|
I want to know how to use Microsoft Agent Control 2.0.ocx?
I can use it but I can just show merlin (character) but I cant show the other characters (Robert,Mary,Hal)
I use the following code to show merlin
'''''''''''''''''''''''''''''''''''''''''''
'general declarations
Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"
Private Sub Form_Load()
Agent1.Characters.Load "merlin.acs", DATAPATH
Set merlin = Agent1.Characters("merlin.acs")
merlin.LanguageID = &H409
merlin.Show
End Sub
''''''''''''''''''''''''''''''''''''''
but I can't use it with the other characters.
I realy neeeeeeeeeeeeed it
many thanks for all
soly
|
|
|
|
|
|
TO GUFFA
I am Using VB6 not C# read the code and
sent reply that have meaning please
soly
|
|
|
|
|
Learn how to convert it yourself. There are fewer and fewer VB6 examples on the 'Net, since there's no longer any support from Microsoft for it.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
