|
Private Sub Command2_Click()
Text1.Text = text1.text & "L2"
End Sub
private sub cmdClearText1_click()
text1.text=""
end sub
|
|
|
|
|
i am work on a TMS (time Management System), a program that record and manage the time records of employees by using a barcode reader machine,
i have the machine, but i don't know the hash code (code that send to the machine to responed, to do certian jobs like download the data store at the machine storage to PC),
is there any one who assist me
i am very thankful to him...
note:if there is any problem to understand the message pls ask me
i am hardly waiting ...
SOASAB
|
|
|
|
|
What kind of hardware is it? You'd be better off talking to the hardware companys support or doing an internet search for this kind of information.
Michael
|
|
|
|
|
Hello,
Can somebody point me to a good and understandible article on using TAB and PROPERTY SHEET Control in Plain SDK and VC++ please...
Thanx in Adv.
-Shrirang
[b_shrirang@hotmail.com]
|
|
|
|
|
Hi Y'all
I'm trying to import a text file into my Access 2000 database using the VBA function TransferText:
Dim db As DAO.Database
Set db = WerkDatabase
db.Execute _
"SELECT * INTO TempArtikel FROM [Text;FMT=FixedLength;HDR=No;DATABASE=" + ImportDir + ";].[artikel#asc];", _
dbFailOnError
db.TableDefs.Refresh
My schema.ini file is located in the same directory as the text file, and looks something like this:
[artikel.asc]
ColNameHeader=False
Format=FixedLength
MaxScanRows=0
CharacterSet=OEM
ARTNAR="ARTNAR" Number Width 15
OMS1AR="OMS1AR" Char Width 30
INHDAR="INHDAR" Number Width 5
PALCAR="PALCAR" Number Width 8
Where ARTNAR is the name of the column in the target database table (TempArtikel).
The problem is that ADO gives me the following error message:
3443 Can't create fixed width text file without column specification
which is pretty weird, because I did specify a length (15), right?
What am I doing wrong here?
|
|
|
|
|
I have been wondering:
1)if it is possible to access the DAO Workspace being used by a VB3/4 app. accessing a Access 2.0 database. This uses BLOBs written to the database and I do not have the structure for the BLOBS. Can these be deciphered? I thought this may be possible if one could access the Workspace, but I guess one would also need to know how the these are defined in the code? As is apparent, this is a 'legacy' app and I do not have access to the code, but want to use the info in the BLOBs for reports and other interfaces. Any help would be much appreciated.
2) Along a similar line of thought, is it possible to change the graphics in a Picture box in a compiled app's logon screen if one does not have access to the code? Or to call it from an app with customised logon screen, making the legacy logon screen screen invisible and just feeding it username and password from the customised logon screen? This is an internal app and no licensing issues are involved. Again, any help/suggestions would be much appreciated.
Guru
Guru@innotts.co.uk
|
|
|
|
|
I would like to create an instance of a Class on Form1 and be able to use that same instance on a second form. I want to avoid using global/public variables and collections in a module. Can this be done?
-Joe
|
|
|
|
|
I guess you could create a get-property i Form1 that returns the instance of Class1:
public property get TheProperty as Class1
set TheProperty = myInstance
end property
So from Form2 do this to get the Class1 instance from Form1:
set obj=Form1.TheProperty
Hope this helps...
Øyvind.
|
|
|
|
|
Hello
I've got al little problem converting parts of a record in an ASCii
file.
In different ascii files with different number of records must position
5 and 6 be convertet to 0
and then it must be saved again.
for example :
F1C58475 0-
B2C58757 0-
E9D48747 1-
R0A01477 8-
Does anyone has an idia how to do this?
Tanx
Greetings
Nahoj
|
|
|
|
|
in.txt
F1C58475 0-
B2C58757 0-
E9D48747 1-
R0A01477 8-
'VB script example
const infile = "C:\...\in.txt"
const outfile = "C:\...\out.txt"
set fso = CreateObject("Scripting.FileSystemObject")
set tsin = fso.OpenTextFile(infile)
set tsout = fso.CreateTextFile(outfile)
do while(not tsin.AtEndOfStream)
str = tsin.ReadLine
str = mid(str,1,4) & "00" & mid(str,7)
tsout.WriteLine str
loop
tsout.Close
tsin.Close
out.txt
F1C50075 0-
B2C50057 0-
E9D40047 1-
R0A00077 8-
|
|
|
|
|
Does anyone know how to get around the 2048 bytes limit on command line parameter list?
I would like to drop a lot of files (infinite...) on my desktop icon.
But if the resulting command line (files plus path) is larger than then 2048 bytes then VB crashes.
I use Command$ to get the command line.
/Jerry
|
|
|
|
|
Did you try using the Win32 API function GetCommandLine ?
Furor fit laesa saepius patientia
|
|
|
|
|
Have you tried it? I think not.
I placed MsgBox "Hello" in the first line of Form_Load().
You can't even get that line to work.
The same behaviour occur in C++ projects also if you try the
same thing. It is a Windows problem.
If you have a solution that works, please post it.
/Jerry
|
|
|
|
|
Well, I've tried this in VB and in Window 2k SP2 (my machine) it runs fine...
Maybe is the drag & drop thing your problem...
Compile to an .EXE and run the .EXE. The first time it shows 0 (obvious) and the subsequent times, it shows 5000.
To exit program, kill its task
<br />
Option Explicit<br />
<br />
Private Sub Form_Load()<br />
<BLOCKQUOTE>MsgBox "Hello World"<br />
MsgBox Len(Command$)<br />
Shell App.Path & "\" & App.EXEName & " " & String$(5000, "x")<br />
Unload Me</BLOCKQUOTE><br />
End Sub<br />
Furor fit laesa saepius patientia
|
|
|
|
|
Tried it, doesn't work.
I don't think you are doing what I am doing.
Build your program, create a shortcut and place that on your desktop.
Create a directory with a long path, place a lot of files in it.
Select them all and drop them on your shortcut, make sure that resulting
commandline will be larger than 2048 bytes.
Your program will show a MsgBox saying :"Access to the specified device, path or file is denied."
/Jerry
|
|
|
|
|
I am not trying to be smart. If you have a solution a will be very happy.
I'm looking at sending files to a directory and use FindFirstChangeNotification() to find out if files have been copied. Then just run through the catalog with FileFind.
Cons: The files will be copied. Can that be hindered?
Or sending the files to a .bat file, list the files to a
text file and read that.
Cons: A DOS window will be shown, it will look bad on a slow
machine.
/Jerry
|
|
|
|
|
I have found a way to achieve dropping on the desktop.
Look at shell extensions part VI on this site.
/Jerry
|
|
|
|
|
hello,
I need to pss arguments to a sub, the argument is an user-defined type defined in a module as public.
when I compile he app I get the error :
"Only public user defined types defined in public object modules can be used as parameters or return types for public procedutres of class modules or as fields of public user defined types."
what do i do ?
|
|
|
|
|
you have to declare your type in a module.
|
|
|
|
|
I am, unfortunately, not a programmer but can follow most code examples when provided. What I am surprised about (and thus, in search of), is a way to search MS Outlook Express 6 Usenet message headers for a specific IP address, when entered and searched for. The basic 4 fields which MS provides is simply not sufficient.
Is there a way to do this in VB code, maybe as an add-on? Has this been accomplished by someone? I can't seem to locate it despite extensive searching on google.com, Altavista.com and a number of other S/Es and directory engines.
Any VB tools which may have been created for this purpose, or are easily modified to complete this task, would be greatly appreciated.
NOTE: This is not for a client, it for my own personal use in the office, when trying to search down people responding to a message who may be attempting to hide their true identity from their past history in the newsgroup.
Google's www.dejanews.com does not appear to search headers of the messages for IP or resolved names, from usenet messages. At least not from my past experience.
Thanks in advance to all offers of assistance.
Gil Tennant
Project Manager
WebWham
|
|
|
|
|
Hi all,
Does anybody know of a component which allows you to email from VB.
I don't want to use MAPI as this requires the user has installed (and setup) Outlook or Word.
I know there is a great example here on CodePrj in VC++.
Does anybody know of anything similar for VB?
How easy would it be to take the C++ code and wrap it into a DLL which could be called from VB?
--
The Obliterator
|
|
|
|
|
I don't know of any additional VB controls, but I thought it came with Internet Controls? You could try searching for SMTP and Visual Basic from a search engine.
If you have some skills in using VC++ (and can use the Wizards), its not too difficult to wrap up some source code to make a DLL that is accessible from VB. A straight "C" DLL will do it or a COM object.
Dave.
|
|
|
|
|
I will look into the Internet Controls... I am not a VB developer so it really is something I have no idea of.
Yeah I'm confident I could wrap the C source into a DLL... its using it from VB I was worried about! I will give it a go, cheers.
--
The Obliterator
|
|
|
|
|
If you just want to do some simple smtp based email from a vb application you can run on over to www.planet-source-code.com ... do a seach in the vb section for email and/or smtp. I know there are several examples there.
Good Luck!
Jon
|
|
|
|
|
Hello world,
I have written a code for excel, that do some work automatically. My Problem is, that during this time (About 5 Minutes) nothing occures on the screen. Now I want to build a little GUI, that shows the user the progression of the work (something like the one that shows the work of ScanDisk or Defrag). Can someone please tell me which API-Functions, Animated GIF's etc. do I need ?
Thanks a lot
Tom
|
|
|
|