Posts by Jx_Man

see this attachment :

Change Font.zip

Hope this helps...
PS: don't remove author name n comment

see this code :

function FIBO(N : integer) : integer; 

 begin 
   if (N = 1) or (N = 2) then 
      FIBO := 1 
   else 
      FIBO(N) := FIBO(N - 1) + FIBO(N - 2) 
 end;

hope this helps...

make a public shared variable to accomodate your item and you can call it in other form.

ok. see this example program :

Get All User.zip

Hope this helps.
don't forget to give feedback.

that you means every user included default user that it created by windows??

i think you forget to set full = false, just it.
add this code after else :

begin
        Full := false;
        T.Top := inc(T.Top);
        T.Contain[T.Top] := X
      end

ok hope this helps..

sorry for the double post.

see this example :
i write this code in pascal

[ATTACH]5318[/ATTACH]

hope this helps..

see this example :
i write this code in pascal

Array.zip

hope this helps..

answered by shouvik. try it friend.

maybe sqlserver 2005 more better to use.

oh... same logic like my prog... ChristosK, you can rewrite a program in vb6 like my prog. see the posted link by cometburn, its like my prog.
great finding cometburn.:)

hi VIeditorlover...
are you have other program to read mb info?? i would like to know too. :)

Hi ChristosK...
Sorry i must to convert this program into vb.net cause it build in c# before. sorry if this program not perfect. u can develop this program to read other hardware info. look into link which i given to you yesterday, that link will help u much.

Daniweb.zip

OK. Hope This helps.

as james said you should to using wmi (Windows Management Instrumentation).
i have a simple prog to read motherboard model but i m do with vb.net. if you want, i'll post it for you.

huh?? i was try and i did not get any error..
that error message "aren't defined" for the code i post? or for other code??

you should to use convert.
repair your code with following code :

msngInitialValue = Convert.ToSingle(txtInitialValue.Text)
msngSalvageValue = Convert.ToSingle(txtSalvageValue.Text)
mintAssetLife = Convert.ToInt32(txtAssetLife.Text)

ok. hope this helps.

as estella said it using winmm.dll
see this prog :

CD ROOM Access.zip

OK. Hope This Helps...

use this code to get upper result

CompName = CompName.ToUpper
UseName = UseName.ToUpper

CompName = System.Environment.MachineName.ToString
UseName = System.Environment.UserName.ToString

set database source on data1 properties. browse a current path of database.

It looks like a paper pinned down by Pins :)
but it cant be that simple because you are asking it here.

ross

agree. :D

check this prog :

Database With Data Control.zip

Hope This Helps...
Happy Coding :)

there are code for this....
sorry if it can't help you.

see this link :
http://www.vbdotnetforums.com/showthread.php?t=12469

see this link :
http://www.vbdotnetforums.com/showthread.php?t=12469

Happy Coding friend :)

great work. happy coding friend :)
don't forget to mark this thread solved

call the function from module and calculate in form

hmm... give me a day and i'll post it for you.

first, what of grid that you want to use with data control.
On Properties of Data1 :

DatabaseName = your database pathName.
RecordSource = Table that you want to use.

Then, Ex you use MSFlexGrid :
On MSFlexGrid properties ->DataSource = Data1

already answer by SolTec

Ok. Happy coding friend :)

Try This Following Code :

private declare function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long,ByVal pszRootPath As String,ByVal dwFlags As Long) As Long
Private Const SHERB_NORMAL = &H10
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
Private Const SHERB_NOALL = _
(SHERB_NOCONFIRMATION And _
SHERB_NOPROGRESSUI And SHERB_NOSOUND)

Dim RetVal As Long
Private Sub Command1_Click()
   Dim y as Integer
   y = MsgBox("Are u sure to clean up Recycle Bin ? ", vbYesNo, "Confirmation"
   If y = vbYes Then
      RetVal = SHEmptyRecycleBin(0&,vbNullString,&H1)
   MsgBox "Recycle Bin has been cleaned"
   End If
End Sub

Ok. Hope This Helps.

try this :

For Each controlx In Form3.Controls
    If TypeOf controlx Is TextBox Then controlx.Text = ""
Next controlx

i post it cause previous post use or operand.
but you have a great code. nice one :)

why use or??
if the value 3 2 4 5 6 then the result is 3 cause the first state is pass (3 > 2).
when use or operand, if one state was passed then another state not checked by prog again.
use and operand.

If Val(Text1.Text) > Val(Text2.Text) And Val(Text1.Text) > Val(Text3.Text) And Val(Text1.Text) > Val(Text4.Text) And Val(Text1.Text) > Val(Text5.Text) Then
    Label1.Caption = Text1.Text
End If

Welcome To daniweb :)

oh... sorry.
i repost the attachment :

Files Selected.zip

see this program :

[ATTACH]5142[/ATTACH]

this snapshot for the program
[ATTACH]5143[/ATTACH]
hope this helps.

sorry i got some error while i compiled this program.
this a sample for asterix character using.

Use Asterix Symbol in input dialog box.zip

hope this helps.

counted like what?for what you counted that files?

yes, vb 2005 is group of .net and sorry for the post its for vb 6. ok. this i post an attachment of simple flash player.

Flash Player.zip

for activeX problem see this link : http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2535137&SiteID=1

on form load event add this code :

RadioButton1.Checked = True

in properties of textbox1 -> tabindex = 0
when it run the cursor will get focus in textbox1.

in properties -> passwordchar = *

no, its not inserted in picture box. to play swf file you must use shockwaveflash. find this component and add to your toolbox.
right click on your toolbox (or control + T) -> in tab controls find "shockwave flash" -> select it and it will shown on your toolbox control.
use this control on your form.
then add this code to play :

Private Sub Play_Click()
ShockwaveFlash1.Play
End Sub

Private Sub Pause_Click()
ShockwaveFlash1.StopPlay
End Sub

Private Sub Rewind_Click()
ShockwaveFlash1.Rewind
End Sub

Private Sub LoadMovies_Click()
Call ShockwaveFlash1.LoadMovie(0, "C:\Documents and Settings\Jerry\My Documents\Games Flash\ninja.swf")
End Sub

hmmm.... this forum for introducing your self. please post your thread in current forum.

actually you didn't give much information for your problem.what database that you've using?
see this link :
http://www.codeproject.com/KB/database/relationaladonet.aspx

you're very .... :ooh:

i'll post the files again. if you can see that files it's not my problem.
look for the attachment below :

Get Startup.zip

OK.

your code just less single quote sign.

select TBIn.NoTbin,TBIn.IdBrg, Barang.NameBrg,TBIn.SupCode,Supplier.SupName from TBIn,Barang,Supplier
where TBIn.SupCode=Supplier.SupCode and
TBIn.IdBrg=Barang.IdBrg and
TBIn.IdBrg = [B]'B002'[/B]