omoridi

label1.autosize=true

You can user Timer Function dim t as double t=timer do while (timer-t)<10.1 loop Timer-T Return how many Second and milisec in diff Timer return how manu sec passed in the day hour=timer/3600 minute=(timer mod 3600) / 60 second=((timer mod 3600) mod 60) milisec=clng(timer)-timer

use tax calculator

ouh its very diffcult hehehe no u must see how ur barcode send data 2 computer all of bar code send data in 3 way keyboard,serial,usb if keyboard after read bar code send the bar code value like press the code on keyboard if serial send data on serial port …

maybe you show any form in modal mode when u want show new form in normal mode after modal form show u err

simple code [code=vb] if a=a or b=b or c=c and d=d then f=f 'or if a=a or b=b or c=c and d=d then f=f end if [/code] or more [code=vb] if a=a or b=b or c=c and d=d then f=f else f=g end if [/code] or more [code=vb] if a=a …

your function is ok but u have a problem use this Val("&H" + Mid$(QueryStr, ByteIndex * 2 + 1, 2)) not Val("&H") + Mid$(QueryStr, ByteIndex * 2 + 1, 2)

ypu must install ut mobile dirver and make modem then with mscomm you can connect with ur mobile and use at commands to handle that or use some gsm send & recive control to use. like kylixsoft.com

your database is more important if u use sql you can use sql lang or if u use access you must use adox u can find it on preferences with name Microsoft ADO ext. 2.8 for DDL and Security [code=vb6] Dim Cat As New ADOX.Catalog Dim COL As New Column …

you can search on [url]www.plasourcode.com[/url]

for create connection string in fast mode craete a file like a.txt rename a.txt to a.udl dblclick on it and create ur connection string with dialog and save after that open a.udl with notepad ur connections string was there

you can install windows installer 1.1 or higher and use with this u can find and download from microsoft.com

use % not * (like '%' & &'%')

MSHFlexGrid1.TextMatrix(Row, Col) = "Value"

Something like that or also you can check rst.recordcount>0

you can't install this you must copy in system32 or beside of you exe file.. or if you want to use this u must declare inside function. for more information find in goolge

dont forgot use doevents to show u response

when u bound textbox to the fields the textbox show the value of filed of record.

open 2 file as binary check byte to byte and show the diff you can use ritchtextbox to highligh text

u want close ie or when ie in google? if you want close ie u must check prossecc not window

ask from fingerprint company they have driver for that

u can add in ImageList and get it with ImageList1.ListImages.Item.ExtractIcon

you can copy all of the database in some folder like 2005,2006,2007,2008 and remove old value in current database. after that in ur program write choose cycle and show the folders was u created.

[code=vb] dim x as node if node.childern>0 then set x=node.child.firstsibiling do while not x is nothing ' do it every thing with x. set x=x.next loop end if [/code]

you must write 2 program as service or not one check if main program is closed run it again and in main check if checker is down run the checker with less than 1s check nobody can close both less than 1s with task manager

2 way u can load webcam one with ms cam and another with directx the first is more simple you can search on pscode.com and u can find many of sample

ok cafe have 2 part one recption and other side in kitchen so cash request by a form something (list of food or drink) and in kitchen show that list.

[code=vb] Option Explicit Public LastEvent As String Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long Private Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As …

access don't have between chode >= and <= for that [code=vb] dim cnn as new connection dim rs as new recordset cnn.open "asdasdasdasdasd" rs.open "select * from ....",cnn,.... 'or set rs=cnn.excute("select * from ......") [/code]

do u want list of proccess of client from server?

how many times you run this? when u close this? do u want to ping a url? send me what u shell excatlly mean the output data

use windows installer 1.1

if you want to shell and view in ie u must use shell with iexplorer address (C:\Program Files\Internet Explorer\iexplore.exe) and youe html file parameter (see shell on msdn) but if c:\ not default windows path u have problem to open ur file. with windows api you can open all of …

[code=vb6] dim f1 as new form dim f2 as new Form1 'u must have this form in project f1.show f2.show [/code]

yes you can use filter regular expersion .Filter ="field1=1 and field2='vlue' or filed3='asd'" [QUOTE=benjaminhan;981184]Hi All, Is it possible to filter 2 fields in Adodc? My code is shown below: *****-----*****----- With Adodc2.Recordset .Filter = "DOC_DATE = '" & myDate & "'" If .EOF Then MsgBox "Item Not found" .Requery End …

[code=vb6] cmdOk.move left,top,width,height ' or cmdOk.left=left cmdOk.top=top cmdOkwidth=width cmdOk.height=height [/code] but if you want to move this control in anotehr form or module you must use public [QUOTE=gendler.max;987942]I'm trying to learn how to add and move objects in VB6 through the code module. SO far i've figured out how to …

don't forgot when u want open a file you must have windows access place the file in right access folder and set correct permission. like set everyone to the you folder or file.

use kylixsoft control

wow you can use find method rs.Find "f1=123", 0, adSearchForward, 1 f1=your field name 123=your value if es.eof =true means don't find any value if not rs in find record

[code=vb6] Dim x As Long Dim y As Long Dim S As String For y = 0 To 20 S = "" For x = -y To y S = S & Abs(x) Next Print Space(100 - Len(S)) & S Next [/code]

why you don't use datediff? for more information goto msdn

[code=vb6] Shell ("cmd.exe /c del " & path & "filename") ' this is remove p:\filename Shell ("cmd.exe /c del """ & path & filename & """") ' this is work to u [/code] don't forgot if you want use long file name in windows you must set the path in …

[QUOTE=xWiredx;986505]hi guys.. kindly help me in this one... i'm creating an inventory system.. i have a problem in their Item No. format... i use maskedbox... my mask is ##-####### ... im using a barcode reader..their current Item number has only 4 digit... i want the output will become this one …

hi u can send like this dim b() as byte b=convertstr("1234567",vbfromunicode) mscomm1.output =b and recive dim b() as byte b=msscomm1.input s=convertstr(s,vbunicode)

you can use msinet control with have many sample Micrsoft Internet Transfer Control 6.0 (SP6)

[code=vb6] if text1.text<>text2.text then msgbox "wrong entry" end if [/code] if you want caseinsensitve [code=vb6] if StrComp(text1.text,text2.text,vbTextCompare )<>0 then msgbox "wrong entry" end if [/code]

you can ScaleX or ScaleY [code=vb6] me.ScaleX(11,vbInches,vbCentimeters ) [/code]

[Code=vb6] s="1 2 3 4 5 6" s=replace(s," "," ") 'Replace 2 Space to 1 space dim v as variant v=split(s," ") 'v(0)=1 'v(1)=2 'v(2)=3 'v(3)=4 'v(4)=5 'v(5)=6 [/Code]

i use kylixsoft ocx [url]www.kylixsoft.com[/url]

this if vb.net sample